test cases for number?

This commit is contained in:
Danny Yoo 2011-08-17 16:58:14 -04:00
parent c0917801d7
commit 0438950e28
3 changed files with 18 additions and 0 deletions

View File

@ -0,0 +1,7 @@
true
true
true
true
false
false
false

View File

@ -0,0 +1,10 @@
#lang planet dyoo/whalesong
(number? 0)
(number? 3.14)
(number? (expt 2 100))
(number? 2+3i)
(number? "42")
(number? 'this-is-a-test)
(number? (list 3 4 5))

View File

@ -7,6 +7,7 @@
;; type replaced with .expected.
(test "more-tests/string-tests.rkt")
(test "more-tests/numbers.rkt")
(test "more-tests/hello.rkt")
(test "more-tests/simple-functions.rkt")
(test "more-tests/sk-generator.rkt")