Preparing A::H for CPAN release, upped version to 0.77

[p5sagit/p5-mst-13.2.git] / lib / Attribute / Handlers / t / multi.t

diff --git a/lib/Attribute/Handlers/t/multi.t b/lib/Attribute/Handlers/t/multi.t
index 4cb4992..cddab91 100644 (file)
--- a/lib/Attribute/Handlers/t/multi.t
+++ b/lib/Attribute/Handlers/t/multi.t
@@ -11,10 +11,10 @@ CHECK { $main::phase++ }
 # (correspondingly "not ok 13") depending on the success of chunk 13
 # of the test code):
 
-sub ok { $::count++; push @::results, [$_[1], $_[0]?"":"not "]; }
+sub ok { $::count++; push @::results, [$_[1], $_[0]?"":"not ", defined($_[2])?$_[2]:""]; }
 
 END { print "1..$::count\n";
-      print map "$_->[1]ok $_->[0]\n",
+      print map "$_->[1]ok $_->[0] $_->[2]\n",
                sort {$a->[0]<=>$b->[0]}
                        grep $_->[0], @::results }
 
@@ -143,14 +143,17 @@ sub Dummy::DESTROY { $out .= "bye\n" }
 ok( $out eq "begin\nbye\n", 45 );
 
 { my $dummy : Dummy;  $dummy = bless {}, 'Dummy'; }
-ok( $out eq "begin\nbye\nbye\n", 46 );
-
+if($] < 5.008) {
+ok( 1, 46, " # skip lexicals are not runtime prior to 5.8");
+} else {
+ok( $out eq "begin\nbye\nbye\n", 46);
+}
 # are lexical attributes reapplied correctly?
 sub dummy { my $dummy : Dummy; }
 $applied = 0;
 dummy(); dummy();
 if($] < 5.008) {
-ok(1, "47 # skip does not work with perl prior to 5.8");
+ok(1, 47, " # skip does not work with perl prior to 5.8");
 } else {
 ok( $applied == 2, 47 );
 }
@@ -176,7 +179,7 @@ eval {
 };
 my $match = $@ =~ /^Won't be able to apply END handler/; 
 if($] < 5.008) {
-ok(1,"52 # Skip, no difference between lexical handlers and normal handlers prior to 5.8");
+ok(1,52 ,"# Skip, no difference between lexical handlers and normal handlers prior to 5.8");
 } else {
 ok( $match, 52 );
 }