develooper Front page | perl.perl5.porters | Postings from August 2010

Re: mauve::reftype()

Thread Previous | Thread Next
From:
Tony Cook
Date:
August 29, 2010 20:33
Subject:
Re: mauve::reftype()
Message ID:
20100830033306.GA31149@mars.tony.develop-help.com
On Mon, Aug 30, 2010 at 12:57:38AM +0200, demerphq wrote:
> I have pushed a patch to add "fixed" versions of reftype, refaddr and
> blessed to universal.c, additionally
> at jesse's request this includes weaken() (and its relative isweak).

This fails a single test in lib/mauve.t under -Dmad:

tony@mars:.../perl/t$ ./perl -I../lib ../lib/mauve.t 
1..95
ok 1 - not undef
ok 2 - not '10'
ok 3 - not 'string'
ok 4 - refaddr HASH(0x229c740)
ok 5 - refaddr HASH(0x229c740)
ok 6 - blessed with overload refaddr HASH(0x229c740)
ok 7 - refaddr HASH(0x229c740)
ok 8 - refaddr SCALAR(0x241af10)
ok 9 - refaddr SCALAR(0x241af10)
ok 10 - blessed with overload refaddr SCALAR(0x241af10)
ok 11 - refaddr SCALAR(0x241af10)
ok 12 - refaddr ARRAY(0x2485308)
ok 13 - refaddr ARRAY(0x2485308)
ok 14 - blessed with overload refaddr ARRAY(0x2485308)
ok 15 - refaddr ARRAY(0x2485308)
ok 16 - refaddr GLOB(0x241af88)
ok 17 - refaddr GLOB(0x241af88)
ok 18 - blessed with overload refaddr GLOB(0x241af88)
ok 19 - refaddr GLOB(0x241af88)
ok 20 - refaddr CODE(0x241b390)
ok 21 - refaddr CODE(0x241b390)
ok 22 - blessed with overload refaddr CODE(0x241b390)
ok 23 - refaddr CODE(0x241b390)
ok 24
ok 25
ok 26
ok 27
ok 28
ok 29
ok 30
ok 31
ok 32 - foo
ok 33 - reftype: number
ok 34 - reftype: string
ok 35 - reftype: HASH ref
ok 36 - reftype: HASH ref
ok 37 - reftype: HASH ref
ok 38 - reftype: ARRAY ref
ok 39 - reftype: ARRAY ref
ok 40 - reftype: ARRAY ref
ok 41 - reftype: SCALAR ref
ok 42 - reftype: SCALAR ref
ok 43 - reftype: SCALAR ref
ok 44 - reftype: REF ref
ok 45 - reftype: REF ref
ok 46 - reftype: REF ref
ok 47 - reftype: tied GLOB ref
ok 48 - reftype: tied GLOB ref
ok 49 - reftype: tied GLOB ref
ok 50 - reftype: GLOB ref
ok 51 - reftype: GLOB ref
ok 52 - reftype: GLOB ref
ok 53 - reftype: CODE ref
ok 54 - reftype: CODE ref
ok 55 - reftype: CODE ref
ok 56 - reftype: IO ref
ok 57 - reftype: IO ref
ok 58 - reftype: IO ref
ok 59 - reftype: REGEEXP
ok 60 - reftype: REGEEXP
ok 61 - reftype: REGEEXP
ok 62 - undef is not blessed
ok 63 - Numbers are not blessed
ok 64 - Strings are not blessed
ok 65 - blessed: Unblessed HASH-ref
ok 66 - blessed: Unblessed ARRAY-ref
ok 67 - blessed: Unblessed SCALAR-ref
ok 68 - blessed ARRAY-ref
ok 69 - blessed ARRAY-ref
ok 70 - blessed HASH-ref
ok 71 - blessed HASH-ref
ok 72 - recursion of UNIVERSAL::can
ok 73 - blessed on broken isa() and can()
# START
ok 74
# WEAK:
ok 75
# UNDZ:
ok 76
# UNDY:
ok 77
# FIN:
# CASE 2:
ok 78
# BW: 
# AW: 
ok 79
# EXITBLOCK
# 1: Dest=HASH(0x2490998)
# 2: Dest=HASH(0x2490998)
# 3: Dest=HASH(0x2490998)
# WKED
ok 80
# VALS: HASH Dest=HASH(0x2490998)   SELF REF(0x2490a10)  Y REF(0x242f8b8)    FLAG: REF(0x2490aa0)
# VPRINT
# INCFLAG
# OUT 1
ok 81
# AFTER
# FLAGU
# INCFLAG
# INCFLAG
ok 82
# CASE5
ok 83
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90
ok 91
ok 92
ok 93
ok 94
not ok 95
#   Failed test at ../lib/mauve.t line 300.
# b didn't go away
# Looks like you failed 1 test of 95.

I haven't looked into the cause of the failure.

(the same smoker tests smoke-me builds too)

Tony

Thread Previous | Thread Next


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