Deparse nits.

[p5sagit/p5-mst-13.2.git] / t / lib / b-deparse.t

diff --git a/t/lib/b-deparse.t b/t/lib/b-deparse.t
index b321213..e0d3546 100644 (file)
--- a/t/lib/b-deparse.t
+++ b/t/lib/b-deparse.t
@@ -113,7 +113,7 @@ LINE: while (defined($_ = <ARGV>)) {
 }
 
 EOF
-print "# [$a]\n\# vs\n# [$b]\nnot " if $a ne $b;
+print "# [$a]\n\# vs expected\n# [$b]\nnot " if $a ne $b;
 ok;
 
 
@@ -124,6 +124,9 @@ my $foo = $deparse->coderef2text(sub { { 234; }});
 print "not " unless $foo =~ /{.*{.*234;.*}.*}/sm;
 ok;
 $foo = $deparse->coderef2text(sub { { 234; } continue { 123; } });
-print "not " unless $foo =~ /{.*{.*234;.*}.*continue.*{.*123.*}/sm;
+unless ($foo =~ /{\s*{\s*234\s*}\s*continue\s*{\s*123;\s*}/sm) {
+  print "# [$foo]\n\# vs expected\n# [sub { { 234 } continue { 123; } }]\n";
+  print "not ";
+}
 ok;
 }