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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Fri Jun 18 16:21:07 2010
New Revision: 47686
URL: https://trac.parrot.org/parrot/changeset/47686

Log:
test StringHandle is_closed method

Modified:
   trunk/t/pmc/stringhandle.t

Modified: trunk/t/pmc/stringhandle.t
==============================================================================
--- trunk/t/pmc/stringhandle.t	Fri Jun 18 05:22:31 2010	(r47685)
+++ trunk/t/pmc/stringhandle.t	Fri Jun 18 16:21:07 2010	(r47686)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 19;
+use Parrot::Test tests => 20;
 
 =head1 NAME
 
@@ -544,6 +544,22 @@
 ok
 OUTPUT
 
+pir_output_is( <<'CODE', <<"OUTPUT", "is_closed" );
+.sub main
+    .local pmc sh
+    .local int i
+    sh = new ['StringHandle']
+    i = sh.'is_closed'()
+    say i
+    sh.'open'("foo", "w")
+    i = sh.'is_closed'()
+    say i
+.end
+CODE
+1
+0
+OUTPUT
+
 pir_output_is( <<"CODE", <<"OUTPUT", "readall() - utf8 on closed stringhandle" );
 .sub 'main'
     .local pmc ifh