summaryrefslogtreecommitdiff
path: root/databases/p5-SQL-Translator/files/5.005_03-patch-t::16xml-parser.t
diff options
context:
space:
mode:
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.t32
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";
- }
- }
- }