projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Adding the failure diagnostic
[p5sagit/p5-mst-13.2.git]
/
t
/
op
/
subst.t
diff --git
a/t/op/subst.t
b/t/op/subst.t
index
7dd7a1c
..
907d0da
100755
(executable)
--- a/
t/op/subst.t
+++ b/
t/op/subst.t
@@
-6,7
+6,7
@@
BEGIN {
require Config; import Config;
}
-print "1..84\n";
+print "1..85\n";
$x = 'foo';
$_ = "x";
@@
-379,3
+379,7
@@
$_ = "C:/";
s/^([a-z]:)/\u$1/ and print "not ";
print "ok 84\n";
+$_ = "Charles Bronson";
+s/\B\w//g;
+print $_ eq "C B" ? "ok 85\n" : "not ok 85\n# \$_ eq '$_'\n";
+