diff options
Diffstat (limited to 'palindrome')
| -rw-r--r-- | palindrome/palindrome-test.scm | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/palindrome/palindrome-test.scm b/palindrome/palindrome-test.scm index 4109154..d3fe716 100644 --- a/palindrome/palindrome-test.scm +++ b/palindrome/palindrome-test.scm @@ -4,20 +4,16 @@ (test-begin "harness") -(test-equal "test-not-palindrome" - #f - (palindrome? "palindrome")) +(test-assert "test-not-palindrome" + (not (palindrome? "palindrome"))) -(test-equal "test-is-palindrome" - #t +(test-assert "test-is-palindrome" (palindrome? "racecar")) -(test-equal "test-not-palindrome-bad-casing" - #f - (palindrome? "paLINDROMe")) +(test-assert "test-not-palindrome-bad-casing" + (not (palindrome? "paLINDROMe"))) -(test-equal "test-palindrome-bad-casing" - #t +(test-assert "test-palindrome-bad-casing" (palindrome? "raCECAr")) (test-equal "test-pp-not-palindrome" |