import unittest

proc reversed(s: string): string =
  result = newString(s.len)
  for i, c in s:
    result[s.high - i] = c

proc isPalindrome(s: string): bool =
  s == reversed(s)

when isMainModule:
  suite "palindrome":
    test "empty string":
      check isPalindrome ""

    test "string of length 1":
      check isPalindrome "a"

    test "string of length 2":
      check isPalindrome "aa"

    test "string of length 3":
      check isPalindrome "aaa"

    test "no palindrome":
      check isPalindrome("foo") == false