diff options
| author | David Mitchell <davem@iabyn.com> | 2018-11-19 13:52:46 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2018-11-19 13:52:46 +0000 |
| commit | d33f9fbdb3bb27a3b32a2ffa9aa035617c07f7a1 (patch) | |
| tree | 508f6bb1ee425d367138bc72ef33e91e5517bf0f /ext | |
| parent | 6a4c4cd41c54334613baa6cada2145fd51e180e6 (diff) | |
| download | perl-d33f9fbdb3bb27a3b32a2ffa9aa035617c07f7a1.tar.gz | |
ext/GDBM_File/t/fatal.t: support parallel testing
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.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/GDBM_File/t/fatal.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/GDBM_File/t/fatal.t b/ext/GDBM_File/t/fatal.t index 0e426d4dbc..3ba66be598 100644 --- a/ext/GDBM_File/t/fatal.t +++ b/ext/GDBM_File/t/fatal.t @@ -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; @@ -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("\$! = $!"); @@ -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*>; |