From f6d333ef67fa2c9c199d4c401322fc31d90867da Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 May 2024 19:12:47 -0600 Subject: Adapt palindrome into a ttd approach --- palindrome/palindrome-test.scm | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 palindrome/palindrome-test.scm (limited to 'palindrome/palindrome-test.scm') 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") -- cgit v1.2.3