aboutsummaryrefslogtreecommitdiff
path: root/tests/name
diff options
context:
space:
mode:
Diffstat (limited to 'tests/name')
-rw-r--r--tests/name/buildfile5
-rw-r--r--tests/name/pattern.test237
2 files changed, 242 insertions, 0 deletions
diff --git a/tests/name/buildfile b/tests/name/buildfile
new file mode 100644
index 0000000..8eaf31e
--- /dev/null
+++ b/tests/name/buildfile
@@ -0,0 +1,5 @@
+# file : tests/name/buildfile
+# copyright : Copyright (c) 2014-2017 Code Synthesis Ltd
+# license : MIT; see accompanying LICENSE file
+
+./: test{pattern} $b
diff --git a/tests/name/pattern.test b/tests/name/pattern.test
new file mode 100644
index 0000000..e9e1c45
--- /dev/null
+++ b/tests/name/pattern.test
@@ -0,0 +1,237 @@
+# file : tests/name/pattern.test
+# copyright : Copyright (c) 2014-2017 Code Synthesis Ltd
+# license : MIT; see accompanying LICENSE file
+
+.include ../common.test
+
++cat <<EOI >=build/root.build
+define txt: file
+txt{*}: extension = txt
+EOI
+
+$* <'print p%*.txt' >'p%*.txt' : project-simple
+$* <'print p%{*.txt -x*}' >'p%*.txt p%-x*' : project-group
+
+$* <"print '*.txt'" >'*.txt' : quoted-single
+$* <'print "*.txt"' >'*.txt' : quoted-double
+$* <<EOI >'*.txt' : quoted-expansion
+pat = '*'
+print "$(pat).txt"
+EOI
+
+: detect
+:
+: Test pattern_mode parsing logic.
+{
+ : second-pattern
+ :
+ touch foo.txt;
+ $* <'print {foo *.txt}' >'foo foo.txt'
+
+ : second-inclusion
+ :
+ touch foo.txt bar.txt;
+ $* <'print {f*.txt +b*.txt}' >'foo.txt bar.txt'
+}
+
+: diagnostics
+:
+{
+ : simple
+ :
+ $* <'print {*.txt file{foo}}' 2>>EOE != 0
+ <stdin>:1:8: error: invalid 'file{foo}' in name pattern
+ EOE
+
+ : inclusion-exclusion-sign
+ :
+ $* <'print {*.txt foo}' 2>>EOE != 0
+ <stdin>:1:8: error: missing leading +/- in 'foo' name pattern
+ EOE
+
+ : empty-inclusion-exclusion
+ :
+ $* <'print {*.txt -}' 2>>EOE != 0
+ <stdin>:1:8: error: empty name pattern
+ EOE
+
+ : inconsistent-result
+ :
+ $* <'print {*.txt +foo/}' 2>>EOE != 0
+ <stdin>:1:8: error: inconsistent file/directory result in name pattern
+ EOE
+}
+
+: basics
+:
+{
+ touch foo.txt;
+ $* <'print *.txt' >'foo.txt' : simple-file
+
+ mkdir foo;
+ $* <'print */' >/'foo/' : simple-dir
+
+ touch foo.txt;
+ $* <'print {*.txt}' >'foo.txt' : group
+
+ mkdir dir && touch dir/foo.txt;
+ $* <'print dir/{*.txt}' >'dir/foo.txt' : dir
+
+ touch foo.txt;
+ $* <'print file{*.txt}' >'file{foo.txt}' : type
+
+ touch foo.txt;
+ $* <'print x@{*.txt}' >'x@foo.txt' : pair
+
+ touch bar.txt;
+ $* <'print x@dir/file{f*.txt}' >'' : empty
+
+ mkdir dir && touch dir/foo.txt;
+ $* <'print **.txt' >/'dir/foo.txt' : recursive
+
+ mkdir dir && touch dir/foo.txt;
+ $* <'print d*/*.txt' >/'dir/foo.txt' : multi-pattern
+
+ touch foo.txt bar.txt;
+ $* <'print {*.txt -bar.txt}' >'foo.txt' : exclude-match
+
+ touch foo.txt bar.txt;
+ $* <'print {*.txt -b*.txt}' >'foo.txt' : exclude-pattern
+
+ touch bar.txt;
+ $* <'print {f*.txt +bar.txt}' >'bar.txt' : include-match
+
+ touch bar.txt;
+ $* <'print {f*.txt +b*.txt}' >'bar.txt' : include-pattern
+
+ touch foo.txt fox.txt;
+ $* <'print {*.txt -f*.txt +*x.txt}' >'fox.txt' : include-exclude-order
+}
+
+: target-type
+:
+: Test target type-specific pattern amendment logic.
+{
+ : append-extension
+ :
+ touch foo.txt bar.txt;
+ $* <'print txt{* -bar}' >'txt{foo}'
+
+ : existing-extension
+ :
+ touch foo.txt bar.txt;
+ $* <'print txt{*.txt -bar.txt}' >'txt{foo.txt}'
+
+ : append-slash
+ :
+ mkdir foo bar;
+ $* <'print dir{* -bar}' >/'dir{foo/}'
+
+ : existing-slash
+ :
+ mkdir foo bar;
+ $* <'print dir{*/ -bar/}' >/'dir{foo/}'
+}
+
+: expansion
+:
+: Test interaction with expansion/concatenation/re-parse.
+{
+ # Do we want to recognize patterns in non-concatenating expansion?
+ #
+ # pat = '*.txt'
+ # print $pat
+ #
+ # While this case is probably better rewritten as (i.e., move pattern search
+ # to variable assignment):
+ #
+ # pat = *.txt
+ # print $pat
+ #
+ # One may also want to do something like this:
+ #
+ # pat = '*.txt'
+ # print dir1/{$pat}
+ # print dir2/{$pat}
+ #
+ # Note that if we make it work, escaping this case will be pretty hairy:
+ #
+ # filters = --include '*.txt' --exclude '*.obj'
+ # options += $filters
+
+ #: pattern-via-expansion
+ #:
+ #$* <<EOI >'<*.txt>'
+ #pat = '*.txt'
+ #print $pat
+ #EOI
+
+ #: pattern-via-expansion-list
+ #:
+ #$* <<EOI >'<*.hxx+*.txt>'
+ #pats = '*.hxx' '+*.txt'
+ #print {$pats}
+ #EOI
+
+ #: pattern-via-expansion-type
+ #:
+ #$* <<EOI >'<*.txt>'
+ #pat = '*.txt'
+ #print txt{$pat}
+ #EOI
+
+ #: pattern-via-expansion-dir
+ #:
+ #$* <<EOI >'<*.txt>'
+ #pat = '*.txt'
+ #print dir/{$pat}
+ #EOI
+
+ : pattern-via-concat
+ :
+ touch foo.txt;
+ $* <<EOI >'foo.txt'
+ ext = txt
+ print *.$ext
+ EOI
+
+ : pattern-via-concat-expansion
+ :
+ touch foo.txt;
+ $* <<EOI >'foo.txt'
+ pat = 'f*'
+ ext = txt
+ print $pat.$ext
+ EOI
+}
+
+: command-line
+:
+: Test pattern expansion on the command line.
+{
+ : variable
+ :
+ {
+ mkdir dir;
+ $* <'print $d' 'd=*/' >/'dir/' : dir
+
+ mkdir dir;
+ $* <'print $d' 'd=dir{*}' >/'dir{dir/}' : dir-type
+
+ touch foo.txt;
+ $* <'print $f' 'f=*.txt' >'foo.txt' : feil
+ }
+
+ : buildspec
+ :
+ {
+ test.arguments =
+ test.options += --buildfile buildfile
+
+ mkdir dir && cat <'./:' >=dir/buildfile;
+ $* '*/' : dir
+
+ mkdir dir dir1 && cat <'./:' >=dir/buildfile;
+ $* 'update(dir{* -dir1})' : dir-type
+ }
+}