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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Jun  5 23:26:07 2010
New Revision: 47406
URL: https://trac.parrot.org/parrot/changeset/47406

Log:
Remove redundant test.

Modified:
   trunk/t/pmc/io.t

Modified: trunk/t/pmc/io.t
==============================================================================
--- trunk/t/pmc/io.t	Sat Jun  5 23:22:54 2010	(r47405)
+++ trunk/t/pmc/io.t	Sat Jun  5 23:26:07 2010	(r47406)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 42;
+use Parrot::Test tests => 41;
 use Parrot::Test::Util 'create_tempfile';
 use Parrot::Test::Util 'create_tempfile';
 
@@ -41,20 +41,6 @@
 
 my (undef, $temp_file) = create_tempfile( UNLINK => 1 );
 
-pir_output_is( <<"CODE", <<'OUTPUT', "open/close" );
-.sub main :main
-    \$P0 = new ['FileHandle']
-    \$P0.'open'("$temp_file", 'w')
-    print \$P0, "a line\\n"
-    \$P0.'close'()
-    \$P0.'open'("$temp_file", 'r')
-    \$S0 = \$P0.'read'(20)
-    print \$S0
-.end
-CODE
-a line
-OUTPUT
-
 pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction (ops)");
 .loadlib 'io_ops'
 .const string temp_file = '%s'