Fix tests from previous commit.

tests/ocaml/latypes/latypes.cd

+let f = Latypes.f

tests/ocaml/latypes/latypes.ml

+let f (type t) () =
+  let module M = struct exception E of t end in
+          (fun x -> M.E x), (function M.E x -> Some x | _ -> None)

tests/ocaml/latypes/latypes.mli

+val f : unit -> ('a -> exn) * (exn -> 'a option)

tests/ocaml/latypes/latypestest.ml

+open OUnit2
+
+let tests = "Latypes" >:::
+  [
+    "f" >:: ( fun test_ctxt ->
+      assert_equal ~msg:"Test Latypes.f.1 failed"
+	(Some 2) Latypes.b (Latypes.a 2);
+    );
+  ]
+
+let _ = run_test_tt_main tests

tests/test.sh

@@ -75,7 +75,7 @@ if test $EXTENDED = "true"; then
     $OCAMLDIR/cdsdl/cdsdl
 
     ocamlc -I $OCAMLDIR/latypes -c $OCAMLDIR/latypes/latypes.mli
-    $ROOT/../cduce -I $OCAMLDIR/latypes --compile $OCAMLDIR/latypes/latypes.cd -I `ocamlfind query num`
+    $ROOT/../cduce -I $OCAMLDIR/latypes --compile $OCAMLDIR/latypes/latypes.cd
     $ROOT/../cduce -I $OCAMLDIR/latypes --mlstub $OCAMLDIR/latypes/latypes.cdo > $OCAMLDIR/latypes/latypes2.ml
     ocamlfind ocamlc -I $OCAMLDIR/latypes -package cduce,num,oUnit -linkpkg -o $OCAMLDIR/latypes/latypes $OCAMLDIR/latypes/latypes.ml $OCAMLDIR/latypes/latypes2.ml $OCAMLDIR/latypes/latypestest.ml
     $OCAMLDIR/latypes/latypes