In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/d33f9fbdb3bb27a3b32a2ffa9aa035617c07f7a1?hp=6a4c4cd41c54334613baa6cada2145fd51e180e6>
- Log -----------------------------------------------------------------
commit d33f9fbdb3bb27a3b32a2ffa9aa035617c07f7a1
Author: David Mitchell <da...@iabyn.com>
Date: Mon Nov 19 13:52:46 2018 +0000
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.
-----------------------------------------------------------------------
Summary of changes:
ext/GDBM_File/t/fatal.t | 6 +++---
1 file 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*>;
--
Perl5 Master Repository
