suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

And add tests

Browse Source
This commit is contained in:
Leif Andersen 2017-03-01 13:35:23 -05:00
parent edf4bcfe78
commit c7df5f4150
1 changed files with 52 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
pkgs/racket-test-core/tests/racket/math.rktl
View File

@ -122,6 +122,58 @@
(test #f infinite? +max.0) (test #f infinite? +max.0)
(test #t infinite? +inf.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 ;; sqr