[svn:parrot] r39085 - branches/tt_696/t/pmc

whiteknight at svn.parrot.org whiteknight at svn.parrot.org
Sat May 23 13:13:57 UTC 2009


Author: whiteknight
Date: Sat May 23 13:13:57 2009
New Revision: 39085
URL: https://trac.parrot.org/parrot/changeset/39085

Log:
[tt_696] add a test case derived from Coke's test to prevent recursions. Add a note here for ways that the test could be expanded to be more comprehensive

Modified:
   branches/tt_696/t/pmc/undef.t

Modified: branches/tt_696/t/pmc/undef.t
==============================================================================
--- branches/tt_696/t/pmc/undef.t	Sat May 23 13:02:58 2009	(r39084)
+++ branches/tt_696/t/pmc/undef.t	Sat May 23 13:13:57 2009	(r39085)
@@ -19,7 +19,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(19)
+    plan(21)
 
     morph_to_string()
     undef_pmc_is_false()
@@ -33,6 +33,7 @@
     check_whether_interface_is_done()
     verify_clone_works()
     undef_equals_undef()
+    set_undef_to_object()
 .end
 
 .sub morph_to_string
@@ -166,6 +167,21 @@
     ok( 1, 'Undef == Undef (RT #33603)' )
 .end
 
+.sub set_undef_to_object
+    $P0 = new "Undef"
+    $P2 = new 'Integer'
+    assign $P0, $P2
+    ok( 1, 'Assign Integer to Undef' )
+
+    $P0 = new "Undef"
+    $P1 = newclass "HI"
+    $P2 = new $P1
+    assign $P0, $P2
+    ok( 1, 'Assign Object 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