simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix tests

Browse source
This commit is contained in:
Simon Cruanes 2014-06-15 23:50:28 +02:00
parent 10029acd42
commit 5422a6ad65
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
_oasis
View file

@ -172,7 +172,7 @@ Executable run_tests
CompiledObject: native CompiledObject: native
MainIs: run_tests.ml MainIs: run_tests.ml
Build$: flag(tests) Build$: flag(tests)
BuildDepends: containers, oUnit BuildDepends: containers, oUnit, qcheck
Executable web_pwd Executable web_pwd
Path: examples/cgi/ Path: examples/cgi/

4
tests/test_vector.ml
View file

@ -48,7 +48,7 @@ let suite =
open QCheck open QCheck
module V = Vector module V = Vector
let gen sub = Arbitrary.(lift V.from_list (list sub)) let gen sub = Arbitrary.(lift V.of_list (list sub))
let pp v = PP.(list string) (List.map string_of_int (V.to_list v)) let pp v = PP.(list string) (List.map string_of_int (V.to_list v))
let check_append = let check_append =
@ -66,7 +66,7 @@ let check_sort =
let gen = Arbitrary.(gen small_int) in let gen = Arbitrary.(gen small_int) in
let prop v = let prop v =
let v' = V.copy v in let v' = V.copy v in
V.sort v'; V.sort' Pervasives.compare v';
let l = V.to_list v' in let l = V.to_list v' in
List.sort compare l = l List.sort compare l = l
in in