15 lines
494 B
Factor
15 lines
494 B
Factor
USING: spelling tools.test memoize ;
|
|
IN: spelling.tests
|
|
|
|
MEMO: test-dictionary ( -- assoc )
|
|
"vocab:spelling/test.txt" load-dictionary ;
|
|
|
|
: test-correct ( word -- word/f )
|
|
test-dictionary (correct) ;
|
|
|
|
[ "government" ] [ "goverment" test-correct ] unit-test
|
|
[ "government" ] [ "govxernment" test-correct ] unit-test
|
|
[ "government" ] [ "govermnent" test-correct ] unit-test
|
|
[ "government" ] [ "govxermnent" test-correct ] unit-test
|
|
[ "government" ] [ "govyrmnent" test-correct ] unit-test
|