11 lines
231 B
Text
11 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()
|