From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 18 May 2009 13:52:39 +0000 (+0200)
Subject: Remove old version of Fatal.t test, now moved under lib/autodie/t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=efc36d52fb6a79de18cc6fc155712ba20b7d0414;p=p5sagit%2Fp5-mst-13.2.git

Remove old version of Fatal.t test, now moved under lib/autodie/t
---

diff --git a/MANIFEST b/MANIFEST
index b883ae1..6ba8b98 100644
--- 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
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index a8bb6d0..b7bb0d0 100644
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -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
index 29d150d..0000000
--- a/lib/Fatal.t
+++ /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;