[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