Lines Matching refs:ofile
61 let make_lines ofile =
62 let oc = open_out ofile in
70 let test_trunc_line ofile =
72 let oc = open_out ofile in
76 let ic = open_in ofile in
90 let ofile = Filename.temp_file "testio" "" in
92 (copy_file 256) (copy_file 256) ifile ofile;
94 (copy_file 4096) (copy_file 4096) ifile ofile;
96 (copy_file 65536) (copy_file 65536) ifile ofile;
98 (copy_file 256) (copy_file 4096) ifile ofile;
100 (copy_file 4096) (copy_file 256) ifile ofile;
102 (copy_file 4096) (copy_file 65536) ifile ofile;
104 (copy_file 263) (copy_file 4011) ifile ofile;
106 (copy_file 613) (copy_file 1027) ifile ofile;
108 (copy_random 8192) (copy_random 8192) ifile ofile;
112 copy_line copy_line linesfile ofile;
113 test_trunc_line ofile;
115 Sys.remove ofile