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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Sep  6 20:16:07 2010
New Revision: 48814
URL: https://trac.parrot.org/parrot/changeset/48814

Log:
test StringBuilder init_pmc with empty array

Modified:
   trunk/t/pmc/stringbuilder.t

Modified: trunk/t/pmc/stringbuilder.t
==============================================================================
--- trunk/t/pmc/stringbuilder.t	Mon Sep  6 19:43:21 2010	(r48813)
+++ trunk/t/pmc/stringbuilder.t	Mon Sep  6 20:16:07 2010	(r48814)
@@ -20,7 +20,7 @@
 .sub 'main' :main
     .include 'test_more.pir'
 
-    test_create()               # 2 tests
+    test_create()               # 3 tests
     test_init_pmc()
     test_push_string()
     test_push_pmc()             # 4 tests
@@ -55,6 +55,12 @@
     $S0 = sb
     is( $S0, '', '... with empty content')
 
+    .local pmc ar
+    ar = new ['FixedStringArray']
+    sb = new ['StringBuilder'], ar
+    $I0 = isnull sb
+    not $I0
+    ok( $I0, 'StringBuilder created from empty array' )
 .end
 
 .sub 'test_push_string'