(use-modules (srfi srfi-64)
             (palindrome))

(test-begin "harness")


(test-assert "test-not-palindrome"
  (not (palindrome? "palindrome")))

(test-assert "test-is-palindrome"
  (palindrome? "racecar"))

(test-assert "test-not-palindrome-bad-casing"
  (not (palindrome? "paLINDROMe")))

(test-assert "test-palindrome-bad-casing"
  (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")