10 lines
231 B
Text
10 lines
231 B
Text
--unittest in standard library 4.0+
|
|
include std/unittest.e
|
|
include palendrome.e --routines to be tested
|
|
|
|
object p = "12321"
|
|
|
|
test_equal("12321", 1, isPalindrome(p))
|
|
test_equal("r12321", 1, isPalindrome(reverse(p)))
|
|
|
|
test_report()
|