Permalink
Browse files

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

  • Loading branch information...
Reini Urban
Reini Urban committed Feb 18, 2014
1 parent abd07d5 commit d968cdae761d7ff15a9587b18a048b3bc4e67cc9
View
@@ -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

0 comments on commit d968cda

Please sign in to comment.