aboutsummaryrefslogtreecommitdiff
path: root/tests/test/script/runner/regex.testscript
diff options
context:
space:
mode:
authorBoris Kolpackov <boris@codesynthesis.com>2018-09-03 16:37:32 +0200
committerKaren Arutyunov <karen@codesynthesis.com>2018-09-04 16:29:59 +0300
commit5007870b52aa549971824959a55ad3bb886f09e0 (patch)
treeb0ef7f24c0b9ece2ed23f3c1792f16da324e4171 /tests/test/script/runner/regex.testscript
parent09d60452a80d14d9b8bf3a9395860b50683fa1e8 (diff)
Rename .test/test{} to .testscript/testscript{}
Diffstat (limited to 'tests/test/script/runner/regex.testscript')
-rw-r--r--tests/test/script/runner/regex.testscript312
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
+ }
+}