(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")