t/run/switchF1.t: Add descriptions to tests in t/run/switchF1.t.
authorJames E Keenan <jkeenan@cpan.org>
Fri, 23 Nov 2012 18:18:05 +0000 (13:18 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Fri, 30 Nov 2012 01:56:03 +0000 (20:56 -0500)
For: RT #115896

t/run/switchF1.t

index f94c159..b781a3b 100644 (file)
@@ -14,10 +14,10 @@ BEGIN {
 print "@F";
 
 __DATA__
-okx1
-okq2
-ok\3
-ok'4
+okx1x- use of alternate delimiter (lower case letter) in -F
+okq2q- use of alternate delimiter (lower case letter) in -F
+ok\3\- use of alternate delimiter (backslash) in -F
+ok'4'- use of alternate delimiter (apostrophe) in -F
 EOT
 
 # 2 of the characters toke.c used to use to quote the split parameter:
@@ -26,6 +26,8 @@ $prog =~ s/QQ/\x01\x80/;
 print F $prog;
 close F or die "Close $file: $!";
 
-print system ($^X, $file) ? "not ok 5\n" : "ok 5\n";
+$count = 5;
+$result = "ok $count - complete test of alternate delimiters in -F\n";
+print system ($^X, $file) ? "not $result" : $result;
 
 unlink $file or die "Unlink $file: $!";