MAJ

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1559 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 11 insertions, 10 deletions

diff --git a/test/Moretest/io.ml b/test/Moretest/io.ml
index 395d035e9f..2fb2c99937 100644
--- a/test/Moretest/io.ml
+++ b/test/Moretest/io.ml
@@ -82,19 +82,20 @@ let make_lines ofile =
 (* The test *)
 
 let _ =
-  test "16-byte chunks" (copy_file 16) "/vmunix" "/tmp/testio";
-  test "256-byte chunks" (copy_file 256) "/vmunix" "/tmp/testio";
-  test "4096-byte chunks" (copy_file 4096) "/vmunix" "/tmp/testio";
-  test "65536-byte chunks" (copy_file 65536) "/vmunix" "/tmp/testio";
-  test "19-byte chunks" (copy_file 19) "/vmunix" "/tmp/testio";
-  test "263-byte chunks" (copy_file 263) "/vmunix" "/tmp/testio";
-  test "4011-byte chunks" (copy_file 4011) "/vmunix" "/tmp/testio";
-  test "0...8192 byte chunks" (copy_random 8192) "/vmunix" "/tmp/testio";
+  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) "/vmunix" "/tmp/testio"; 
-  test "backwards, 64-byte chunks" (copy_seek 64) "/vmunix" "/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";
   exit 0