cvsuser 03/06/26 01:01:35
Modified: t/pmc io.t
Log:
better check for DOD runs
Revision Changes Path
1.2 +4 -2 parrot/t/pmc/io.t
Index: io.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/io.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- io.t 23 Jun 2003 09:26:22 -0000 1.1
+++ io.t 26 Jun 2003 08:01:34 -0000 1.2
@@ -16,6 +16,7 @@
OUTPUT
output_is(<<'CODE', <<'OUTPUT', "timely destruction");
+ interpinfo I0, 2 # DOD runs
open P0, "temp.file", ">"
print P0, "a line\n"
null P0 # kill it
@@ -23,8 +24,9 @@
open P0, "temp.file", "<"
read S0, P0, 20
print S0
- interpinfo I0, 2 # DOD runs
- print I0
+ interpinfo I1, 2 # DOD runs
+ sub I1, I0
+ print I1
print "\n"
end
CODE
