git.annexia.org
/
whenjobs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Implement cleanup functions, including 'mailto'.
[whenjobs.git]
/
tests
/
parsing
/
test_load.ml
diff --git
a/tests/parsing/test_load.ml
b/tests/parsing/test_load.ml
index
6cb9f9e
..
5d4c47a
100644
(file)
--- a/
tests/parsing/test_load.ml
+++ b/
tests/parsing/test_load.ml
@@
-18,6
+18,9
@@
open Printf
open Printf
+(* Ensures that Whentools module is linked to the program. *)
+let _ = Whentools.set_variable
+
(* This program is passed a single argument, which is the .cmo file to
* dynamically load.
*)
(* This program is passed a single argument, which is the .cmo file to
* dynamically load.
*)
@@
-29,7
+32,7
@@
let file =
Sys.argv.(1)
let () =
Sys.argv.(1)
let () =
- Whenfile.init
()
;
+ Whenfile.init
Whenstate.empty
;
(try
Dynlink.loadfile file
(try
Dynlink.loadfile file
@@
-39,5
+42,6
@@
let () =
exit 1
);
exit 1
);
- let jobs = Whenfile.get_jobs () in
- printf "test_load: %s: %d jobs parsed from file\n" file (List.length jobs)
+ let state = Whenfile.get_state () in
+ printf "test_load: %s: %d jobs parsed from file\n"
+ file (Whenstate.nr_jobs state)