[svn:parrot] r39310 - trunk/t/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Jun  1 23:01:58 2009
New Revision: 39310
URL: https://trac.parrot.org/parrot/changeset/39310

Log:
[test] test for fix on TT #729

Modified:
   trunk/t/pmc/string.t

Modified: trunk/t/pmc/string.t
==============================================================================
--- trunk/t/pmc/string.t	Mon Jun  1 22:47:46 2009	(r39309)
+++ trunk/t/pmc/string.t	Mon Jun  1 23:01:58 2009	(r39310)
@@ -20,7 +20,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(164)
+    plan(165)
 
     set_or_get_strings()
     setting_integers()
@@ -70,6 +70,7 @@
     out_of_bounds_substr_negative_offset()
     exception_to_int_2()
     exception_to_int_3()
+    assign_null_string()
 
     # END_OF_TESTS
 
@@ -1017,6 +1018,20 @@
     .exception_is( 'invalid conversion to int - bad base 37' )
 .end
 
+.sub assign_null_string
+    .local pmc s
+    .local string m
+    s = new ['String']
+    null m
+    assign s, m
+    m = 'Any other thing'
+    m = s
+    $I0 = 0
+    if null m goto check
+    inc $I0
+check:
+    is( $I0, 0, 'assign null string, TT #729' )
+.end
 
 # Local Variables:
 #   mode: cperl