X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=tests%2F35_load_from_file.ml;fp=tests%2F35_load_from_file.ml;h=0000000000000000000000000000000000000000;hb=c5fb6aaecc4cc7fae8267123451b88fecaacc666;hp=849d2f1644065f189340d368f2d1ff89833be9c6;hpb=5e05f1e35f74573c23bbcff8efa5ba5c817d113e;p=ocaml-bitstring.git

diff --git a/tests/35_load_from_file.ml b/tests/35_load_from_file.ml
deleted file mode 100644
index 849d2f1..0000000
--- a/tests/35_load_from_file.ml
+++ /dev/null
@@ -1,56 +0,0 @@
-(* Test the various functions to load bitstrings from files.
- * $Id$
- *)
-
-open Printf
-open Bitstring
-
-let () =
-  let bits1 =
-    let b1 = make_bitstring 800 '\x5a' in
-    let b2 = make_bitstring 400 '\x88' in (
-      BITSTRING {
-	b1 : 800 : bitstring;
-	b2 : 400 : bitstring
-      }
-    ) in
-  let bits2 = (
-    let b = make_bitstring 800 '\xaa' in
-    BITSTRING {
-      b : 800 : bitstring
-    }
-  ) in
-  let bits = concat [bits1; bits2] in
-  let filename, chan =
-    Filename.open_temp_file ~mode:[Open_binary] "bitstring_test" ".tmp" in
-  bitstring_to_chan bits chan;
-  close_out chan;
-
-  let bits' = bitstring_of_file filename in
-  assert (equals bits bits');
-
-  let chan = open_in filename in
-  let bits' = bitstring_of_chan chan in
-  close_in chan;
-  assert (equals bits bits');
-
-  let chan = open_in filename in
-  let bits' = bitstring_of_chan_max chan 150 in
-  assert (equals bits1 bits');
-  let bits' = bitstring_of_chan_max chan 100 in
-  assert (equals bits2 bits');
-  close_in chan;
-
-  let fd = Unix.openfile filename [Unix.O_RDONLY] 0 in
-  let bits' = bitstring_of_file_descr fd in
-  Unix.close fd;
-  assert (equals bits bits');
-
-  let fd = Unix.openfile filename [Unix.O_RDONLY] 0 in
-  let bits' = bitstring_of_file_descr_max fd 150 in
-  assert (equals bits1 bits');
-  let bits' = bitstring_of_file_descr_max fd 100 in
-  assert (equals bits2 bits');
-  Unix.close fd;
-
-  Unix.unlink filename