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 quick tests

Browse source
This commit is contained in:
Simon Cruanes 2015-02-18 10:59:27 +01:00
parent 0d3158d1bd
commit f426a97a31
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/quick/.common.ml
View file

@ -1,8 +1,9 @@
#use "topfind";; #use "topfind";;
#directory "_build/core/";; #directory "_build/src/core/";;
#directory "_build/string";; #directory "_build/src/string";;
#directory "_build/misc";; #directory "_build/src/misc";;
#directory "_build/lwt";; #directory "_build/src/io";;
#directory "_build/src/lwt";;
#require "unix";; #require "unix";;

7
tests/quick/levenshtein_dict.ml
View file

@ -2,13 +2,12 @@
#use "tests/quick/.common.ml";; #use "tests/quick/.common.ml";;
#load "containers.cma";; #load "containers.cma";;
#load "containers_string.cma";; #load "containers_string.cma";;
#load "containers_io.cma";;
open Containers_string open Containers_string
let words = CCIO.( let words =
(with_in "/usr/share/dict/cracklib-small" >>>= read_lines) CCIO.with_in "/usr/share/dict/words" CCIO.read_lines_l
|> run_exn
)
let idx = List.fold_left let idx = List.fold_left
(fun idx s -> Levenshtein.Index.add idx s s) (fun idx s -> Levenshtein.Index.add idx s s)