diff options
-rw-r--r-- | tests/expansion/concat.test | 4 | ||||
-rw-r--r-- | tests/name/extension.test | 27 |
2 files changed, 23 insertions, 8 deletions
diff --git a/tests/expansion/concat.test b/tests/expansion/concat.test index ba98624..baaf1e1 100644 --- a/tests/expansion/concat.test +++ b/tests/expansion/concat.test @@ -8,7 +8,7 @@ : typed-exceptions : -$* <<EOI >>EOO +$* <<EOI >>/EOO d = [dir_path] dir s = [string] foo @@ -16,7 +16,7 @@ print $d/{bar} print $s{bar} print $d/$s{bar} print file{x$s} -print dir/{x$s} +print $d/{x$s} print prj%{x$s} EOI dir/bar diff --git a/tests/name/extension.test b/tests/name/extension.test index c7d7066..42a0d19 100644 --- a/tests/name/extension.test +++ b/tests/name/extension.test @@ -34,15 +34,24 @@ EOI touch foo.test.txt; $* <'./: txt{foo.test...}' + # Trailing dots are not allowed on Windows. + # + : specified-escape-one : - touch foo.; - $* <'./: txt{foo..}' + if ($test.target.class != 'windows') + { + touch foo.; + $* <'./: txt{foo..}' + } : specified-escape-two : - touch foo..; - $* <'./: txt{foo....}' + if ($test.target.class != 'windows') + { + touch foo..; + $* <'./: txt{foo....}' + } : specified-invalid : @@ -64,8 +73,14 @@ EOI touch foo.test.txt; $* <'print txt{fo?.test...}' >'txt{foo.test...}' + # Trailing dots are not allowed on Windows. + # + : specified-escape : - touch foo.; - $* <'print txt{fo?..}' >'txt{foo..}' + if ($test.target.class != 'windows') + { + touch foo.; + $* <'print txt{fo?..}' >'txt{foo..}' + } } |