Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: b4eb282066
Fetching contributors…

Cannot retrieve contributors at this time

45 lines (32 sloc) 1.272 kB
open Common
open Ast_ml
module Db = Database_light_ml
open OUnit
(*****************************************************************************)
(* Prelude *)
(*****************************************************************************)
(*****************************************************************************)
(* Helpers *)
(*****************************************************************************)
let verbose = false
(*****************************************************************************)
(* Unit tests *)
(*****************************************************************************)
(*---------------------------------------------------------------------------*)
(* Database building *)
(*---------------------------------------------------------------------------*)
let database_unittest =
"database_ml" >::: [
"building light database" >:: (fun () ->
let data_dir = Config.path ^ "/tests/ml/db/" in
let _db = Db.compute_database ~verbose [data_dir] in
()
)
]
(*---------------------------------------------------------------------------*)
(* Final suite *)
(*---------------------------------------------------------------------------*)
let unittest =
"analyze_ml" >::: [
database_unittest;
]
Jump to Line
Something went wrong with that request. Please try again.