On Sat 10 Jan 2004 14:57, Abe Timmerman <[EMAIL PROTECTED]> wrote:
> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> Op een mooie winterdag (Saturday 10 January 2004 08:04), schreef H.Merijn 
> Brand:
> 
> > Automated smoke report for 5.9.0 patch 22104 on aix - 3 (004ca4aa4c00/1
> > cpu) (i2) using  version
> > Report by Test::Smoke v1.18.11 (perl 5.8.0) [8 hours 43 minutes]
> >
> > Summary: FAIL(Fc)
> 
> Durf je het aan om een (pre)alpha release van 1.19 op deze machine te 
> proberen?

HP-UX 10.20:

PERL_DL_NONLAZY=1 /pro/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0,
'blib/lib', 'blib/arch')" t/*.t
t/00signature......ok
        1/1 skipped: Next time around, consider installing Module::Signature, so
 you can verify the integrity of this distribution.
t/buildcfg.........ok
t/calctime.........ok
t/cfgstuff.........ok
t/for_dmake........ok
t/for_nmake........ok
t/get_cpus.........ok
t/get_patch........ok
t/mailer...........ok
t/manifest.........ok
t/parse_report.....ok
t/patcher..........ok 13/32#     Failed test (t/patcher.t at line 68)
t/patcher..........NOK 15#                   'This file just is here to be patch
ed!
# After a patch a line with the new version should be appended.
# VERSION == 19000
# VERSION == 20000
# '
#     doesn't match '/^VERSION == 20001$/m'
t/patcher..........ok 17/32#     Failed test (t/patcher.t at line 87)
t/patcher..........NOK 19#                   'This file just is here to be patch
ed!
# After a patch a line with the new version should be appended.
# VERSION == 19000
# VERSION == 20000
# '
#     doesn't match '/^VERSION == 20001$/m'
t/patcher..........ok 22/32#     Failed test (t/patcher.t at line 117)
t/patcher..........NOK 24#                   'This file just is here to be patch
ed!
# After a patch a line with the new version should be appended.
# VERSION == 19000
# VERSION == 20000
# '
#     doesn't match '/^VERSION == 20001$/m'
t/patcher..........ok 26/32#     Failed test (t/patcher.t at line 140)
t/patcher..........NOK 28#                   'This file just is here to be patch
ed!
# After a patch a line with the new version should be appended.
# VERSION == 19000
# VERSION == 20000
# '
#     doesn't match '/^VERSION == 20001$/m'
t/patcher..........ok 32/32# Looks like you failed 4 tests of 32.
t/patcher..........dubious
        Test returned status 4 (wstat 1024, 0x400)
DIED. FAILED tests 15, 19, 24, 28
        Failed 4/32 tests, 87.50% okay
t/policy...........ok
t/regenstuff.......ok
t/reporter.........ok 26/27getconf KERNEL_BITS: Invalid argument
getconf HW_32_64_CAPABLE: Invalid argument
t/reporter.........ok
t/skip_filter......ok
t/smoked_config....ok
t/smoker...........ok
t/syncer_copy......ok
t/syncer_ftp.......ok
t/syncer_link......ok
t/syncer_rsync.....ok
t/syncer_snap......ok
t/sysinfo..........ok 7/13getconf KERNEL_BITS: Invalid argument
getconf HW_32_64_CAPABLE: Invalid argument
t/sysinfo..........ok
t/tree.............ok
t/ts_config........ok
t/util_times.......ok
Failed Test Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
t/patcher.t    4  1024    32    4  12.50%  15 19 24 28
1 subtest skipped.
Failed 1/27 test scripts, 96.30% okay. 4/543 subtests failed, 99.26% okay.
make: *** [test_dynamic] Error 2
Exit 2
d3:/pro/3gl/CPAN/TS-1.19 109 >

reporter is mijn schuld. HP-UX < 11.00 (dit is 10.20) kan zowiezo geen 64 bit

--8<---
--- lib/Test/Smoke/SysInfo.pm.org       2004-01-12 19:59:30.000000000 +0100
+++ lib/Test/Smoke/SysInfo.pm   2004-01-12 20:03:55.000000000 +0100
@@ -263,15 +263,18 @@ sub HPUX {
             push @cpu, $_;
         }
     }
-    $hpux->{_os} =~ s/ B\./ /;
+    $hpux->{_os} =~ s/ B\.(\d+)/ $1/;
+    my $os_r = $1;

-    chomp( my $k64 = `getconf KERNEL_BITS` );
-    $k64 and $hpux->{_os} .= "/$k64";
+    if ($os_r >= 11) {
+       chomp( my $k64 = `getconf KERNEL_BITS` );
+       $k64 and $hpux->{_os} .= "/$k64";
+    }

     if ($cpu[0] =~ m/^\S+\s+(\d+\.\d+)\s+(\S+)/) {
        my( $arch, $cpu ) = ("PA-$1", $2);
        $hpux->{_cpu} = $cpu;
-       $hpux->{_cpu_type} = `getconf HW_32_64_CAPABLE` =~ m/^1/
+       $hpux->{_cpu_type} = $os_r >= 11 && `getconf HW_32_64_CAPABLE` =~ m/^1/
             ? "$arch/64" : "$arch/32";
     }
     return $hpux;
-->8---

t/policy...........ok
t/regenstuff.......ok
t/reporter.........ok
t/skip_filter......ok
t/smoked_config....ok
t/smoker...........ok
t/syncer_copy......ok
t/syncer_ftp.......ok
t/syncer_link......ok
t/syncer_rsync.....ok
t/syncer_snap......ok
t/sysinfo..........ok
t/tree.............ok
t/ts_config........ok
t/util_times.......ok
Failed Test Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
t/patcher.t    4  1024    32    4  12.50%  15 19 24 28
1 subtest skipped.
Failed 1/27 test scripts, 96.30% okay. 4/543 subtests failed, 99.26% okay.


> Zou moeten oplossen:
>       * _cpu_type
>       * compiler info
>       * beter groeperen van failures
> (Ik zal ook nog nadenken over het verbeteren van de MANIFEST.SKIP hack)
> 
> snapshot: http://www.Test-Smoke.org/download/Test-Smoke-1.18_60.tar.gz
> rsync:    source.Test-Smoke.org::ts-current
> 
> (de files in het rsync archief zijn nog niet opgeruimd, alleen in het 
> snapshot)
> 
> 
> good luck,
> 
> Abe
> - -- 
> Amsterdam Perl Mongers http://amsterdam.pm.org
> perl -Mstrict -wle 'sub Just{&$_}sub another{&$_}sub Perl{&$_}sub 
> hacker{&$_}$_=sub{(split /::/,(caller 
> $^W)[3])[-$^W].$"};[EMAIL PROTECTED],another,Perl,hacker]}'
> -----BEGIN PGP SIGNATURE-----
> Version: GnuPG v1.0.6 (GNU/Linux)
> Comment: For info see http://www.gnupg.org
> 
> iD8DBQFAAATMxqqoeg1/sS8RAp55AJ4wXl4N6aFuU5ZJviHz3Eoo9/RBlgCeJb2X
> VN3FnfJ2Ta4z5e73wh4E5Pw=
> =N0fJ
> -----END PGP SIGNATURE-----

-- 
H.Merijn Brand        Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.0, & 5.9.x, and 806 on  HP-UX 10.20 & 11.00, 11i,
   AIX 4.3, SuSE 8.2, and Win2k.           http://www.cmve.net/~merijn/
http://archives.develooper.com/[EMAIL PROTECTED]/   [EMAIL PROTECTED]
send smoke reports to: [EMAIL PROTECTED], QA: http://qa.perl.org

Reply via email to