develooper Front page | perl.perl5.porters | Postings from June 2003

[PATCH t/comp/require.t]Re: Smoke [5.9.0] 19867 FAIL(F) linux 2.4.18-4gb (i686/1 cpu)

Thread Next
From:
Abe Timmerman
Date:
June 28, 2003 05:14
Subject:
[PATCH t/comp/require.t]Re: Smoke [5.9.0] 19867 FAIL(F) linux 2.4.18-4gb (i686/1 cpu)
Message ID:
200306281414.02260.abe@ztreet.demon.nl
Op een zonnige zomerdag (Saturday 28 June 2003 13:23), schreef ikzelf:

> Automated smoke report for 5.9.0 patch 19867 on linux - 2.4.18-4gb (i686/1 cpu)
> (fikkie) using cc version 2.95.3 20010315 (SuSE)
> Report generated by Test::Smoke v1.17.06 (perl 5.6.1)
>
> O = OK  F = Failure(s), extended report at the bottom
> ? = still running or test results not (yet) available
> Build failures during:       - = unknown or N/A
>     c = Configure, m = make, t = make test-prep
>
>    19867     Configuration (common) none
> ------------ ----------------------------------------------------------
> O O F O O F
> | | | | | +- LC_ALL = nl_NL.utf8 -DDEBUGGING
> | | | | +--- PERLIO = perlio -DDEBUGGING
> | | | +----- PERLIO = stdio  -DDEBUGGING
> | | +------- LC_ALL = nl_NL.utf8
> | +--------- PERLIO = perlio
> +----------- PERLIO = stdio
>
> Summary: FAIL(F)
>
>
> Failures:
>
> linux       [locale:nl_NL]
>     t/comp/require.......................FAILED at test 28

comp/require....1..26
ok 1
...
ok 26 - require() context
ok 27 - require() context
FAILED test 27
        Failed 1/26 tests, 96.15% okay
Failed Test    Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
comp/require.t               26    1   3.85%  27
Failed 1/1 test scripts, 0.00% okay. -1/26 subtests failed, 103.85% okay.

It looks like [19851] added a test also for $Is_UTF8.
This seems to fix the failure on Linux:

--- t/comp/require.t.orig       Sat Jun 28 14:01:46 2003
+++ t/comp/require.t    Sat Jun 28 14:02:21 2003
@@ -12,7 +12,7 @@
 my $Is_EBCDIC = (ord('A') == 193) ? 1 : 0;
 my $Is_UTF8   = (${^OPEN} || "") =~ /:utf8/;
 my $total_tests = 30;
-if ($Is_EBCDIC || $Is_UTF8) { $total_tests = 26; }
+if ($Is_EBCDIC || $Is_UTF8) { $total_tests = 27; }
 print "1..$total_tests\n";

 sub do_require {

Good luck,

Abe
-- 
Well, dereferencing that (as CvGV() would do) leads nowhere.  Or, as
the Ten Commandments for C Programmers quoth, "Thou shalt not follow
the NULL pointer, for chaos and madness await thee at its end."
                                   -- Jarkko Hietaniemi on p5p @ 2002-05-14


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About