[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