Rename some test files

[perl/modules/indirect.git] / t / 21-bad-fatal.t

diff --git a/t/21-bad-fatal.t b/t/21-bad-fatal.t
deleted file mode 100644 (file)
index 6b7b61c..0000000
--- a/t/21-bad-fatal.t
+++ /dev/null
@@ -1,17 +0,0 @@
-#!perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 1;
-
-{
- local $SIG{__WARN__} = sub { die 'warn:' . join(' ', @_) };
- eval <<HERE;
-die qq{shouldn't even compile\n};
-no indirect ':fatal';
-my \$x = new Hlagh;
-\$x = new Fail;
-HERE
- like($@, qr/^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"Hlagh"/, 'croak when :fatal is specified');
-}