diff options
| author | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2008-01-28 05:29:20 +0000 |
|---|---|---|
| committer | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2008-01-28 05:29:20 +0000 |
| commit | 3f4a98da0fbf8a87c674d6737d8c6cec7e8567e5 (patch) | |
| tree | f5aa13505824d708414ece1f00219b811315c44a /test | |
| parent | 30f3fa2c5bc27f8c59930741aa1b6dd5a34a6b40 (diff) | |
| download | ocaml-gcaml3090.tar.gz | |
3.09.1 updategcaml3090
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/gcaml3090@8792 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'test')
| -rw-r--r-- | test/Moretest/io.ml | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/test/Moretest/io.ml b/test/Moretest/io.ml index 2fb2c99937..f843e70846 100644 --- a/test/Moretest/io.ml +++ b/test/Moretest/io.ml @@ -83,19 +83,21 @@ let make_lines ofile = let _ = let src = Sys.argv.(1) in - test "16-byte chunks" (copy_file 16) src "/tmp/testio"; - test "256-byte chunks" (copy_file 256) src "/tmp/testio"; - test "4096-byte chunks" (copy_file 4096) src "/tmp/testio"; - test "65536-byte chunks" (copy_file 65536) src "/tmp/testio"; - test "19-byte chunks" (copy_file 19) src "/tmp/testio"; - test "263-byte chunks" (copy_file 263) src "/tmp/testio"; - test "4011-byte chunks" (copy_file 4011) src "/tmp/testio"; - test "0...8192 byte chunks" (copy_random 8192) src "/tmp/testio"; - test "line per line, short lines" copy_line "/etc/hosts" "/tmp/testio"; - make_lines "/tmp/lines"; - test "line per line, short and long lines" copy_line "/tmp/lines" "/tmp/testio"; - test "backwards, 4096-byte chunks" (copy_seek 4096) src "/tmp/testio"; - test "backwards, 64-byte chunks" (copy_seek 64) src "/tmp/testio"; - Sys.remove "/tmp/lines"; - Sys.remove "/tmp/testio"; + let testio = Filename.temp_file "testio" "" in + let lines = Filename.temp_file "lines" "" in + test "16-byte chunks" (copy_file 16) src testio; + test "256-byte chunks" (copy_file 256) src testio; + test "4096-byte chunks" (copy_file 4096) src testio; + test "65536-byte chunks" (copy_file 65536) src testio; + test "19-byte chunks" (copy_file 19) src testio; + test "263-byte chunks" (copy_file 263) src testio; + test "4011-byte chunks" (copy_file 4011) src testio; + test "0...8192 byte chunks" (copy_random 8192) src testio; + test "line per line, short lines" copy_line "/etc/hosts" testio; + make_lines lines; + test "line per line, short and long lines" copy_line lines testio; + test "backwards, 4096-byte chunks" (copy_seek 4096) src testio; + test "backwards, 64-byte chunks" (copy_seek 64) src testio; + Sys.remove lines; + Sys.remove testio; exit 0 |