This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Better diagnostics by removing an && from an ok() and converting it to
authorNicholas Clark <nick@ccl4.org>
Wed, 26 Dec 2007 17:02:34 +0000 (17:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 26 Dec 2007 17:02:34 +0000 (17:02 +0000)
two is()s.

p4raw-id: //depot/perl@32733

ext/B/t/deparse.t

index 8763b4a..7aeb159 100644 (file)
@@ -27,7 +27,7 @@ BEGIN {
     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 @@ is("{\n    (-1) ** \$a;\n}", $deparse->coderef2text(sub{(-1) ** $a }));
 
 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';