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 \ lcs must-infer
   6 \ diff must-infer
   7 \ levenshtein must-infer
   8
   9 [ 3 ] [ "sitting" "kitten" levenshtein ] unit-test
  10 [ 3 ] [ "kitten" "sitting" levenshtein ] unit-test
  11 [ 1 ] [ "freshpak" "freshpack" levenshtein ] unit-test
  12 [ 1 ] [ "freshpack" "freshpak" levenshtein ] unit-test
  13
  14 [ "hell" ] [ "hello" "hell" lcs ] unit-test
  15 [ "hell" ] [ "hell" "hello" lcs ] unit-test
  16 [ "ell" ] [ "ell" "hell" lcs ] unit-test
  17 [ "ell" ] [ "hell" "ell" lcs ] unit-test
  18 [ "abd" ] [ "faxbcd" "abdef" lcs ] unit-test
  19
  20 [ {
  21         T{ delete f CHAR: f }
  22         T{ retain f CHAR: a }
  23         T{ delete f CHAR: x }
  24         T{ retain f CHAR: b }
  25         T{ delete f CHAR: c }
  26         T{ retain f CHAR: d }
  27         T{ insert f CHAR: e }
  28         T{ insert f CHAR: f }
  29 } ] [ "faxbcd" "abdef" diff ] unit-test