RosettaCodeData/Task/Test-a-function/Factor/test-a-function-2.factor
Ingy döt Net 68f8f3e56b all tasks
2013-04-11 01:07:29 -07:00

5 lines
137 B
Factor

USING: palindrome tools.test ;
IN: palindrome.tests
[ t ] [ "racecar" palindrome? ] unit-test
[ f ] [ "ferrari" palindrome? ] unit-test