Refactor state into a separate [Whenstate] module.

[whenjobs.git] / tests / parsing / test_load.ml

diff --git a/tests/parsing/test_load.ml b/tests/parsing/test_load.ml
index 6cb9f9e..9398eb4 100644 (file)
--- a/tests/parsing/test_load.ml
+++ b/tests/parsing/test_load.ml
@@ -29,7 +29,7 @@ let file =
   Sys.argv.(1)
 
 let () =
-  Whenfile.init ();
+  Whenfile.init Whenstate.empty;
 
   (try
      Dynlink.loadfile file
@@ -39,5 +39,6 @@ let () =
        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)