

Task

Using a well-known testing-specific library/module/suite for your language, write some tests for your language's entry in Palindrome.

If your language does not have a testing specific library well known to the language's community then state this or omit the language.



procedure main()
    s := "ablewasiereisawelba"
    assert{"test1",palindrome(s)}
    assertFailure{"test2",palindrome(s)}
    s := "un"||s
    assert{"test3",palindrome(s)}
    assertFailure{"test4",palindrome(s)}
end
 
procedure palindrome(s)
    return s == reverse(s)
end
 
procedure assert(A)
    if not @A[2] then write(@A[1],": failed")
end
 
procedure assertFailure(A)
    if @A[2] then write(@A[1],": failed")
end