Index: t/pmc/io.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/io.t,v
retrieving revision 1.5
diff -u -r1.5 io.t
--- t/pmc/io.t 9 Jul 2003 19:27:05 -0000 1.5
+++ t/pmc/io.t 28 Jul 2003 17:39:02 -0000
@@ -100,6 +100,8 @@
ok 6
OUTPUT
+SKIP: {
+ skip "clone not finished yet", 1
output_is(<<'CODE', <<'OUTPUT', "clone");
open P0, "temp.file", "<"
clone P1, P0
@@ -109,6 +111,7 @@
CODE
a line
OUTPUT
+}
# It would be very embarrassing if these didnt work...
open FOO, ">temp.file";
