[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