From 5df534c4e3893a9f7a4f528746eca98d7a012736 Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 20 May 2024 01:07:13 -0600 Subject: Add dictionary code and tests --- palindrome/palindrome-test.scm | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) (limited to 'palindrome/palindrome-test.scm') 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" -- cgit v1.2.3