And what the hell is t/UTEST? Looks like its for unicode. Ok, fine,
but I don't like the code duplication. In fact, it already looks like
the two are falling out of sync.
Case in point, "make utest" still breaks under the 'ok 1 - name'
style. It was never patched along with TEST. Additionally, a number
of things fail under make utest. The summary of UTEST points one at
"./perl harness", which will not run the tests the same way. Does
anyone run this regularly?
And t/harness uses Test::Harness::runtests()! Can somebody explain
what's going on here before I take a backhoe to all this?
I'm fixing UTEST and eliminating the unmaintained "last change"
comments from both.
--- t/TEST 2001/02/18 02:58:04 1.1
+++ t/TEST 2001/02/18 02:59:09
@@ -1,7 +1,5 @@
#!./perl
-# Last change: Fri May 28 03:16:57 BST 1999
-
# This is written in a peculiar style, since we're trying to avoid
# most of the constructs we'll be testing for.
--- t/UTEST 2001/02/18 02:58:18 1.1
+++ t/UTEST 2001/02/18 03:00:10
@@ -1,7 +1,5 @@
#!./perl
-# Last change: Fri Jan 10 09:57:03 WET 1997
-
# This is written in a peculiar style, since we're trying to avoid
# most of the constructs we'll be testing for.
@@ -133,7 +131,7 @@
}
else {
$next = $1, $ok = 0, last if /^not ok ([0-9]*)/;
- if (/^ok (\d+)(\s*#.*)?$/ && $1 == $next) {
+ if (/^ok (\d+)(\s*#.*)?/ && $1 == $next) {
$next = $next + 1;
}
elsif (/^Bail out!\s*(.*)/i) { # magic words
