Skip to content

Commit

Permalink
ext/GDBM_File/t/fatal.t: support parallel testing
Browse files Browse the repository at this point in the history
t/harness was recently modified to run tests under ext/ etc in parallel.
ext/GDBM_File/t/ has two test scripts which both use the same filename.
Make fatal.t use a different name, so that it can run in parallel with
the other script.
  • Loading branch information
iabyn committed Nov 19, 2018
1 parent 6a4c4cd commit d33f9fb
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions ext/GDBM_File/t/fatal.t
Expand Up @@ -16,7 +16,7 @@ BEGIN {
use_ok('GDBM_File');
}

unlink <Op_dbmx*>;
unlink <fatal_dbmx*>;

open my $fh, '<', $^X or die "Can't open $^X: $!";
my $fileno = fileno $fh;
Expand All @@ -28,7 +28,7 @@ is((open $fh, "<&=$fileno"), undef,

umask(0);
my %h;
isa_ok(tie(%h, 'GDBM_File', 'Op_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');
isa_ok(tie(%h, 'GDBM_File', 'fatal_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');

isnt((open $fh, "<&=$fileno"), undef, "dup fileno $fileno")
or diag("\$! = $!");
Expand All @@ -46,4 +46,4 @@ is(eval {
like($@, qr/ at .*\bfatal\.t line \d+\.\n\z/,
'expected error message from GDBM_File');

unlink <Op_dbmx*>;
unlink <fatal_dbmx*>;

0 comments on commit d33f9fb

Please sign in to comment.