basis/lcs/lcs-tests.factor

   1 ! Copyright (C) 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test lcs ;
   4
   5 { 3 } [ "sitting" "kitten" levenshtein ] unit-test
   6 { 3 } [ "kitten" "sitting" levenshtein ] unit-test
   7 { 1 } [ "freshpak" "freshpack" levenshtein ] unit-test
   8 { 1 } [ "freshpack" "freshpak" levenshtein ] unit-test
   9
  10 { "hell" } [ "hello" "hell" lcs ] unit-test
  11 { "hell" } [ "hell" "hello" lcs ] unit-test
  12 { "ell" } [ "ell" "hell" lcs ] unit-test
  13 { "ell" } [ "hell" "ell" lcs ] unit-test
  14 { "abd" } [ "faxbcd" "abdef" lcs ] unit-test
  15
  16 { {
  17         T{ delete f CHAR: f }
  18         T{ retain f CHAR: a }
  19         T{ delete f CHAR: x }
  20         T{ retain f CHAR: b }
  21         T{ delete f CHAR: c }
  22         T{ retain f CHAR: d }
  23         T{ insert f CHAR: e }
  24         T{ insert f CHAR: f }
  25 } } [ "faxbcd" "abdef" lcs-diff ] unit-test