From c7df5f41508ef8bf84f0e59486e69cee476ca22f Mon Sep 17 00:00:00 2001
From: Leif Andersen <leif@leifandersen.net>
Date: Wed, 1 Mar 2017 13:35:23 -0500
Subject: [PATCH] And add tests

---
 pkgs/racket-test-core/tests/racket/math.rktl | 52 ++++++++++++++++++++
 1 file changed, 52 insertions(+)

diff --git a/pkgs/racket-test-core/tests/racket/math.rktl b/pkgs/racket-test-core/tests/racket/math.rktl
index 17a931e34b..ffc52a5129 100644
--- a/pkgs/racket-test-core/tests/racket/math.rktl
+++ b/pkgs/racket-test-core/tests/racket/math.rktl
@@ -122,6 +122,58 @@
 (test #f infinite? +max.0)
 (test #t infinite? +inf.0)
 
+;; =========================================================================
+;; positive-integer?
+
+(test #t positive-integer? 1)
+(test #t positive-integer? 1.0)
+(test #t positive-integer? 3/3)
+(test #f positive-integer? 3/2)
+(test #f positive-integer? 0)
+(test #f positive-integer? 0.0)
+(test #f positive-integer? -1)
+(test #f positive-integer? 1.3)
+
+;; =========================================================================
+;; negative-integer?
+
+(test #t negative-integer? -1)
+(test #t negative-integer? -1.0)
+(test #t negative-integer? -3/3)
+(test #f negative-integer? -3/2)
+(test #f negative-integer? 0)
+(test #f negative-integer? -0)
+(test #f negative-integer? 1)
+(test #f negative-integer? -1.3)
+
+;; =========================================================================
+;; nonpositive-integer?
+
+(test #t nonpositive-integer? -1)
+(test #t nonpositive-integer? -1.0)
+(test #t nonpositive-integer? -3/3)
+(test #t nonpositive-integer? 0)
+(test #t nonpositive-integer? -0)
+(test #t nonpositive-integer? 0.0)
+(test #t nonpositive-integer? -0.0)
+(test #f nonpositive-integer? -3/2)
+(test #f nonpositive-integer? 1)
+(test #f nonpositive-integer? -1.3)
+
+;; =========================================================================
+;; nonnegative-integer? 
+
+(test #t nonnegative-integer? 1)
+(test #t nonnegative-integer? 1.0)
+(test #t nonnegative-integer? 3/3)
+(test #t nonnegative-integer? 0)
+(test #t nonnegative-integer? -0)
+(test #t nonnegative-integer? 0.0)
+(test #t nonnegative-integer? -0.0)
+(test #f nonnegative-integer? 3/2)
+(test #f nonnegative-integer? 0.5)
+(test #f nonnegative-integer? -5)
+
 ;; =========================================================================
 ;; sqr