Index: t/op/hacks.t
===================================================================
RCS file: /cvs/public/parrot/t/op/hacks.t,v
retrieving revision 1.7
diff -u -r1.7 hacks.t
--- t/op/hacks.t	20 May 2003 11:11:11 -0000	1.7
+++ t/op/hacks.t	27 May 2003 00:29:28 -0000
@@ -51,13 +51,12 @@
 open FOO, ">temp.file";  # Clobber previous contents
 close FOO;
 
-# This one passes, but for the wrong reason
 output_is(<<'CODE', <<'OUTPUT', "3-arg open");
-       open I1, "temp.file", "<"
-       print "Foobar\n"
+       open I1, "temp.file", ">"
+       print I1, "Foobar\n"
        close I1
 
-       open I3, "temp.file", "r"
+       open I3, "temp.file", "<"
        readline S1, I3
        close I3
 
@@ -117,6 +116,8 @@
 Parrot overwrites
 OUTPUT
          
+close FOO;
+
 unlink("temp.file");
 
 1; # HONK