Change 32733 by [EMAIL PROTECTED] on 2007/12/26 17:02:34
Better diagnostics by removing an && from an ok() and converting it to
two is()s.
Affected files ...
... //depot/perl/ext/B/t/deparse.t#32 edit
Differences ...
==== //depot/perl/ext/B/t/deparse.t#32 (text) ====
Index: perl/ext/B/t/deparse.t
--- perl/ext/B/t/deparse.t#31~32687~ 2007-12-21 03:34:30.000000000 -0800
+++ perl/ext/B/t/deparse.t 2007-12-26 09:02:34.000000000 -0800
@@ -27,7 +27,7 @@
require feature;
feature->import(':5.10');
}
-use Test::More tests => 56;
+use Test::More tests => 57;
use B::Deparse;
my $deparse = B::Deparse->new();
@@ -102,8 +102,9 @@
use constant cr => ['hello'];
my $string = "sub " . $deparse->coderef2text(\&cr);
-my $val = (eval $string)->();
-ok( ref($val) eq 'ARRAY' && $val->[0] eq 'hello');
+my $val = (eval $string)->() or diag $string;
+is(ref($val), 'ARRAY');
+is($val->[0], 'hello');
my $Is_VMS = $^O eq 'VMS';
my $Is_MacOS = $^O eq 'MacOS';
End of Patch.
