diff options
Diffstat (limited to 'tests/value/reverse.test')
-rw-r--r-- | tests/value/reverse.test | 82 |
1 files changed, 0 insertions, 82 deletions
diff --git a/tests/value/reverse.test b/tests/value/reverse.test deleted file mode 100644 index 9ea9d09..0000000 --- a/tests/value/reverse.test +++ /dev/null @@ -1,82 +0,0 @@ -# file : tests/value/reverse.test -# copyright : Copyright (c) 2014-2018 Code Synthesis Ltd -# license : MIT; see accompanying LICENSE file - -# Test reversal to canonical/original representation. -# - -.include ../common.test - -: name -: -{ - : dir - : - $* <<EOI >>EOO - x = s/foo/bar/ - print ([string] $x) - print "$x" - print -e=$x - EOI - s/foo/bar/ - s/foo/bar/ - -e=s/foo/bar/ - EOO - - : proj - : - $* <<EOI >>EOO - print ([strings] foo%bar foo% %bar) - EOI - foo%bar foo% %bar - EOO - - : pair - : - $* <<EOI >>EOO - print ([strings] foo@bar foo/@bar/ foo@ @bar @ "@@") - EOI - foo@bar foo/@bar/ foo@ @bar @ @@ - EOO - - : combined - : - $* <<EOI >>EOO - print ([strings] xx%foo@yy%bar xx%foo/@yy%bar/) - EOI - xx%foo@yy%bar xx%foo/@yy%bar/ - EOO -} - -: dir-path -: -{ - : rel - : - $* <<EOI >>"EOO" - x = [dir_path] foo/bar/ - print ([string] $x) - print "$x" - print "-I$x" - EOI - foo/bar/ - foo/bar - -Ifoo/bar - EOO - - : root - : - if ($cxx.target.class != 'windows') - { - $* <<EOI >>EOO - x = [dir_path] / - print ([string] $x) - print "$x" - print "-I$x" - EOI - / - / - -I/ - EOO - } -} |