diff options
Diffstat (limited to 'databases/p5-SQL-Translator/files/5.005_03-patch-t::16xml-parser.t')
-rw-r--r-- | databases/p5-SQL-Translator/files/5.005_03-patch-t::16xml-parser.t | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/databases/p5-SQL-Translator/files/5.005_03-patch-t::16xml-parser.t b/databases/p5-SQL-Translator/files/5.005_03-patch-t::16xml-parser.t deleted file mode 100644 index 2a37100b9b5b..000000000000 --- a/databases/p5-SQL-Translator/files/5.005_03-patch-t::16xml-parser.t +++ /dev/null @@ -1,32 +0,0 @@ ---- t/16xml-parser.t.orig Sun May 9 19:15:25 2004 -+++ t/16xml-parser.t Sun May 9 19:27:08 2004 -@@ -12,7 +12,7 @@ - - use strict; - use Test::More; --use Test::Exception; -+#use Test::Exception; # not actually used - - use strict; - use Data::Dumper; -@@ -49,16 +49,16 @@ - if ( exists $test->{$attr} ) { - my $ans = $test->{$attr}; - if ( $attr =~ m/^is_/ ) { -- if ($ans) { ok $fld->$attr, "$name - $attr true"; } -- else { ok !$fld->$attr, "$name - $attr false"; } -+ if ($ans) { ok $fld->$attr(), "$name - $attr true"; } -+ else { ok !$fld->$attr(), "$name - $attr false"; } - } - else { -- is $fld->$attr, $ans, "$name - $attr = '" -+ is $fld->$attr(), $ans, "$name - $attr = '" - .(defined $ans ? $ans : "NULL" )."'"; - } - } - else { -- ok !$fld->$attr, "$name - $attr not set"; -+ ok !$fld->$attr(), "$name - $attr not set"; - } - } - } |