Permalink
Browse files

Fix unit tests after interface change where a notifyfn is passed in

  • Loading branch information...
David Scott
David Scott committed Dec 20, 2012
1 parent 91de275 commit 1f397c5a345e8d5551722c9e76af709116fd588b
Showing with 2 additions and 2 deletions.
  1. +2 −2 lwt_test/lwt_test.ml
View
@@ -38,15 +38,15 @@ let one_request_response () =
let id = () in
let must_notify = ref false in
let request_th = Lwt_ring.Front.push_request_and_wait client (fun () -> must_notify := true) (fun _ -> id) in
- assert_equal ~msg:"must_notify" ~printer:string_of_bool true must_notify;
+ assert_equal ~msg:"must_notify" ~printer:string_of_bool true (!must_notify);
Printf.fprintf stdout "%s\n%!" (Ring.Rpc.Back.to_string back);
assert_equal ~msg:"more_to_do" ~printer:string_of_bool true (Ring.Rpc.Back.more_to_do back);
let finished = ref false in
Ring.Rpc.Back.ack_requests back (fun _ -> finished := true);
assert_equal ~msg:"ack_requests" ~printer:string_of_bool true (!finished);
- Lwt_ring.Back.push_response server (fun _ -> ());
+ Lwt_ring.Back.push_response server (fun () -> ()) (fun _ -> ());
Printf.fprintf stdout "%s\n%!" (Ring.Rpc.Back.to_string back);

0 comments on commit 1f397c5

Please sign in to comment.