Migrate lib-set tests to ocamltest
parent
8aaf63a5ad
commit
8512bf2901
|
@ -1,18 +0,0 @@
|
|||
#**************************************************************************
|
||||
#* *
|
||||
#* OCaml *
|
||||
#* *
|
||||
#* Xavier Clerc, SED, INRIA Rocquencourt *
|
||||
#* *
|
||||
#* Copyright 2010 Institut National de Recherche en Informatique et *
|
||||
#* en Automatique. *
|
||||
#* *
|
||||
#* All rights reserved. This file is distributed under the terms of *
|
||||
#* the GNU Lesser General Public License version 2.1, with the *
|
||||
#* special exception on linking described in the file LICENSE. *
|
||||
#* *
|
||||
#**************************************************************************
|
||||
|
||||
BASEDIR=../..
|
||||
include $(BASEDIR)/makefiles/Makefile.several
|
||||
include $(BASEDIR)/makefiles/Makefile.common
|
|
@ -0,0 +1,2 @@
|
|||
testmap.ml
|
||||
testset.ml
|
|
@ -1,3 +1,6 @@
|
|||
(* TEST
|
||||
*)
|
||||
|
||||
module M = Map.Make(struct type t = int let compare (x:t) y = compare x y end)
|
||||
|
||||
let img x m = try Some(M.find x m) with Not_found -> None
|
||||
|
|
|
@ -1,3 +1,6 @@
|
|||
(* TEST
|
||||
*)
|
||||
|
||||
module S = Set.Make(struct type t = int let compare (x:t) y = compare x y end)
|
||||
|
||||
let testvals = [0;1;2;3;4;5;6;7;8;9]
|
||||
|
|
Loading…
Reference in New Issue