Merge e2a6c73 into 1005e8f

Perl · May 6, 2021 · 64d16d9 · 64d16d9
2 parents 1005e8f + e2a6c73
commit 64d16d9
Show file tree

Hide file tree

Showing 5 changed files with 379 additions and 244 deletions.
diff --git a/t/base/cond.t b/t/base/cond.t
@@ -1,6 +1,13 @@
 #!./perl
 
-# make sure conditional operators work
+# t/base/cond.t - check conditional operators
+#
+# Test plan
+#
+#   eq
+#   ne
+#   ==
+#   !=
 
 print "1..4\n";
 

diff --git a/t/base/if.t b/t/base/if.t
@@ -1,9 +1,11 @@
 #!./perl
 
+# t/base/if.t - check "if"
+
 print "1..2\n";
 
-# first test to see if we can run the tests.
+# First test to see if we can run the tests.
 
 $x = 'test';
-if ($x eq $x) { print "ok 1 - if eq\n"; } else { print "not ok 1 - if eq\n";}
-if ($x ne $x) { print "not ok 2 - if ne\n"; } else { print "ok 2 - if ne\n";}
+if ($x eq $x) { print "ok 1 - if eq\n"; } else { print "not ok 1 - if eq\n"; }
+if ($x ne $x) { print "not ok 2 - if ne\n"; } else { print "ok 2 - if ne\n"; }
diff --git a/t/base/pat.t b/t/base/pat.t
@@ -1,9 +1,16 @@
 #!./perl
 
+# t/base/pat.t - check base regex for $_
+
 print "1..2\n";
 
-# first test to see if we can run the tests.
+# First test to see if we can run the tests.
 
 $_ = 'test';
-if (/^test/) { print "ok 1 - match regex\n"; } else { print "not ok 1 - match regex\n";}
-if (/^foo/) { print "not ok 2 - match regex\n"; } else { print "ok 2 - match regex\n";}
+/^test/
+  ? ( print "ok 1 - match regex\n" )
+  : ( print "not ok 1 - match regex\n" );
+
+/^foo/
+  ? ( print "not ok 2 - match regex\n" )
+  : ( print "ok 2 - match regex\n" );