From afd4ff8742faef7bac6eddda866282ffc2f9251e Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 8 Jul 2011 16:37:50 -0400
Subject: [PATCH] images test starting

---
 tests/more-tests/images.expected | 5 +++++
 tests/more-tests/images.rkt      | 9 +++++++++
 tests/run-more-tests.rkt         | 1 +
 3 files changed, 15 insertions(+)
 create mode 100644 tests/more-tests/images.expected
 create mode 100644 tests/more-tests/images.rkt

diff --git a/tests/more-tests/images.expected b/tests/more-tests/images.expected
new file mode 100644
index 0000000..e3c1552
--- /dev/null
+++ b/tests/more-tests/images.expected
@@ -0,0 +1,5 @@
+true
+true
+false
+true
+false
diff --git a/tests/more-tests/images.rkt b/tests/more-tests/images.rkt
new file mode 100644
index 0000000..99edd27
--- /dev/null
+++ b/tests/more-tests/images.rkt
@@ -0,0 +1,9 @@
+#lang planet dyoo/whalesong
+(require (planet dyoo/whalesong/image))
+
+(is-color? "red")
+(is-color? "blue")
+(is-color? 42)
+
+(is-color? (make-color 3 4 5 0))
+(is-color? "color")
diff --git a/tests/run-more-tests.rkt b/tests/run-more-tests.rkt
index 20a0b5f..59935a7 100644
--- a/tests/run-more-tests.rkt
+++ b/tests/run-more-tests.rkt
@@ -13,3 +13,4 @@
 (test "more-tests/simple-structs.rkt")
 (test "more-tests/man-vs-boy.rkt")
 (test "more-tests/colors.rkt")
+(test "more-tests/images.rkt")