develooper Front page | perl.perl5.porters | Postings from March 2007

Re: Smoke [5.9.5] 30749 PASS-so-far HP-UX B.11.23/64(PA-RISC2.0/64/6 cpu)

From:
H.Merijn Brand
Date:
March 26, 2007 04:37
Subject:
Re: Smoke [5.9.5] 30749 PASS-so-far HP-UX B.11.23/64(PA-RISC2.0/64/6 cpu)
Message ID:
20070326133723.360bf84a@pc09
On Sun, 25 Mar 2007 22:50 +0200, "H.Merijn Brand" <h.m.brand@xs4all.nl> wrote:

> Automated smoke report for 5.9.5 patch 30749
> n4: PA8600 (PA-RISC2.0/64/6 cpu)
>     on        HP-UX - B.11.23/64
>     using     cc version B.11.11.16
>     smoketime 23 hours 17 minutes (average 3 hours 19 minutes)
> 
> Summary: PASS-so-far
> 
> O = OK  F = Failure(s), extended report at the bottom
> X = Failure(s) under TEST but not under harness
> ? = still running or test results not (yet) available
> Build failures during:       - = unknown or N/A
> c = Configure, m = make, M = make (after miniperl), t = make test-prep
> 
>    30749     Configuration (common) none
> ----------- ---------------------------------------------------------
> O O O O O O 
> O O O O O O -Duse64bitall
> O O O O O O -Duseithreads
> ? - - - - - -Duseithreads -Duse64bitall
> | | | | | +- LC_ALL = univ.utf8 -DDEBUGGING
> | | | | +--- PERLIO = perlio -DDEBUGGING
> | | | +----- PERLIO = stdio  -DDEBUGGING
> | | +------- LC_ALL = univ.utf8
> | +--------- PERLIO = perlio
> +----------- PERLIO = stdio
> 
> Locally applied patches:
>     DEVEL
>     SMOKE30749
> 
> Compiler messages(hpux):
> cc: "/usr/include/sys/socket.h", line 535: warning 562: Redeclaration of "sendfile" with a different storage class specifier: "sendfile" will have internal linkage.
> cc: "/usr/include/sys/socket.h", line 536: warning 562: Redeclaration of "sendpath" with a different storage class specifier: "sendpath" will have internal linkage.
> cc: "/usr/include/sys/socket.h", line 535: warning 562: Redeclaration of "cc: sendfile"/usr/include/sys/socket.h", " with a line 535different storage class specifier: "sendfile" will h: ave internal linkage.warning 562: 
> cc: "/usr/include/sys/socket.h", line 536: warning 562: Redeclaration of "sendpath" with a different storage ccc: lass specifier: "sendpath" will hcc: "/usr/include/sys/socket.h", "/usr/include/sys/socket.h"ave internal linkage.

Looks better than it is. If smoke wouldn't support a kill-time, things would
never finish. Same for maint:

USER    PID  STARTED     TIME COMMAND
 203  21719 23:20:00  0:00:00 sh -c /pro/3gl/CPAN/smoke/p58.sh
 203  21720 23:20:00  0:00:00   /bin/sh /pro/3gl/CPAN/smoke/p58.sh
 203  22689 07:49:16  0:00:04     /pro/bin/perl smokeperl.pl --nofetch --nopatch -Dcc=gcc -c p58_
 203  17203 09:57:22  0:00:00       make _test
 203  17204 09:57:22  0:00:00         /bin/sh -c if (true </dev/tty) >/dev/null 2>&1; then \
  make T
 203  17207 09:57:22  0:00:00           make TEST_ARGS= TESTFILE=TEST _test_notty
 203  17208 09:57:22  0:00:00             /bin/sh -c cd t &&  PERL_SKIP_TTY_TEST=1  ./perl TEST
 203  17209 09:57:22  0:00:04               ./perl TEST
 203  21113 10:04:48  0:00:00                 ./perl -I. -MTestInit ../ext/IO/t/io_udp.t

That's where it hangs.


n4:/pro/3gl/CPAN/perl-5.8.x-dor/t 122 > ./perl harness -v ../ext/IO/t/io_udp.t
../ext/IO/t/io_udp....1..7
ok 1
ok 2
# $udpa->peername : ''
# $udpb->sockname : ''
not ok 3


Maybe it is not a good idea to try to receive from $udpb if test 3 fails


print "ok 1\n";

$udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost')
     || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1')
    or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)";

print "ok 2\n";

$udpa->send("ok 4\n",0,$udpb->sockname);

print "# \$udpa->peername : '", $udpa->peername, "'\n",
      "# \$udpb->sockname : '", $udpb->sockname, "'\n";
print "not "
  unless compare_addr($udpa->peername,$udpb->sockname, 'peername', 'sockname');
print "ok 3\n";

my $where = $udpb->recv($buf="",5);
print $buf;

my @xtra = ();

unless(compare_addr($where,$udpa->sockname, 'recv name', 'sockname')) {
    print "not ";
    @xtra = (0,$udpa->sockname);
}
print "ok 5\n";

$udpb->send("ok 6\n",@xtra);
$udpa->recv($buf="",5);
print $buf;

print "not " if $udpa->connected;
print "ok 7\n";


-- 
H.Merijn Brand         Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using & porting perl 5.6.2, 5.8.x, 5.9.x   on HP-UX 10.20, 11.00, 11.11,
& 11.23, SuSE 10.0 & 10.2, AIX 4.3 & 5.2, and Cygwin. http://qa.perl.org
http://mirrors.develooper.com/hpux/            http://www.test-smoke.org
                        http://www.goldmark.org/jeff/stupid-disclaimers/



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