From 8d1723a31bc71401fc09fcdfd30e53ab5211a0d6 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Wed, 31 Aug 2011 15:21:31 -0400
Subject: [PATCH] testing implementations

---
 tests/more-tests/string-tests.expected | 126 ++++++++++++++++++++++-
 tests/more-tests/string-tests.rkt      | 133 ++++++++++++++++++++++++-
 2 files changed, 255 insertions(+), 4 deletions(-)

diff --git a/tests/more-tests/string-tests.expected b/tests/more-tests/string-tests.expected
index 162641a..d298df0 100644
--- a/tests/more-tests/string-tests.expected
+++ b/tests/more-tests/string-tests.expected
@@ -19,6 +19,126 @@
 #\e
 #\l
 #\o
-(#\x #\y #\z)
-(#\x)
-()
+'(#\x #\y #\z)
+'(#\x)
+'()
+false
+false
+false
+true
+false
+false
+true
+false
+false
+false
+true
+false
+true
+false
+true
+true
+false
+true
+true
+false
+true
+false
+true
+false
+false
+true
+false
+false
+true
+false
+false
+true
+false
+true
+false
+true
+true
+true
+true
+false
+true
+true
+false
+true
+true
+true
+false
+true
+true
+false
+true
+false
+false
+true
+false
+false
+true
+false
+false
+false
+false
+false
+false
+true
+false
+false
+true
+false
+false
+false
+true
+false
+true
+true
+true
+true
+false
+true
+true
+false
+true
+false
+true
+false
+false
+false
+false
+false
+true
+false
+false
+true
+false
+true
+false
+true
+true
+true
+true
+false
+true
+true
+false
+true
+true
+true
+false
+true
+true
+true
+true
+false
+false
+true
+false
+false
+true
+false
+false
+false
diff --git a/tests/more-tests/string-tests.rkt b/tests/more-tests/string-tests.rkt
index 9474808..12a643d 100644
--- a/tests/more-tests/string-tests.rkt
+++ b/tests/more-tests/string-tests.rkt
@@ -31,9 +31,140 @@
 (string->list "x")
 (string->list "")
 
-
 (string<? "" "")
 (string<? "hello" "Hello")
 (string<? "hello" "hello")
 (string<? "hello" "hi")
 (string<? "hello" "he")
+(string<? "a" "a")
+(string<? "a" "b")
+(string<? "b" "a")
+(string<? "b" "b")
+(string<? "ba" "ab")
+(string<? "ba" "baa")
+(string<? "baaa" "baa")
+
+(string<=? "" "")
+(string<=? "hello" "Hello")
+(string<=? "hello" "hello")
+(string<=? "hello" "hi")
+(string<=? "hello" "he")
+(string<=? "a" "a")
+(string<=? "a" "b")
+(string<=? "b" "a")
+(string<=? "b" "b")
+(string<=? "ba" "ab")
+(string<=? "ba" "baa")
+(string<=? "baaa" "baa")
+
+(string>? "" "")
+(string>? "hello" "Hello")
+(string>? "hello" "hello")
+(string>? "hello" "hi")
+(string>? "hello" "he")
+(string>? "a" "a")
+(string>? "a" "b")
+(string>? "b" "a")
+(string>? "b" "b")
+(string>? "ba" "ab")
+(string>? "ba" "baa")
+(string>? "baaa" "baa")
+
+(string>=? "" "")
+(string>=? "hello" "Hello")
+(string>=? "hello" "hello")
+(string>=? "hello" "hi")
+(string>=? "hello" "he")
+(string>=? "a" "a")
+(string>=? "a" "b")
+(string>=? "b" "a")
+(string>=? "b" "b")
+(string>=? "ba" "ab")
+(string>=? "ba" "baa")
+(string>=? "baaa" "baa")
+
+(string=? "" "")
+(string=? "hello" "Hello")
+(string=? "hello" "hello")
+(string=? "hello" "hi")
+(string=? "hello" "he")
+(string=? "a" "a")
+(string=? "a" "b")
+(string=? "b" "a")
+(string=? "b" "b")
+(string=? "ba" "ab")
+(string=? "ba" "baa")
+(string=? "baaa" "baa")
+
+
+
+
+
+
+
+
+(string-ci<? "" "")
+(string-ci<? "hello" "Hello")
+(string-ci<? "hello" "hello")
+(string-ci<? "hello" "hi")
+(string-ci<? "hello" "he")
+(string-ci<? "a" "a")
+(string-ci<? "a" "b")
+(string-ci<? "b" "a")
+(string-ci<? "b" "b")
+(string-ci<? "ba" "ab")
+(string-ci<? "ba" "baa")
+(string-ci<? "baaa" "baa")
+
+(string-ci<=? "" "")
+(string-ci<=? "hello" "Hello")
+(string-ci<=? "hello" "hello")
+(string-ci<=? "hello" "hi")
+(string-ci<=? "hello" "he")
+(string-ci<=? "a" "a")
+(string-ci<=? "a" "b")
+(string-ci<=? "b" "a")
+(string-ci<=? "b" "b")
+(string-ci<=? "ba" "ab")
+(string-ci<=? "ba" "baa")
+(string-ci<=? "baaa" "baa")
+
+(string-ci>? "" "")
+(string-ci>? "hello" "Hello")
+(string-ci>? "hello" "hello")
+(string-ci>? "hello" "hi")
+(string-ci>? "hello" "he")
+(string-ci>? "a" "a")
+(string-ci>? "a" "b")
+(string-ci>? "b" "a")
+(string-ci>? "b" "b")
+(string-ci>? "ba" "ab")
+(string-ci>? "ba" "baa")
+(string-ci>? "baaa" "baa")
+
+(string-ci>=? "" "")
+(string-ci>=? "hello" "Hello")
+(string-ci>=? "hello" "hello")
+(string-ci>=? "hello" "hi")
+(string-ci>=? "hello" "he")
+(string-ci>=? "a" "a")
+(string-ci>=? "a" "b")
+(string-ci>=? "b" "a")
+(string-ci>=? "b" "b")
+(string-ci>=? "ba" "ab")
+(string-ci>=? "ba" "baa")
+(string-ci>=? "baaa" "baa")
+
+(string-ci=? "" "")
+(string-ci=? "hello" "Hello")
+(string-ci=? "hello" "hello")
+(string-ci=? "hello" "hi")
+(string-ci=? "hello" "he")
+(string-ci=? "a" "a")
+(string-ci=? "a" "b")
+(string-ci=? "b" "a")
+(string-ci=? "b" "b")
+(string-ci=? "ba" "ab")
+(string-ci=? "ba" "baa")
+(string-ci=? "baaa" "baa")
+