basis/globs/globs-tests.factor

   1 USING: arrays tools.test globs io.pathnames sequences ;
   2 IN: globs.tests
   3
   4 { f } [ "abd" "fdf" glob-matches? ] unit-test
   5 { f } [ "fdsafas" "?" glob-matches? ] unit-test
   6 { t } [ "fdsafas" "*as" glob-matches? ] unit-test
   7 { t } [ "fdsafas" "*a*" glob-matches? ] unit-test
   8 { t } [ "fdsafas" "*a?" glob-matches? ] unit-test
   9 { t } [ "fdsafas" "*?" glob-matches? ] unit-test
  10 { f } [ "fdsafas" "*s?" glob-matches? ] unit-test
  11 { t } [ "a" "[abc]" glob-matches? ] unit-test
  12 { f } [ "a" "[^abc]" glob-matches? ] unit-test
  13 { t } [ "d" "[^abc]" glob-matches? ] unit-test
  14 { f } [ "foo.java" "*.{xml,txt}" glob-matches? ] unit-test
  15 { t } [ "foo.txt" "*.{xml,txt}" glob-matches? ] unit-test
  16 { t } [ "foo.xml" "*.{xml,txt}" glob-matches? ] unit-test
  17 { f } [ "foo." "*.{xml,txt}" glob-matches? ] unit-test
  18 { t } [ "foo." "*.{,xml,txt}" glob-matches? ] unit-test
  19 { t } [ "foo.{" "*.{" glob-matches? ] unit-test
  20
  21 { f } [ "foo" "bar" append-path "*" glob-matches? ] unit-test
  22 { t } [ "foo" "bar" append-path "*" "*" append-path glob-matches? ] unit-test
  23 { f } [ "foo" "bar" append-path "foo?bar" glob-matches? ] unit-test
  24 { t } [ "foo" "bar" append-path "fo?" "bar" append-path glob-matches? ] unit-test
  25
  26 { f } [ "foo" glob-pattern? ] unit-test
  27 { t } [ "fo?" glob-pattern? ] unit-test
  28 { t } [ "fo*" glob-pattern? ] unit-test
  29 { t } [ "fo[mno]" glob-pattern? ] unit-test
  30 { t } [ "fo\\*" glob-pattern? ] unit-test
  31 { t } [ "fo{o,bro}" glob-pattern? ] unit-test
  32
  33 { "foo" "bar" } path-separator join }
  34 [ { "foo" "bar" "ba?" } path-separator join glob-parent-directory ] unit-test
  35
  36 { "foo" }
  37 [ { "foo" "b?r" "bas" } path-separator join glob-parent-directory ] unit-test
  38
  39 { "" }
  40 [ { "f*" "bar" "bas" } path-separator join glob-parent-directory ] unit-test