Don't match against locale-dependent $!
This commit is contained in:
parent
4e1607c8f6
commit
192a00ad64
1 changed files with 2 additions and 2 deletions
|
@ -31,8 +31,8 @@ sub tc {
|
||||||
my @test_cases = (
|
my @test_cases = (
|
||||||
tc("create cache file", catfile($dir, 'a', 'b', 'cachefile'), undef),
|
tc("create cache file", catfile($dir, 'a', 'b', 'cachefile'), undef),
|
||||||
tc("overwrite cache file", catfile($dir, 'a', 'b', 'cachefile'), undef),
|
tc("overwrite cache file", catfile($dir, 'a', 'b', 'cachefile'), undef),
|
||||||
tc("bad directory", catfile($dir, 'a', 'b', 'cachefile', 'bad'), qr/File exists/),
|
tc("bad directory", catfile($dir, 'a', 'b', 'cachefile', 'bad'), qr/Failed to create/i),
|
||||||
tc("read-only directory", catfile($ro_dir, 'cachefile'), qr/Permission denied/),
|
tc("read-only directory", catfile($ro_dir, 'cachefile'), qr/Failed to create/i),
|
||||||
);
|
);
|
||||||
|
|
||||||
for my $tc (@test_cases) {
|
for my $tc (@test_cases) {
|
||||||
|
|
Loading…
Reference in a new issue