develooper Front page | perl.perl5.porters | Postings from February 2006

blead 27323 on VMS - two tests fail.

From:
John E. Malmberg
Date:
February 25, 2006 07:23
Subject:
blead 27323 on VMS - two tests fail.
Message ID:
44007682.3000508@qsl.net
Previous filetest.t failure turned out to be a stale foo/ directory left 
over from apparently from other troubleshooting.  I will need to do a 
complete test run again to be totally sure that one of the tests is not 
leaving something behind.

t/op/filetest.........................................FAILED at test 10
ext/B/t/concise-xs....................................FAILED at test 15
ext/Devel/Peek/t/Peek.................................FAILED at test 21
Failed 3 test scripts out of 1088, 99.72% okay.


EAGLE> mcr [-]ndbgperl "-T" "-I[-.lib]" [-.ext.devel.peek.t]peek.t
1..23
ok 1
...
ok 20
got:
[
SV = PVMG(0x306e80) at 0x31cab0
   REFCNT = 1
   FLAGS = (SMG,RMG,IOK,POK,pIOK,pPOK)
   IV = 0
   NV = 0
   PV = 0x3e6d90 "0"\0
   CUR = 1
   LEN = 4
   MAGIC = 0x3dc898
     MG_VIRTUAL = &PL_vtbl_envelem
     MG_TYPE = PERL_MAGIC_envelem(e)
     MG_FLAGS = 0x01
       TAINTEDDIR
     MG_LEN = -2
     MG_PTR = 0x3917f0 => HEf_SVKEY
     SV = PV(0x2ddc98) at 0x3917f0
       REFCNT = 2
       FLAGS = (TEMP,POK,FAKE,READONLY,pPOK)
       PV = 0x3161a4 "PATH"
       CUR = 4
       LEN = 0

]
expected:
[
(?:ALLOCATED at .*?
)?SV = PVMG\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
   REFCNT = 1
   FLAGS = \(GMG,SMG,RMG,pIOK,pPOK\)
   IV = 0
   NV = 0
   PV = 0x[[:xdigit:]]+ "0"\\0
   CUR = 1
   LEN = \d+
   MAGIC = 0x[[:xdigit:]]+
     MG_VIRTUAL = &PL_vtbl_envelem
     MG_TYPE = PERL_MAGIC_envelem\(e\)
(?:    MG_FLAGS = 0x01
       TAINTEDDIR
)?    MG_LEN = -?\d+
     MG_PTR = 0x[[:xdigit:]]+ (?:"(?i:PATH)"|=> HEf_SVKEY
(?:    ALLOCATED at .*?
)?    SV = PV(?:IV)?\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
       REFCNT = \d+
       FLAGS = \(TEMP,POK,(?:FAKE,READONLY,)?pPOK\)
(?:      IV = 0
)?      PV = 0x[[:xdigit:]]+ "(?i:PATH)"(?:\\0)?
       CUR = \d+
       LEN = \d+)
   MAGIC = 0x[[:xdigit:]]+
     MG_VIRTUAL = &PL_vtbl_taint
     MG_TYPE = PERL_MAGIC_taint\(t\)
]
not ok 21



EAGLE> mcr [-]ndbgperl "-I[-.lib]" [-.ext.b.t]concise-xs.t
1..1573
ok 1 - require B::Concise;
...
ok 14 - XS sub:  B::sv_no
not ok 15 - XS sub:      B::sub_generation
#   Failed test 'XS sub:         B::sub_generation'
#   in [-.ext.b.t]concise-xs.t at line 319.
#                   'B::sub_generation:
# err: unknown function (B::sub_generation)
# '
#     doesn't match '(?-xism: is XS code)'
ok 16 - perl sub:        B::savesym

-John
wb8tyw@qsl.net
Personal Opinion Only



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