Remove old version of Fatal.t test, now moved under lib/autodie/t
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 18 May 2009 13:52:39 +0000 (15:52 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 18 May 2009 13:53:39 +0000 (15:53 +0200)
MANIFEST
Porting/Maintainers.pl
lib/Fatal.t [deleted file]

index b883ae1..6ba8b98 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2245,7 +2245,6 @@ lib/ExtUtils/XSSymSet.pm  on VMS, manage linker symbols when building extensions
 lib/ExtUtils/xsubpp            External subroutine preprocessor
 lib/fastcwd.pl                 a faster but more dangerous getcwd
 lib/Fatal.pm                   Make errors in functions/builtins fatal
-lib/Fatal.t                    See if Fatal works
 lib/feature.pm                 Pragma to enable new syntax
 lib/feature.t                  See if features work
 lib/fields.pm                  Set up object field names for pseudo-hash-using classes
index a8bb6d0..b7bb0d0 100644 (file)
@@ -1302,7 +1302,6 @@ package Maintainers;
                                        lib/ExtUtils/t/basic_finish.pl
                                        lib/ExtUtils/typemap
                                        lib/ExtUtils/xsubpp
-                                       lib/Fatal.t
                                        lib/File/Basename.{pm,t}
                                        lib/File/CheckTree.{pm,t}
                                        lib/File/Compare.{pm,t}
diff --git a/lib/Fatal.t b/lib/Fatal.t
deleted file mode 100755 (executable)
index 29d150d..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-#!./perl -w
-
-BEGIN {
-   chdir 't' if -d 't';
-   @INC = '../lib';
-   print "1..16\n";
-}
-
-use strict;
-use Fatal qw(open close :void opendir sin);
-
-my $i = 1;
-eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' };
-print "not " unless $@ =~ /^Can't open/;
-print "ok $i\n"; ++$i;
-
-my $foo = 'FOO';
-for ('$foo', "'$foo'", "*$foo", "\\*$foo") {
-    eval qq{ open $_, '<$0' };
-    print "not " if $@;
-    print "ok $i\n"; ++$i;
-
-    print "not " if $@ or scalar(<$foo>) !~ m|^#!./perl|;
-    print "ok $i\n"; ++$i;
-    eval qq{ close FOO };
-    print "not " if $@;
-    print "ok $i\n"; ++$i;
-}
-
-eval { opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' };
-print "not " unless $@ =~ /^Can't open/;
-print "ok $i\n"; ++$i;
-
-eval { my $a = opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' };
-print "not " if $@ =~ /^Can't open/;
-print "ok $i\n"; ++$i;
-
-eval { Fatal->import(qw(print)) };
-if ($@ !~ m{Cannot make the non-overridable builtin print fatal}) {
-    print "not ";
-}
-print "ok $i\n"; ++$i;