The Linux Foundation

 
LsbTestPerl32Results

From The Linux Foundation

Contents

lsb-test-perl test results

Overview

lsb-test-perl is a noarch package. Upstream tests were refined down to remove tests for unmaintained, deprecated modules, as well as arch-specific tests and tests that cannot pass on an LSB compliant perl build (lsb-perl). Tests that are skipped are treated as a FAIL.

Caveat: Some tests require a compiler, and libperl.so. Absence of libperl.so causes at least 1 failure. Depending on how the distribution has packaged perl, you may need additional packages:

  • Mandriva: perl-devel, perl-CGI
  • Fedora: perl-Test-Simple, perl-CPAN

lsb-perl results

test was run on SLES10 ia32 (in a chroot), running the test against lsb-perl, rather than the system perl (run_tests.lsb-perl + some symlink changes, see README.lsb-perl-test-lsb-perl)

All tests successful, 251 subtests skipped.
Files=934, Tests=102502, 392 wallclock secs (122.33 cusr + 17.56 csys = 139.89 CPU)
Journal file is results/0002e/journal
Test was run: 20070910 09:44:47 
Test Suite Name: lsb-test-perl
Test Suite Version: 5.8.8-6
Test Suite Architecture: noarch
Total Tests Passed: 934
Total Tests Failed (including waived): 0
Total Tests Failed (excluding waived): 0

SLES10 ia32 results

test also run in the same chroot as above

Failed Test Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
../lib/ph.t               84    1   1.19%  5
248 subtests skipped.
Failed 1/934 test scripts, 99.89% okay. 1/102490 subtests failed, 100.00% okay.
Journal file is results/0001e/journal
../lib/ph.t|TC 742 FAIL

Test was run: 20070910 09:33:56 
Test Suite Name: lsb-test-perl
Test Suite Version: 5.8.8-6
Test Suite Architecture: noarch
Total Tests Passed: 933
Total Tests Failed (including waived): 1
Total Tests Failed (excluding waived): 1

Analysis: If we compare to the lsb-perl results, running the single test for ../lib/ph.t we find that lsb-perl does:

# Skipping tests; "sys/types.ph" may be missing

At which point the test runs down the rest of the list, generating "ok" for all tests. This is the case for all the other platforms too (on either this .ph file or one of the others). If you look at netinet/in.ph the define for INADDR_ANY is wrapped in

unless(defined(&_NETINET_IN_H)) {

}

So in the context of the test, INADDR_ANY does not get defined. Posted to perl-porters list 10/10/07 to get clarification on this one. The test lists INADDR_NONE and INADDR_LOOPBACK as %ok_to_skip, wondering if INADDR_ANY should not be similarly defined.

Response from perl folks indicate this test is obsolete, and they are going to remove it. I'll do the same in lsb-test-perl.

Ref: archive thread

New Results:

All tests successful, 248 subtests skipped.
Files=933, Tests=102406, 424 wallclock secs (134.15 cusr + 18.36 csys = 152.51 CPU)
Journal file is results/0003e/journal

RHEL5 results

ia32, run in chroot

All tests successful, 3 tests and 258 subtests skipped.
Files=934, Tests=102357, 451 wallclock secs (161.47 cusr + 18.69 csys = 180.16 CPU)
Journal file is results/0003e/journal
../ext/NDBM_File/t/ndbm.t|TC 388 FAIL
../ext/ODBM_File/t/odbm.t|TC 319 FAIL
../lib/Memoize/t/tie_ndbm.t|TC 849 FAIL

Test was run: 20070910 11:24:58 
Test Suite Name: lsb-test-perl
Test Suite Version: 5.8.8-6
Test Suite Architecture: noarch
Total Tests Passed: 931
Total Tests Failed (including waived): 3
Total Tests Failed (excluding waived): 3

Analysis: NDBM_File and ODBM_File were not built, specified as required modules - see additional comments below in the Mandriva analysis.

Mandriva results

Mandriva Corp Server 4, which is 3.1 certified has perl 5.8.7, results using the 5.8.8 tests are rather poor. perl-5.8.8 is our base version, so I used 2007.1 (perl-5.8.8).

Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
../lib/CGI/t/function.t 31 3 9.68% 25-27
4 tests and 225 subtests skipped.
Failed 1/933 test scripts, 99.89% okay. 3/101814 subtests failed, 100.00% okay.
Journal file is results/0010e/journal
../ext/DB_File/t/db-btree.t|TC 419 FAIL
../ext/DB_File/t/db-hash.t|TC 418 FAIL
../ext/DB_File/t/db-recno.t|TC 420 FAIL
../ext/ODBM_File/t/odbm.t|TC 319 FAIL
../lib/CGI/t/function.t|TC 434 FAIL

Test was run: 20070911 15:40:55
Test Suite Name: lsb-test-perl
Test Suite Version: 5.8.8-6
Test Suite Architecture: noarch
Total Tests Passed: 928
Total Tests Failed (including waived): 5
Total Tests Failed (excluding waived): 5

Analysis:

1st 4: DB_File and ODBM_File were not built, specified as required modules

CGI/t/function.t:

not ok 25 CGI::redirect() 1
not ok 26 CGI::redirect() 2
not ok 27 CGI::redirect() 2

Mandriva's CGI.pm is from perl-CGI-3.16, not perl-5.8.8, returns "302 Found", perl-5.8.8 version returns "302 Moved", which is what the tests expect. Current perl-CGI-3.29 also returns "302 Found"

Passed the question of whether DB_File, NDBM_File, ODBM_File should get optional status (FIP), as well as whether to accept either CGI::redirect() result to the perl-porters list 10/11/07

Opinions posted to the perl list lean towards not requiring DB_File, NDBM_File, ODBM_file - list thread.

Removed DB_File, NDBM_File, ODBM_file from the spec

Debian4 Results

Failed Test                     Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
../lib/ExtUtils/t/Embed.t                      9    9 100.00%  1-9
../lib/ExtUtils/t/INST.t           1   256    26    1   3.85%  7
../lib/ExtUtils/t/INST_PREFIX.t    4  1024    52    4   7.69%  4 9-11
../lib/Pod/t/basic.t                          11    1   9.09%  3
1 test and 248 subtests skipped.
Failed 4/933 test scripts, 99.57% okay. 15/102379 subtests failed, 99.99% okay.
Journal file is results/0001e/journal
../lib/ExtUtils/t/Embed.t|TC 871 FAIL
../lib/ExtUtils/t/INST.t|TC 853 FAIL
../lib/ExtUtils/t/INST_PREFIX.t|TC 881 FAIL
../lib/Pod/t/basic.t|TC 485 FAIL
../lib/Term/Cap.t|TC 632 FAIL

Test was run: 20070912 14:00:38 
Test Suite Name: lsb-test-perl
Test Suite Version: 5.8.8-8
Test Suite Architecture: noarch
Total Tests Passed: 928
Total Tests Failed (including waived): 5
Total Tests Failed (excluding waived): 5

lib/ExtUtils/t/Embed.t - needs libperl-dev - passes after installed. Added a note to the README

lib/Pod/t/basic.t - generated out.man differs from supplied basic.man

\& This is. And this: is an internal tab. It should be:
-\& |--| <= lined up with that.
+\& |\-\-| <= lined up with that.

lib/Term/Cap.t - skipped

No /etc/termcap installed, not finding a package that provides it, make it a FIP? (LSB does not seem to require termcap)

lib/ExtUtils/t/INST.t: fails subtest 7

not ok 7 - PERLPREFIX

# Failed test 'PERLPREFIX'
# in ../lib/ExtUtils/t/INST.t at line 77.
# got: '$(PREFIX)'
# expected: '/usr'

lib/ExtUtils/t/INST_PREFIX.t - fails subtest 4,9-11

not ok 4 - PREFIX set based on INSTALLDIRS

# Failed test 'PREFIX set based on INSTALLDIRS'
# in ../lib/ExtUtils/t/INST_PREFIX.t at line 72.
# got: '/usr'
# expected: '$(SITEPREFIX)'

not ok 9

# Failed test in ../lib/ExtUtils/t/INST_PREFIX.t at line 80.
# '$(PREFIX)'
# matches '(?-xism:\$\(PREFIX\))'
not ok 10

# Failed test in ../lib/ExtUtils/t/INST_PREFIX.t at line 80.
# '$(PREFIX)/local'
# matches '(?-xism:\$\(PREFIX\))'
not ok 11

# Failed test in ../lib/ExtUtils/t/INST_PREFIX.t at line 80.
# '$(PREFIX)'
# matches '(?-xism:\$\(PREFIX\))'
  • 10/12/07 - posted to perl-porters list for opinions on the above issues - no response

Ubuntu 6.10 Results

Identical to Debian 4

Fedora Core 8 Results (01/16/08)

../ext/B/t/concise-xs.t 703 FAIL
../ext/B/t/f_map.t 706 FAIL
../ext/B/t/f_sort.t 707 FAIL
../ext/Devel/Peek/t/Peek.t 728 FAIL
../lib/Memoize/t/tie_ndbm.t 458 FAIL

Test was run: 20080016 12:51:29 
Test Suite Name: lsb-test-perl
Test Suite Version: 3.1.95-3
Test Suite Architecture: noarch
Total Tests Passed: 923
Total Tests Failed (including waived): 5
Total Tests Failed (excluding waived): 5

Analysis For ext/B/t/concise_xs.t, Fedora has patched Deparse.pm such that the test returns 782 results rather than the expected 779. All subtest pass though. A change in the LSB test harness may be applied to treat this scenario as a WARNING (bug 1889). Proposed change would give a journal result like this:

10|703 ../ext/B/t/concise-xs.t 14:59:59|TC Start
15|703 3.7-lite 1|TCM Start
400|703 703 703 14:59:59|IC Start
200|703 703 14:59:59|TP Start
520|703 703 1 0 0|More tests than expected, got 782, expected 779. Run single_test to debug.
520|703 703 1 0 0|0 subtests failed
220|703 703 101 15:00:25|WARNING
410|703 703 0 15:00:25|IC End
80|703 703 0 15:00:25|TC End

ext/B/t/f_map.t - Fedora patches the test in their build, as part of the same issue listed above. How do we test/pass both old and new?

#      got '1  <;> nextstate(main 680 (eval 27):1) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <#> gv[*array] s
# 5  <1> rv2av[t6] lKM/1
# 6  <@> mapstart lK/2
# 7  <|> mapwhile(other->8)[t7] lK/1
# 8      <0> pushmark s
# 9      <#> gvsv[*_] s
# a      <1> lc[t4] sK/1
# b      <$> const[IV 1] s
# c      <@> anonhash sK*/1
#            goto 7
# d  <0> pushmark s
# e  <#> gv[*hashes] s
# f  <1> rv2av[t2] lKRM*/1
# g  <2> aassign[t8] KS/COMMON
# h  <1> leavesub[1 ref] K/REFC,1
# '
# expected /(?ms-xi:^1  <;> (?:next|db)state(.*?):1\) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <\#> gv\[\*array\] s
# 5  <1> rv2av\[t\d+\] lKM/1
# 6  <\@> mapstart lK/2
# 7  <\|> mapwhile\(other->8\)\[t\d+\] lK/1
# 8      <0> pushmark s
# 9      <\#> gvsv\[\*_\] s
# a      <1> lc\[t\d+\] sK/1
# b      <\$> const\[IV 1\] s
# c      <\@> anonhash sKRM/1
# d      <1> srefgen sK/1
#            goto 7
# e  <0> pushmark s
# f  <\#> gv\[\*hashes\] s
# g  <1> rv2av\[t\d+\] lKRM\*/1
# h  <2> aassign\[t\d+\] KS/COMMON
# i  <1> leavesub\[\d+ refs?\] K/REFC,1
# $)/
# got:          'c      <@> anonhash sK*/1'
# want:  (?-xism:c      <\@> anonhash sKRM/1)
# got:          '           goto 7'
# want:  (?-xism:d      <1> srefgen sK/1)
# got:          'e  <#> gv[*hashes] s'
# want:  (?-xism:e  <0> pushmark s)
# got:          'f  <1> rv2av[t2] lKRM*/1'
# want:  (?-xism:f  <\#> gv\[\*hashes\] s)
# got:          'g  <2> aassign[t8] KS/COMMON'
# want:  (?-xism:g  <1> rv2av\[t\d+\] lKRM\*/1)
# got:          'h  <1> leavesub[1 ref] K/REFC,1'
# want:  (?-xism:h  <2> aassign\[t\d+\] KS/COMMON)
# got:          ''
# want:  (?-xism:i  <1> leavesub\[\d+ refs?\] K/REFC,1)
# remainder:
# c      <@> anonhash sK*/1
# d  <0> pushmark s
# e  <#> gv[*hashes] s
# f  <1> rv2av[t2] lKRM*/1
# g  <2> aassign[t8] KS/COMMON
# h  <1> leavesub[1 ref] K/REFC,1
# these lines not matched:
# c      <@> anonhash sK*/1
# d  <0> pushmark s
# e  <#> gv[*hashes] s
# f  <1> rv2av[t2] lKRM*/1
# g  <2> aassign[t8] KS/COMMON
# h  <1> leavesub[1 ref] K/REFC,1
1..9
ok 1 - -exec code: @chars = map(chr, @nums); 
ok 2 - -exec code: %hash = map { getkey($_) => $_ } @array; 
ok 3 - -exec code: { %hash = (); foreach $_ (@array) { $hash{getkey($_)} = $_; } } 
ok 4 - -exec code: %hash = map { +"\L$_", 1 } @array; 
ok 5 - -exec code: %hash = map { ("\L$_", 1) } @array; 
ok 6 - -exec code: %hash = map { lc($_), 1 } @array; 
ok 7 - -exec code: %hash = map +( lc($_), 1 ), @array; 
ok 8 - -exec code: %hash = map ( lc($_), 1 ), @array; 
not ok 9 - -exec code: @hashes = map +{ lc($_), 1 }, @array 
FAILED test 9
        Failed 1/9 tests, 88.89% okay

ext/B/t/f_sort.t - Fedora patches the test in their build, as part of the same issue listed above. How do we test/pass both old and new?

../ext/B/t/f_sort....# Failed at ../ext/B/t/OptreeCheck.pm line 738
#      got '1  <;> nextstate(main 689 (eval 29):3) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <0> pushmark s
# 5  <0> pushmark s
# 6  <#> gv[*old] s
# 7  <1> rv2av[t19] lKM/1
# 8  <@> mapstart lK*/2
# 9  <|> mapwhile(other->a)[t20] lK/1
# a      <0> enter l
# b      <;> nextstate(main 688 (eval 29):2) v
# c      <0> pushmark s
# d      <#> gvsv[*_] s
# e      </> match(/"=(\\d+)"/) l/RTIME
# f      <#> gvsv[*_] s
# g      <1> uc[t17] sK/1
# h      <@> anonlist sK*/1
# i      <@> leave lKP
#            goto 9
# j  <@> sort lKMS*
# k  <@> mapstart lK*/2
# l  <|> mapwhile(other->m)[t26] lK/1
# m      <#> gv[*_] s
# n      <1> rv2sv sKM/DREFAV,1
# o      <1> rv2av[t4] sKR/1
# p      <$> const[IV 0] s
# q      <2> aelem sK/2
# -      <@> scope lK
#            goto l
# r  <0> pushmark s
# s  <#> gv[*new] s
# t  <1> rv2av[t2] lKRM*/1
# u  <2> aassign[t27] KS/COMMON
# v  <1> leavesub[1 ref] K/REFC,1
# '
# expected /(?ms-xi:^1  <;> (?:next|db)state(.*?):3\) v
# 2  <0> pushmark s
# 3  <0> pushmark s
# 4  <0> pushmark s
# 5  <0> pushmark s
# 6  <\#> gv\[\*old\] s
# 7  <1> rv2av\[t\d+\] lKM/1
# 8  <\@> mapstart lK\*/2
# 9  <\|> mapwhile\(other->a\)\[t\d+\] lK/1
# a      <0> enter l
# b      <;> (?:next|db)state(.*?):2\) v
# c      <0> pushmark s
# d      <\#> gvsv\[\*_\] s
# e      </> match(.*?)"/\) l/RTIME
# f      <\#> gvsv\[\*_\] s
# g      <1> uc\[t\d+\] sK/1
# h      <\@> anonlist sKRM/1
# i      <1> srefgen sK/1
# j      <\@> leave lKP
#            goto 9
# k  <\@> sort lKMS\*
# l  <\@> mapstart lK\*/2
# m  <\|> mapwhile\(other->n\)\[t\d+\] lK/1
# n      <\#> gv\[\*_\] s
# o      <1> rv2sv sKM/DREFAV,1
# p      <1> rv2av\[t\d+\] sKR/1
# q      <\$> const\[IV 0\] s
# r      <2> aelem sK/2
# -      <\@> scope lK
#            goto m
# s  <0> pushmark s
# t  <\#> gv\[\*new\] s
# u  <1> rv2av\[t\d+\] lKRM\*/1
# v  <2> aassign\[t\d+\] KS/COMMON
# w  <1> leavesub\[\d+ refs?\] K/REFC,1
# $)/
# got:          'h      <@> anonlist sK*/1'
# want:  (?-xism:h      <\@> anonlist sKRM/1)
# got:          'i      <@> leave lKP'
# want:  (?-xism:i      <1> srefgen sK/1)
# got:          '           goto 9'
# want:  (?-xism:j      <\@> leave lKP)
# got:          'k  <@> mapstart lK*/2'
# want:  (?-xism:k  <\@> sort lKMS\*)
# got:          'l  <|> mapwhile(other->m)[t26] lK/1'
# want:  (?-xism:l  <\@> mapstart lK\*/2)
# got:          'm      <#> gv[*_] s'
# want:  (?-xism:m  <\|> mapwhile\(other->n\)\[t\d+\] lK/1)
# got:          'n      <1> rv2sv sKM/DREFAV,1'
# want:  (?-xism:n      <\#> gv\[\*_\] s)
# got:          'o      <1> rv2av[t4] sKR/1'
# want:  (?-xism:o      <1> rv2sv sKM/DREFAV,1)
# got:          'p      <$> const[IV 0] s'
# want:  (?-xism:p      <1> rv2av\[t\d+\] sKR/1)
# got:          'q      <2> aelem sK/2'
# want:  (?-xism:q      <\$> const\[IV 0\] s)
# got:          '-      <@> scope lK'
# want:  (?-xism:r      <2> aelem sK/2)
# got:          'r  <0> pushmark s'
# want:  (?-xism:           goto m)
# got:          's  <#> gv[*new] s'
# want:  (?-xism:s  <0> pushmark s)
# got:          't  <1> rv2av[t2] lKRM*/1'
# want:  (?-xism:t  <\#> gv\[\*new\] s)
# got:          'u  <2> aassign[t27] KS/COMMON'
# want:  (?-xism:u  <1> rv2av\[t\d+\] lKRM\*/1)
# got:          'v  <1> leavesub[1 ref] K/REFC,1'
# want:  (?-xism:v  <2> aassign\[t\d+\] KS/COMMON)
# got:          ''
# want:  (?-xism:w  <1> leavesub\[\d+ refs?\] K/REFC,1)
# remainder:
# h      <@> anonlist sK*/1
# i      <@> leave lKP
# j  <@> sort lKMS*
# k  <@> mapstart lK*/2
# l  <|> mapwhile(other->m)[t26] lK/1
# m      <#> gv[*_] s
# n      <1> rv2sv sKM/DREFAV,1
# o      <1> rv2av[t4] sKR/1
# p      <$> const[IV 0] s
# q      <2> aelem sK/2
#            goto l
# r  <0> pushmark s
# s  <#> gv[*new] s
# t  <1> rv2av[t2] lKRM*/1
# u  <2> aassign[t27] KS/COMMON
# v  <1> leavesub[1 ref] K/REFC,1
# these lines not matched:
# h      <@> anonlist sK*/1
# i      <@> leave lKP
# j  <@> sort lKMS*
# k  <@> mapstart lK*/2
# l  <|> mapwhile(other->m)[t26] lK/1
# m      <#> gv[*_] s
# n      <1> rv2sv sKM/DREFAV,1
# o      <1> rv2av[t4] sKR/1
# p      <$> const[IV 0] s
# q      <2> aelem sK/2
#            goto l
# r  <0> pushmark s
# s  <#> gv[*new] s
# t  <1> rv2av[t2] lKRM*/1
# u  <2> aassign[t27] KS/COMMON
# v  <1> leavesub[1 ref] K/REFC,1
1..20
ok 1 - -exec code: @articles = sort @files; 
ok 2 - -exec code: @articles = sort {$a cmp $b} @files; 
ok 3 - -exec code: @articles = sort {uc($a) cmp uc($b)} @files; 
ok 4 - -exec code: @articles = sort {$b cmp $a} @files; 
ok 5 - -exec code: @articles = sort {$a <=> $b} @files; 
ok 6 - -exec code: @articles = sort {$b <=> $a} @files; 
ok 7 - -exec code: @eldest = sort { $age{$b} <=> $age{$a} } keys %age; 
ok 8 - -exec code: sub byage { $age{$a} <=> $age{$b}; } @sortedclass = sort byage @class; 
ok 9 - sort USERSUB LIST 
not ok 10 - Compound sort/map Expression 
ok 11 - sort other::sub LIST 
ok 12 - -exec code: sub other::backwards ($$) { $_[1] cmp $_[0]; } @new = sort other::backwards @old; 
ok 13 - -exec code: use sort 'stable'; @new = sort { substr($a, 3, 5) cmp substr($b, 3, 5) } @old; 
ok 14 - -exec code: use sort '_mergesort'; @new = sort { substr($a, 3, 5) cmp substr($b, 3, 5) } @old; 
ok 15 - -exec code: @articles = sort {$FooPack::b <=> $FooPack::a} @files; 
ok 16 - -exec code: @result = sort { $a <=> $b } grep { $_ == $_ } @input; 
ok 17 - -exec code: sort { $a <=> $b } @input; 
ok 18 - -exec code: sort { $a <=> $b } grep { $_ == $_ } @input; 
ok 19 - -exec code: $s = sort { $a <=> $b } @input; 
ok 20 - -exec code: $s = sort { $a <=> $b } grep { $_ == $_ } @input; 
FAILED test 10
        Failed 1/20 tests, 95.00% okay

ext/Devel/Peek/t/Peek.t - Fedora patches the test in their build, as part of the same issue listed above. How do we test/pass both old and new?

../ext/Devel/Peek/t/Peek....1..22
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
got:
[
SV = RV(0x95e092c) at 0x9636410
  REFCNT = 1
  FLAGS = (ROK)
  RV = 0x95bddd8
  SV = PVAV(0x96347c4) at 0x95bddd8
    REFCNT = 1
    FLAGS = ()
    IV = 0
    NV = 0
    ARRAY = 0x96386b0
    FILL = 1
    MAX = 1
    ARYLEN = 0x0
    FLAGS = (REAL)
    Elt No. 0
    SV = IV(0x95d94c8) at 0x9636428
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 123
    Elt No. 1
    SV = IV(0x95d94c4) at 0x962b2e8
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 456

]
expected:
[
(?:ALLOCATED at .*?
)?SV = RV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
  REFCNT = 1
  FLAGS = \(ROK\)
  RV = 0x[[:xdigit:]]+
(?:  ALLOCATED at .*?
)?  SV = PVAV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
    REFCNT = 2
    FLAGS = \(\)
    IV = 0
    NV = 0
    ARRAY = 0x[[:xdigit:]]+
    FILL = 1
    MAX = 1
    ARYLEN = 0x0
    FLAGS = \(REAL\)
    Elt No. 0
(?:    ALLOCATED at .*?
)?    SV = IV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
      REFCNT = 1
      FLAGS = \(IOK,pIOK\)
      IV = 123
    Elt No. 1
(?:    ALLOCATED at .*?
)?    SV = IV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
      REFCNT = 1
      FLAGS = \(IOK,pIOK\)
      IV = 456
]
not ok 11
got:
[
SV = RV(0x95e092c) at 0x9636428
  REFCNT = 1
  FLAGS = (ROK)
  RV = 0x9636410
  SV = PVHV(0x95c2340) at 0x9636410
    REFCNT = 1
    FLAGS = (SHAREKEYS)
    IV = 1
    NV = 0
    ARRAY = 0x95da6e8  (0:7, 1:1)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = 0x0
    Elt "123" HASH = 0x29b8dfb0
    SV = IV(0x95d94c8) at 0x95bddd8
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 456

]
expected:
[
(?:ALLOCATED at .*?
)?SV = RV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
  REFCNT = 1
  FLAGS = \(ROK\)
  RV = 0x[[:xdigit:]]+
(?:  ALLOCATED at .*?
)?  SV = PVHV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
    REFCNT = 2
    FLAGS = \(SHAREKEYS\)
    IV = 1
    NV = (?:\d*\.\d+(?:e[-+]\d+)?|\d+)
    ARRAY = 0x[[:xdigit:]]+  \(0:7, 1:1\)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = 0x0
    Elt "123" HASH = 0x[[:xdigit:]]+
(?:    ALLOCATED at .*?
)?    SV = IV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
      REFCNT = 1
      FLAGS = \(IOK,pIOK\)
      IV = 456
]
not ok 12
ok 13
ok 14
ok 15
got:
[
SV = RV(0x95e092c) at 0x9636410
  REFCNT = 1
  FLAGS = (ROK)
  RV = 0x9636428
  SV = PVHV(0x95c2340) at 0x9636428
    REFCNT = 1
    FLAGS = (OBJECT,SHAREKEYS)
    IV = 0
    NV = 0
    STASH = 0x9636698   "Tac"
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0

]
expected:
[
(?:ALLOCATED at .*?
)?SV = RV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
  REFCNT = 1
  FLAGS = \(ROK\)
  RV = 0x[[:xdigit:]]+
(?:  ALLOCATED at .*?
)?  SV = PVHV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
    REFCNT = 2
    FLAGS = \(OBJECT,SHAREKEYS\)
    IV = 0
    NV = 0
    STASH = 0x[[:xdigit:]]+\t"Tac"
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0
]
not ok 16
ok 17
ok 18
got:
[
SV = RV(0x95e0938) at 0x9636524
  REFCNT = 1
  FLAGS = (ROK)
  RV = 0x9636410
  SV = PVHV(0x95c2340) at 0x9636410
    REFCNT = 1
    FLAGS = (SHAREKEYS,HASKFLAGS)
    UV = 1
    NV = 0
    ARRAY = 0x95da6e8  (0:7, 1:1)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = 0x0
    Elt "\304\200" [UTF8 "\x{100}"] HASH = 0x5c105b39
    SV = PV(0x95bf94c) at 0x9636428
      REFCNT = 1
      FLAGS = (POK,pPOK,UTF8)
      PV = 0x95db4c8 "\310\200"\0 [UTF8 "\x{200}"]
      CUR = 2
      LEN = 4

]
expected:
[
(?:ALLOCATED at .*?
)?SV = RV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
  REFCNT = 1
  FLAGS = \(ROK\)
  RV = 0x[[:xdigit:]]+
(?:  ALLOCATED at .*?
)?  SV = PVHV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
    REFCNT = 2
    FLAGS = \(SHAREKEYS,HASKFLAGS\)
    UV = 1
    NV = 0
    ARRAY = 0x[[:xdigit:]]+  \(0:7, 1:1\)
    hash quality = 100.0%
    KEYS = 1
    FILL = 1
    MAX = 7
    RITER = -1
    EITER = 0x[[:xdigit:]]+
    Elt "\\304\\200" \[UTF8 "\\x\{100\}"\] HASH = 0x[[:xdigit:]]+
(?:    ALLOCATED at .*?
)?    SV = PV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
      REFCNT = 1
      FLAGS = \(POK,pPOK,UTF8\)
      PV = 0x[[:xdigit:]]+ "\\310\\200"\\0 \[UTF8 "\\x\{200\}"\]
      CUR = 2
      LEN = \d+
]
not ok 19
ok 20
ok 21
ok 22
FAILED tests 11-12, 16, 19
        Failed 4/22 tests, 81.82% okay

Memoize::NDBM_File should have been removed with NDBM_File - dropped now (bug 1887)

Opensuse 10.3 Results (01/16/08)

Test was run: 20080016 12:31:28 
Test Suite Name: lsb-test-perl
Test Suite Version: 3.1.95-3
Test Suite Architecture: noarch
Total Tests Passed: 928
Total Tests Failed (including waived): 0
Total Tests Failed (excluding waived): 0

[Article] [Discussion] [View source] [History]