159 lines
5.3 KiB
Factor
159 lines
5.3 KiB
Factor
USING: regexp tools.test ;
|
|
IN: regexp-tests
|
|
|
|
[ f ] [ "b" "a*" matches? ] unit-test
|
|
[ t ] [ "" "a*" matches? ] unit-test
|
|
[ t ] [ "a" "a*" matches? ] unit-test
|
|
[ t ] [ "aaaaaaa" "a*" matches? ] unit-test
|
|
[ f ] [ "ab" "a*" matches? ] unit-test
|
|
|
|
[ t ] [ "abc" "abc" matches? ] unit-test
|
|
[ t ] [ "a" "a|b|c" matches? ] unit-test
|
|
[ t ] [ "b" "a|b|c" matches? ] unit-test
|
|
[ t ] [ "c" "a|b|c" matches? ] unit-test
|
|
[ f ] [ "c" "d|e|f" matches? ] unit-test
|
|
|
|
[ f ] [ "aa" "a|b|c" matches? ] unit-test
|
|
[ f ] [ "bb" "a|b|c" matches? ] unit-test
|
|
[ f ] [ "cc" "a|b|c" matches? ] unit-test
|
|
[ f ] [ "cc" "d|e|f" matches? ] unit-test
|
|
|
|
[ f ] [ "" "a+" matches? ] unit-test
|
|
[ t ] [ "a" "a+" matches? ] unit-test
|
|
[ t ] [ "aa" "a+" matches? ] unit-test
|
|
|
|
[ t ] [ "" "a?" matches? ] unit-test
|
|
[ t ] [ "a" "a?" matches? ] unit-test
|
|
[ f ] [ "aa" "a?" matches? ] unit-test
|
|
|
|
[ f ] [ "" "." matches? ] unit-test
|
|
[ t ] [ "a" "." matches? ] unit-test
|
|
[ t ] [ "." "." matches? ] unit-test
|
|
! [ f ] [ "\n" "." matches? ] unit-test
|
|
|
|
[ f ] [ "" ".+" matches? ] unit-test
|
|
[ t ] [ "a" ".+" matches? ] unit-test
|
|
[ t ] [ "ab" ".+" matches? ] unit-test
|
|
|
|
[ t ] [ "" "a|b*|c+|d?" matches? ] unit-test
|
|
[ t ] [ "a" "a|b*|c+|d?" matches? ] unit-test
|
|
[ t ] [ "c" "a|b*|c+|d?" matches? ] unit-test
|
|
[ t ] [ "cc" "a|b*|c+|d?" matches? ] unit-test
|
|
[ f ] [ "ccd" "a|b*|c+|d?" matches? ] unit-test
|
|
[ t ] [ "d" "a|b*|c+|d?" matches? ] unit-test
|
|
|
|
[ t ] [ "foo" "foo|bar" matches? ] unit-test
|
|
[ t ] [ "bar" "foo|bar" matches? ] unit-test
|
|
[ f ] [ "foobar" "foo|bar" matches? ] unit-test
|
|
|
|
[ f ] [ "" "(a)" matches? ] unit-test
|
|
[ t ] [ "a" "(a)" matches? ] unit-test
|
|
[ f ] [ "aa" "(a)" matches? ] unit-test
|
|
[ t ] [ "aa" "(a*)" matches? ] unit-test
|
|
|
|
[ f ] [ "aababaaabbac" "(a|b)+" matches? ] unit-test
|
|
[ t ] [ "ababaaabba" "(a|b)+" matches? ] unit-test
|
|
|
|
[ f ] [ "" "a{1}" matches? ] unit-test
|
|
[ t ] [ "a" "a{1}" matches? ] unit-test
|
|
[ f ] [ "aa" "a{1}" matches? ] unit-test
|
|
|
|
[ f ] [ "a" "a{2,}" matches? ] unit-test
|
|
[ t ] [ "aaa" "a{2,}" matches? ] unit-test
|
|
[ t ] [ "aaaa" "a{2,}" matches? ] unit-test
|
|
[ t ] [ "aaaaa" "a{2,}" matches? ] unit-test
|
|
|
|
[ t ] [ "" "a{,2}" matches? ] unit-test
|
|
[ t ] [ "a" "a{,2}" matches? ] unit-test
|
|
[ t ] [ "aa" "a{,2}" matches? ] unit-test
|
|
[ f ] [ "aaa" "a{,2}" matches? ] unit-test
|
|
[ f ] [ "aaaa" "a{,2}" matches? ] unit-test
|
|
[ f ] [ "aaaaa" "a{,2}" matches? ] unit-test
|
|
|
|
[ f ] [ "" "a{1,3}" matches? ] unit-test
|
|
[ t ] [ "a" "a{1,3}" matches? ] unit-test
|
|
[ t ] [ "aa" "a{1,3}" matches? ] unit-test
|
|
[ t ] [ "aaa" "a{1,3}" matches? ] unit-test
|
|
[ f ] [ "aaaa" "a{1,3}" matches? ] unit-test
|
|
|
|
[ f ] [ "" "[a]" matches? ] unit-test
|
|
[ t ] [ "a" "[a]" matches? ] unit-test
|
|
[ t ] [ "a" "[abc]" matches? ] unit-test
|
|
[ f ] [ "b" "[a]" matches? ] unit-test
|
|
[ f ] [ "d" "[abc]" matches? ] unit-test
|
|
[ t ] [ "ab" "[abc]{1,2}" matches? ] unit-test
|
|
[ f ] [ "abc" "[abc]{1,2}" matches? ] unit-test
|
|
|
|
[ f ] [ "" "[^a]" matches? ] unit-test
|
|
[ f ] [ "a" "[^a]" matches? ] unit-test
|
|
[ f ] [ "a" "[^abc]" matches? ] unit-test
|
|
[ t ] [ "b" "[^a]" matches? ] unit-test
|
|
[ t ] [ "d" "[^abc]" matches? ] unit-test
|
|
[ f ] [ "ab" "[^abc]{1,2}" matches? ] unit-test
|
|
[ f ] [ "abc" "[^abc]{1,2}" matches? ] unit-test
|
|
|
|
[ t ] [ "]" "[]]" matches? ] unit-test
|
|
[ f ] [ "]" "[^]]" matches? ] unit-test
|
|
|
|
! [ "^" "[^]" matches? ] unit-test-fails
|
|
[ t ] [ "^" "[]^]" matches? ] unit-test
|
|
[ t ] [ "]" "[]^]" matches? ] unit-test
|
|
|
|
[ t ] [ "[" "[[]" matches? ] unit-test
|
|
[ f ] [ "^" "[^^]" matches? ] unit-test
|
|
[ t ] [ "a" "[^^]" matches? ] unit-test
|
|
|
|
[ t ] [ "-" "[-]" matches? ] unit-test
|
|
[ f ] [ "a" "[-]" matches? ] unit-test
|
|
[ f ] [ "-" "[^-]" matches? ] unit-test
|
|
[ t ] [ "a" "[^-]" matches? ] unit-test
|
|
|
|
[ t ] [ "-" "[-a]" matches? ] unit-test
|
|
[ t ] [ "a" "[-a]" matches? ] unit-test
|
|
[ t ] [ "-" "[a-]" matches? ] unit-test
|
|
[ t ] [ "a" "[a-]" matches? ] unit-test
|
|
[ f ] [ "b" "[a-]" matches? ] unit-test
|
|
[ f ] [ "-" "[^-]" matches? ] unit-test
|
|
[ t ] [ "a" "[^-]" matches? ] unit-test
|
|
|
|
[ f ] [ "-" "[a-c]" matches? ] unit-test
|
|
[ t ] [ "-" "[^a-c]" matches? ] unit-test
|
|
[ t ] [ "b" "[a-c]" matches? ] unit-test
|
|
[ f ] [ "b" "[^a-c]" matches? ] unit-test
|
|
|
|
[ t ] [ "-" "[a-c-]" matches? ] unit-test
|
|
[ f ] [ "-" "[^a-c-]" matches? ] unit-test
|
|
|
|
[ t ] [ "\\" "[\\\\]" matches? ] unit-test
|
|
[ f ] [ "a" "[\\\\]" matches? ] unit-test
|
|
[ f ] [ "\\" "[^\\\\]" matches? ] unit-test
|
|
[ t ] [ "a" "[^\\\\]" matches? ] unit-test
|
|
|
|
[ t ] [ "0" "[\\d]" matches? ] unit-test
|
|
[ f ] [ "a" "[\\d]" matches? ] unit-test
|
|
[ f ] [ "0" "[^\\d]" matches? ] unit-test
|
|
[ t ] [ "a" "[^\\d]" matches? ] unit-test
|
|
|
|
[ t ] [ "a" "[a-z]{1,}|[A-Z]{2,4}|b*|c|(f|g)*" matches? ] unit-test
|
|
[ t ] [ "a" "[a-z]{1,2}|[A-Z]{3,3}|b*|c|(f|g)*" matches? ] unit-test
|
|
[ t ] [ "a" "[a-z]{1,2}|[A-Z]{3,3}" matches? ] unit-test
|
|
|
|
[ t ] [ "1000" "\\d{4,6}" matches? ] unit-test
|
|
[ t ] [ "1000" "[0-9]{4,6}" matches? ] unit-test
|
|
|
|
[ t ] [ "abc" "\\p{Lower}{3}" matches? ] unit-test
|
|
[ f ] [ "ABC" "\\p{Lower}{3}" matches? ] unit-test
|
|
[ t ] [ "ABC" "\\p{Upper}{3}" matches? ] unit-test
|
|
[ f ] [ "abc" "\\p{Upper}{3}" matches? ] unit-test
|
|
|
|
[ f ] [ "abc" "[\\p{Upper}]{3}" matches? ] unit-test
|
|
[ t ] [ "ABC" "[\\p{Upper}]{3}" matches? ] unit-test
|
|
|
|
[ t ] [ "" "\\Q\\E" matches? ] unit-test
|
|
[ f ] [ "a" "\\Q\\E" matches? ] unit-test
|
|
[ t ] [ "|*+" "\\Q|*+\\E" matches? ] unit-test
|
|
[ f ] [ "abc" "\\Q|*+\\E" matches? ] unit-test
|
|
|
|
[ t ] [ "S" "\\0123" matches? ] unit-test
|
|
[ t ] [ "SXY" "\\0123XY" matches? ] unit-test
|