t/CORE/op/bless.t, t/C-COMPILED/CORE--io--utf8==BADTEST-255.t

rurban · Feb 18, 2014 · d968cda · d968cda
1 parent abd07d5
commit d968cda
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/t/C-COMPILED/CORE--io--utf8==BADPLAN-255.t → t/C-COMPILED/CORE--io--utf8==BADTEST-255.t b/t/C-COMPILED/CORE--io--utf8==BADPLAN-255.t → t/C-COMPILED/CORE--io--utf8==BADTEST-255.t
diff --git a/t/CORE/op/bless.t b/t/CORE/op/bless.t
@@ -1,6 +1,6 @@
 #!./perl
 
-BEGIN {
+INIT {
     require 't/CORE/test.pl';
 }
 
@@ -99,17 +99,17 @@ expected(bless([]), 'main', "ARRAY");
 
     $m = bless [];
     expected($m, 'main', "ARRAY");
-    is (scalar @w, 0);
+    is (scalar @w, 0, "array 0");
 
     @w = ();
     $m = bless [], '';
     expected($m, 'main', "ARRAY");
-    is (scalar @w, 1);
+    is (scalar @w, 1, "array 1");
 
     @w = ();
     $m = bless [], undef;
     expected($m, 'main', "ARRAY");
-    is (scalar @w, 2);
+    is (scalar @w, 2, "array 2");
 }
 
 # class is a ref