diff options
Diffstat (limited to 'tests/test/script/runner/regex.testscript')
| -rw-r--r-- | tests/test/script/runner/regex.testscript | 312 |
1 files changed, 312 insertions, 0 deletions
diff --git a/tests/test/script/runner/regex.testscript b/tests/test/script/runner/regex.testscript new file mode 100644 index 0000000..46b1872 --- /dev/null +++ b/tests/test/script/runner/regex.testscript @@ -0,0 +1,312 @@ +# file : tests/test/script/runner/regex.testscript +# copyright : Copyright (c) 2014-2018 Code Synthesis Ltd +# license : MIT; see accompanying LICENSE file + +# Here we test that regex objects are properly created by the parser/runner +# venture. The unit test approach is not of much use as regex object is not +# serializable back to string. The only way we can test their proper creation +# is via matching. +# +# Note that such a tests are separated from ones that check regex matching +# specifically (in particular matching failures), The latest ones are located +# in redirect.testscript. +# +# Also note that the following tests are grouped by features: basic +# functionality, flags, portable-path modifier. +# + +.include ../common.testscript + +: basic +: +{ + : str + : + { + $c <'cat <foo >~/fo./' && $b : out + $c <'cat <foo 1>&2 2>~/fo./' && $b : err + $c <'cat <:foo >:~/fo./' && $b : no-newline + + : malformed + : + : Note that old versions of libc++ (for example 1.1) do not detect some + : regex errors. For example '*' is parsed successfully. + : + $c <'cat <foo >~/foo[/' && $b 2>>~/EOE/ != 0 + /testscript:1:12: error: invalid stdout regex redirect.*/ + info: regex: '/foo[/' + EOE + + : no-match + : + $c <'cat <foo >~/bar/' && $b 2>>/EOE != 0 + testscript:1:1: error: cat stdout doesn't match regex + info: stdout: test/1/stdout + info: stdout regex: test/1/stdout.regex + info: stdin: test/1/stdin + foo + EOE + } + + : doc + : + { + : out + : + $c <<EOI && $b + cat <foo >>~/EOO/ + /foo/ + EOO + EOI + + : err + : + $c <<EOI && $b + cat <foo 1>&2 2>>~/EOO/ + /fo./ + EOO + EOI + + : no-newline + : + $c <<EOI && $b + cat <:foo >>:~/EOO/ + /fo./ + EOO + EOI + + : line-char + : + $c <<EOI && $b + cat <<EOF >>~/EOO/ + foo + bar + baz + baz + Biz + Fox + fox + + + + + EOF + foo + /? + /bar/ + /baz/+ + /biz/i + /fox/i+ + + // + //{2} + EOO + EOI + + : expansion + : + $c <<EOI && $b + s="O*/i + bar + "; + cat <<EOF >>~"/EOO/" + foo + bar + + baz + EOF + /f$(s) + baz + EOO + EOI + + : invalid-syntax-char + : + $c <<EOI && $b 2>>EOE != 0 + cat <foo >>~/EOO/ + /x + EOO + EOI + testscript:2:1: error: invalid syntax character 'x' in stdout regex redirect + info: regex line: '/x' + EOE + + : invalid-char-regex + : + $c <<EOI && $b 2>>~/EOE/ != 0 + cat <foo >>~/EOO/ + /foo[/ + EOO + EOI + /testscript:2:1: error: invalid char-regex in stdout regex redirect.*/ + info: regex line: '/foo[/' + EOE + + : invalid-line-regex + : + $c <<EOI && $b 2>>/~%EOE% != 0 + cat <foo >>~/EOO/ + a + /{ + EOO + EOI + %testscript:4:1: error: invalid stdout regex redirect.*% + info: stdout regex: test/1/stdout.regex + EOE + + : no-match + : + { + : leading-blank + : + $c <<EOI && $b 2>>/EOE != 0 + cat <foo >>~/EOO/ + + foo + EOO + EOI + testscript:1:1: error: cat stdout doesn't match regex + info: stdout: test/1/stdout + info: stdout regex: test/1/stdout.regex + info: stdin: test/1/stdin + foo + EOE + } + } +} + +:flags +: +{ + : str + : + { + : i + : + $c <'cat <Foo >~/foo/i' && $b + + : d + : + { + : escaped-dot + : + : Escaped dot becomes syntax dot and matches any character ('i' in our + : case). + : + $c <'cat <fio >~/f\\.o/d' && $b + + : syntax-dot + : + : Syntax dot becomes escaped dot and matches only '.' and so we fail. + : + $c <'cat <fio >~/f.o/d' && $b 2>>~/EOE/ != 0 + testscript:1:1: error: cat stdout doesn't match regex + /.+ + EOE + } + } + + : doc + { + : i + : + $c <<EOI && $b + cat <Foo >>~/EOO/ + /foo/i + EOO + EOI + + : d + : + : All the reasonings for the /flags/str/d test group are valid for the + : current one. + : + { + : escaped-dot + : + $c <<EOI && $b + cat <fio >>~/EOO/ + /f\.o/d + EOO + EOI + + : syntax-dot + : + $c <<EOI && $b 2>>~/EOE/ != 0 + cat <fio >>~/EOO/ + /f.o/d + EOO + EOI + testscript:1:1: error: cat stdout doesn't match regex + /.+ + EOE + } + + : global + : + { + : i + : + $c <<EOI && $b + cat <Foo >>~/EOO/i + /foo/ + EOO + EOI + + : d + : + { + : escaped-dot + : + $c <<EOI && $b + cat <fio >>~/EOO/d + /f\.o/ + EOO + EOI + + : syntax-dot + : + $c <<EOI && $b 2>>~/EOE/ != 0 + cat <fio >>~/EOO/d + /f.o/ + EOO + EOI + testscript:1:1: error: cat stdout doesn't match regex + /.+ + EOE + } + } + } +} + +: portable-path +: +{ + ps = ($cxx.target.class != 'windows' ? '/' : '\') + + : str + : + { + $c <"cat <'foo$ps' >/~%foo/%" && $b : out + $c <"cat <'foo$ps' 1>&2 2>/~%foo/%" && $b : err + } + + : doc + { + : out + : + $c <<"EOI" && $b + cat <'foo$ps' >>/~%EOO% + foo/ + EOO + EOI + + : err + : + $c <<"EOI" && $b + cat <'foo$ps' 1>&2 2>>/~%EOO% + foo/ + EOO + EOI + } +} |