[svn:parrot] r40823 - trunk/t/pmc
NotFound at svn.parrot.org
NotFound at svn.parrot.org
Thu Aug 27 06:30:02 UTC 2009
Author: NotFound
Date: Thu Aug 27 06:29:58 2009
New Revision: 40823
URL: https://trac.parrot.org/parrot/changeset/40823
Log:
[t] add a new assign to undef test and modify check on the existing ones
Modified:
trunk/t/pmc/undef.t
Modified: trunk/t/pmc/undef.t
==============================================================================
--- trunk/t/pmc/undef.t Thu Aug 27 02:18:39 2009 (r40822)
+++ trunk/t/pmc/undef.t Thu Aug 27 06:29:58 2009 (r40823)
@@ -19,7 +19,7 @@
.sub main :main
.include 'test_more.pir'
- plan(21)
+ plan(22)
morph_to_string()
undef_pmc_is_false()
@@ -169,19 +169,30 @@
.sub set_undef_to_object
$P0 = new "Undef"
+ $P1 = get_class 'Integer'
$P2 = new 'Integer'
assign $P0, $P2
- ok( 1, 'Assign Integer to Undef' )
+ $I0 = isa $P0, $P1
+ ok( $I0, 'Assign Integer to Undef' )
$P0 = new "Undef"
$P1 = newclass "HI"
$P2 = new $P1
assign $P0, $P2
- ok( 1, 'Assign Object to Undef' )
+ $I0 = isa $P0, $P1
+ ok( $I0, 'Assign Object to Undef' )
+
+ $P0 = new "Undef"
+ $P1 = subclass 'ResizablePMCArray', 'FooRPA'
+ $P2 = new $P1
+ assign $P0, $P2
+ $I0 = isa $P0, $P1
+ ok( $I0, 'Assign Object with PMC parent to Undef' )
# TODO: Needs tests to verify that the values and metadata are preserved
# across the assignment
.end
+
# Local Variables:
# mode: pir
# fill-column: 100
More information about the parrot-commits
mailing list