Source

ocaml-llists / tests / test_common.mli

(* Common functions for unit testing
 *
 * Author: Vadim Shender
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version,
 * with the special exception on linking described in file LICENSE.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *)


val list_printer : ('a -> string) -> 'a list -> string
val array_printer : ('a -> string) -> 'a array -> string
val pair_printer : ('a -> string) -> 'a * 'a -> string
val pair_printer2 : ('a -> string) -> ('b -> string) -> 'a * 'b -> string
val triplet_printer : ('a -> string) -> 'a * 'a * 'a -> string
val string_printer : string -> string
val bool_printer : bool -> string

val test_laziness_aux : ?limit:int -> unit -> int Lazy_list.t * int list ref