From 0438950e28ff30e64c1ac4711cef88cddcf99af6 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Wed, 17 Aug 2011 16:58:14 -0400
Subject: [PATCH] test cases for number?

---
 tests/more-tests/numbers.expected |  7 +++++++
 tests/more-tests/numbers.rkt      | 10 ++++++++++
 tests/run-more-tests.rkt          |  1 +
 3 files changed, 18 insertions(+)
 create mode 100644 tests/more-tests/numbers.expected
 create mode 100644 tests/more-tests/numbers.rkt

diff --git a/tests/more-tests/numbers.expected b/tests/more-tests/numbers.expected
new file mode 100644
index 0000000..dd1eb38
--- /dev/null
+++ b/tests/more-tests/numbers.expected
@@ -0,0 +1,7 @@
+true
+true
+true
+true
+false
+false
+false
diff --git a/tests/more-tests/numbers.rkt b/tests/more-tests/numbers.rkt
new file mode 100644
index 0000000..f57bc3f
--- /dev/null
+++ b/tests/more-tests/numbers.rkt
@@ -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))
diff --git a/tests/run-more-tests.rkt b/tests/run-more-tests.rkt
index 1914f3c..9a4f3bb 100644
--- a/tests/run-more-tests.rkt
+++ b/tests/run-more-tests.rkt
@@ -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")