Don't match against locale-dependent $!

This commit is contained in:
Richard Hansen 2020-07-08 15:36:12 -04:00
parent 4e1607c8f6
commit 192a00ad64

View file

@ -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) {