On Sat, Feb 17, 2001 at 10:05:30PM -0500, [EMAIL PROTECTED] wrote:
> And what the hell is t/UTEST? Looks like its for unicode. Ok, fine,
I think it was supposed to be TEST with -Mutf8, basically.
Why it was a separate script? Beats me.
> 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?
No, since -Mutf8 is supposed to be phased out.
> 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
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
