diff options
| author | bd <bdunahu@operationnull.com> | 2024-05-20 01:07:13 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-05-20 14:59:16 -0600 |
| commit | 5df534c4e3893a9f7a4f528746eca98d7a012736 (patch) | |
| tree | 06ddcea130301a55d9b7f21a5c72d27ec3b4d281 /palindrome/palindrome-test.scm | |
| parent | de8ec8026b3fbf60cfa95ef1c48ad53e1b922d38 (diff) | |
Add dictionary code and tests
Diffstat (limited to 'palindrome/palindrome-test.scm')
| -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" |