diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-10-19 10:23:11 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-10-19 10:23:11 +0000 |
| commit | 486bcc50ba13b9bb0f294f39e26e6e0d78f5f1fe (patch) | |
| tree | c408d2b20b5aaf9bf9a25827f8136478a75fdeca /ext/Cwd | |
| parent | 444c2e40cd0ea36b829c3148c73f26229f0ec7aa (diff) | |
| download | perl-486bcc50ba13b9bb0f294f39e26e6e0d78f5f1fe.tar.gz | |
Upgrade PathTools to 3.28_01
p4raw-id: //depot/perl@34514
Diffstat (limited to 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/t/win32.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/ext/Cwd/t/win32.t b/ext/Cwd/t/win32.t index f4945f6dd9..2934c81671 100644 --- a/ext/Cwd/t/win32.t +++ b/ext/Cwd/t/win32.t @@ -11,7 +11,7 @@ use lib File::Spec->catdir('t', 'lib'); use Test::More; if( $^O eq 'MSWin32' ) { - plan tests => 3; + plan tests => 4; } else { plan skip_all => 'this is not win32'; } @@ -29,3 +29,10 @@ if (defined $ddir) { # May not have a D: drive mounted ok 1; } + +# Ensure compatibility with naughty versions of Template::Toolkit, +# which pass in a bare $1 as an argument +'Foo/strawberry' =~ /(.*)/; +my $result = File::Spec::Win32->catfile('C:/cache', $1); +is( $result, 'C:\cache\Foo\strawberry' ); + |