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

NotFound at svn.parrot.org NotFound at svn.parrot.org
Sun Jun 20 15:09:16 UTC 2010


Author: NotFound
Date: Sun Jun 20 15:09:15 2010
New Revision: 47731
URL: https://trac.parrot.org/parrot/changeset/47731

Log:
test StringHanlde is_tty method

Modified:
   trunk/t/pmc/stringhandle.t

Modified: trunk/t/pmc/stringhandle.t
==============================================================================
--- trunk/t/pmc/stringhandle.t	Sun Jun 20 14:42:37 2010	(r47730)
+++ trunk/t/pmc/stringhandle.t	Sun Jun 20 15:09:15 2010	(r47731)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 24;
+use Parrot::Test tests => 25;
 
 =head1 NAME
 
@@ -659,6 +659,18 @@
 0
 OUTPUT
 
+pir_output_is( <<'CODE', <<'OUTPUT', 'StringHandle is not a tty' );
+.sub main
+    .local pmc sh
+    .local int i
+    sh = new ['StringHandle']
+    i = sh.'is_tty'()
+    say i
+.end
+CODE
+0
+OUTPUT
+
 pir_output_is( <<"CODE", <<"OUTPUT", "readall() - utf8 on closed stringhandle" );
 .sub 'main'
     .local pmc ifh


More information about the parrot-commits mailing list