RosettaCodeData/Task/Test-a-function/Factor/test-a-function-2.factor

6 lines
137 B
Factor

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