[svn:parrot] r48797 - branches/gc_massacre/t/pmc

bacek at svn.parrot.org bacek at svn.parrot.org
Sun Sep 5 13:12:43 UTC 2010


Author: bacek
Date: Sun Sep  5 13:12:42 2010
New Revision: 48797
URL: https://trac.parrot.org/parrot/changeset/48797

Log:
Remove duplicated test from t/pmc/filehandle.t

Modified:
   branches/gc_massacre/t/pmc/io.t

Modified: branches/gc_massacre/t/pmc/io.t
==============================================================================
--- branches/gc_massacre/t/pmc/io.t	Sun Sep  5 03:02:55 2010	(r48796)
+++ branches/gc_massacre/t/pmc/io.t	Sun Sep  5 13:12:42 2010	(r48797)
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 32;
+use Parrot::Test tests => 31;
 use Parrot::Test::Util 'create_tempfile';
 
 =head1 NAME
@@ -40,25 +40,6 @@
 
 my (undef, $temp_file) = create_tempfile( UNLINK => 1 );
 
-pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction" );
-.const string temp_file = '%s'
-.sub main :main
-    interpinfo $I0, 2    # GC mark runs
-    $P0 = new ['FileHandle']
-    $P0.'open'(temp_file, 'w')
-    needs_destroy $P0
-    print $P0, "a line\n"
-    null $P0            # kill it
-    sweep 0            # a lazy GC has to close the PIO
-    $P0 = new ['FileHandle']
-    $P0.'open'(temp_file, 'r')
-    $S0 = $P0.'read'(20)
-    print $S0
-.end
-CODE
-a line
-OUTPUT
-
 pir_output_is( <<'CODE', <<'OUTPUT', "read on invalid fh should throw exception" );
 .sub main :main
     new $P0, ['FileHandle']


More information about the parrot-commits mailing list