From f426a97a3151c8a57453ea0ff47530598c2e3a47 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 18 Feb 2015 10:59:27 +0100 Subject: [PATCH] fix quick tests --- tests/quick/.common.ml | 9 +++++---- tests/quick/levenshtein_dict.ml | 7 +++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/tests/quick/.common.ml b/tests/quick/.common.ml index 9ee90649..fe217640 100644 --- a/tests/quick/.common.ml +++ b/tests/quick/.common.ml @@ -1,8 +1,9 @@ #use "topfind";; -#directory "_build/core/";; -#directory "_build/string";; -#directory "_build/misc";; -#directory "_build/lwt";; +#directory "_build/src/core/";; +#directory "_build/src/string";; +#directory "_build/src/misc";; +#directory "_build/src/io";; +#directory "_build/src/lwt";; #require "unix";; diff --git a/tests/quick/levenshtein_dict.ml b/tests/quick/levenshtein_dict.ml index 8700c4fa..5fc2c3be 100755 --- a/tests/quick/levenshtein_dict.ml +++ b/tests/quick/levenshtein_dict.ml @@ -2,13 +2,12 @@ #use "tests/quick/.common.ml";; #load "containers.cma";; #load "containers_string.cma";; +#load "containers_io.cma";; open Containers_string -let words = CCIO.( - (with_in "/usr/share/dict/cracklib-small" >>>= read_lines) - |> run_exn - ) +let words = + CCIO.with_in "/usr/share/dict/words" CCIO.read_lines_l let idx = List.fold_left (fun idx s -> Levenshtein.Index.add idx s s)