extra/spelling/spelling-tests.factor

   1 USING: kernel sequences spelling tools.test memoize ;
   2 IN: spelling.tests
   3
   4 { { "bc" "ac" "ab" } } [ "abc" deletes ] unit-test
   5 { { "bac" "acb" } } [ "abc" transposes ] unit-test
   6 { t } [ "a" replaces concat ALPHABET = ] unit-test
   7 { 104 } [ "abc" inserts length ] unit-test
   8
   9 MEMO: test-dictionary ( -- assoc )
  10     "vocab:spelling/test.txt" load-dictionary ;
  11
  12 : test-correct ( word -- word/f )
  13     test-dictionary (correct) ;
  14
  15 { "government" } [ "goverment" test-correct ] unit-test
  16 { "government" } [ "govxernment" test-correct ] unit-test
  17 { "government" } [ "govermnent" test-correct ] unit-test
  18 { "government" } [ "govxermnent" test-correct ] unit-test
  19 { "government" } [ "govyrmnent" test-correct ] unit-test