25 lines
832 B
Factor
25 lines
832 B
Factor
USING: kernel tools.test regexp.parser fry sequences ;
|
|
IN: regexp.parser.tests
|
|
|
|
: regexp-parses ( string -- )
|
|
[ [ ] ] dip '[ _ parse-regexp drop ] unit-test ;
|
|
|
|
: regexp-fails ( string -- )
|
|
'[ _ parse-regexp ] must-fail ;
|
|
|
|
{
|
|
"a|b" "a.b" "a|b|c" "abc|b" "a|bcd" "a|(b)" "(?-i:a)" "||"
|
|
"(a)|b" "(a|b)" "((a)|(b))" "(?:a)" "(?i:a)" "|b" "b|"
|
|
"[abc]" "[a-c]" "[^a-c]" "[^]]" "[]a]" "[[]" "[]-a]" "[a-]" "[-]"
|
|
"foo*" "(foo)*" "(a|b)|c" "(foo){2,3}" "(foo){2,}"
|
|
"(foo){2}" "{2,3}" "{," "{,}" "}" "foo}" "[^]-a]" "[^-]a]"
|
|
"[a-]" "[^a-]" "[^a-]" "a{,2}" "(?#foobar)"
|
|
"\\p{Space}" "\\t" "\\[" "[\\]]" "\\P{Space}"
|
|
"\\ueeee" "\\0333" "\\xff" "\\\\" "\\w"
|
|
} [ regexp-parses ] each
|
|
|
|
{
|
|
"[^]" "[]" "a{foo}" "a{,}" "a{}" "(?)" "\\p{foo}" "\\P{foo}"
|
|
"\\ueeeg" "\\0339" "\\xfg"
|
|
} [ regexp-fails ] each
|