# New Ticket Created by  Nicholas Clark 
# Please include the string:  [perl #30683]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=30683 >


---
osname= darwin
osvers= 7.0
arch=   darwin-thread-multi-2level
cc=     cc 
---
Flags:
    category=core
    severity=medium
    ack=no
---
$ perl -Ilib t/pmc/fixedpmcarray.t 1..9
ok 1 - Setting array size
ok 2 - Resetting array size (and getting an exception)
ok 3 - Setting first element
ok 4 - Setting second element
ok 5 - Setting out-of-bounds elements
ok 6 - Getting out-of-bounds elements
ok 7 - Set via PMC keys, access via INTs
ok 8 - Set via INTs, access via PMC Keys
not ok 9 - sort
#     Failed test (t/pmc/fixedpmcarray.t at line 266)
#          got: 'ok 1
# 1 2 5 9 10 x
# compares: 0
# ok 1
# 1 2 5 9 10 x
# compares: 9
# '
#     expected: 'ok 1
# 1 2 5 9 10 x
# compares: 0
# ok 1
# 1 2 5 9 10 x
# compares: 8
# '
# Looks like you failed 1 tests of 9.

It seems that the test is trying to count the number of times the libc
qsort calls the compare function. This doesn't seem like a fantastically
portable idea.

I'm not sure of the easiest way to re-write the test to expect that value to
be non-zero, which seems like the only safe thing to check.

Nicholas Clark
---
Summary of my parrot 0.1.0 configuration:
  configdate='Mon Jul 12 20:10:38 2004'
  Platform:
    osname=darwin, archname=darwin-2level
    jitcapable=1, jitarchname=ppc-darwin,
    jitosname=DARWIN, jitcpuarch=ppc
    execcapable=1
    perl=/Users/nick/Sandpit/maint/bin/perl5.8.3
  Compiler:
    cc='ccache gcc', ccflags='-pipe -fno-common -no-cpp-precomp  -pipe -fno-common 
-Wno-long-double ',
  Linker and Libraries:
    ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags=' -flat_namespace ',
    cc_ldflags='',
    libs='-lm'
  Dynamic Linking:
    so='.dylib', ld_shared=' -bundle -undefined dynamic_lookup',
    ld_shared_flags=''
  Types:
    iv=long, intvalsize=4, intsize=4, opcode_t=long, opcode_t_size=4,
    ptrsize=4, ptr_alignment=4 byteorder=4321, 
    nv=double, numvalsize=8, doublesize=8

---
Environment:
    DYLD_LIBRARY_PATH    HOME    LANG    LANGUAGE    LD_LIBRARY_PATH    LOGDIR    PATH 
   PERL5LIB    SHELL

Reply via email to