forked from Lainports/freebsd-ports
32 lines
1.1 KiB
Perl
32 lines
1.1 KiB
Perl
--- 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";
|
|
}
|
|
}
|
|
}
|