Adapt palindrome into a ttd approach

1 files changed, 33 insertions, 0 deletions

diff --git a/palindrome/palindrome-test.scm b/palindrome/palindrome-test.scm
new file mode 100644
index 0000000..4109154
--- /dev/null
+++ b/palindrome/palindrome-test.scm
@@ -0,0 +1,33 @@
+(use-modules (srfi srfi-64)
+             (palindrome))
+
+(test-begin "harness")
+
+
+(test-equal "test-not-palindrome"
+  #f
+  (palindrome? "palindrome"))
+
+(test-equal "test-is-palindrome"
+  #t
+  (palindrome? "racecar"))
+
+(test-equal "test-not-palindrome-bad-casing"
+  #f
+  (palindrome? "paLINDROMe"))
+
+(test-equal "test-palindrome-bad-casing"
+  #t
+  (palindrome? "raCECAr"))
+
+(test-equal "test-pp-not-palindrome"
+  "String paLINDROMe is not a palindrome!\n"
+  (pp "paLINDROMe"))
+
+
+(test-equal "test-pp-palindrome"
+  "String raCECAr is a palindrome!\n"
+  (pp "raCECAr"))
+
+
+(test-end "harness")