This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/oct.t: Add descriptions to tests lacking them.
authorJames E Keenan <jkeenan@cpan.org>
Fri, 28 Dec 2012 02:51:54 +0000 (21:51 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 5 Jan 2013 19:09:19 +0000 (14:09 -0500)
t/op/oct.t

index f037db3..d8caecd 100644 (file)
@@ -1,6 +1,6 @@
 #!./perl
 
 #!./perl
 
-# tests 51 onwards aren't all warnings clean. (intentionally)
+# Tests 51 onwards are intentionally not all-warnings-clean
 
 require './test.pl';
 use strict;
 
 require './test.pl';
 use strict;
@@ -105,33 +105,37 @@ foreach(['01_234', 0b_1001000110100],
 
 
 $_ = "\0_7_7";
 
 
 $_ = "\0_7_7";
-is(length, 5);
-is($_, "\0"."_"."7"."_"."7");
+is(length, 5,
+    "length() correctly calculated string with nul character in octal");
+is($_, "\0"."_"."7"."_"."7", "string concatenation with nul character");
 chop, chop, chop, chop;
 chop, chop, chop, chop;
-is($_, "\0");
+is($_, "\0", "repeated chop() eliminated all but nul character");
 if (ord("\t") != 9) {
 if (ord("\t") != 9) {
-    # question mark is 111 in 1047, 037, && POSIX-BC
-    is("\157_", "?_");
+    is("\157_", "?_",
+        "question mark is 111 in 1047, 037, && POSIX-BC");
 }
 else {
 }
 else {
-    is("\077_", "?_");
+    is("\077_", "?_",
+        "question mark is 077 in other than 1047, 037, && POSIX-BC");
 }
 
 $_ = "\x_7_7";
 }
 
 $_ = "\x_7_7";
-is(length, 5);
-is($_, "\0"."_"."7"."_"."7");
+is(length, 5,
+    "length() correctly calculated string with nul character in hex");
+is($_, "\0"."_"."7"."_"."7", "string concatenation with nul character");
 chop, chop, chop, chop;
 chop, chop, chop, chop;
-is($_, "\0");
+is($_, "\0", "repeated chop() eliminated all but nul character");
 if (ord("\t") != 9) {
 if (ord("\t") != 9) {
-    # / is 97 in 1047, 037, && POSIX-BC
-    is("\x61_", "/_");
+    is("\x61_", "/_",
+        "/ is 97 in 1047, 037, && POSIX-BC");
 }
 else {
 }
 else {
-    is("\x2F_", "/_");
+    is("\x2F_", "/_",
+        "/ is 79 in other than 1047, 037, && POSIX-BC");
 }
 
 eval '$a = oct "10\x{100}"';
 }
 
 eval '$a = oct "10\x{100}"';
-like($@, qr/Wide character/);
+like($@, qr/Wide character/, "wide character - oct");
 
 eval '$a = hex "ab\x{100}"';
 
 eval '$a = hex "ab\x{100}"';
-like($@, qr/Wide character/);
+like($@, qr/Wide character/, "wide character - hex");