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

diff --git a/tests/51_open_pattern.ml b/tests/51_open_pattern.ml
deleted file mode 100644
index 8c0b33b..0000000
--- a/tests/51_open_pattern.ml
+++ /dev/null
@@ -1,17 +0,0 @@
-(* Open a persistent pattern
- * $Id$
- *)
-
-open Printf
-open Bitstring
-
-open bitmatch "tests/test.bmpp"
-
-let () =
-  let bits = bitstring_of_string "\022Mary had a little lamb" in
-  bitmatch bits with
-  | { :pascal_string } ->
-      () (*printf "it's a Pascal string, len = %d, string = %S\n" len str*)
-  | { _ } ->
-      eprintf "not matching error\n";
-      exit 1