From 1f7548bb8eeeb3f420e0b7b004df43372a9a3cb4 Mon Sep 17 00:00:00 2001
From: ygrek <ygrek@autistici.org>
Date: Sun, 10 Nov 2013 12:17:59 +0800
Subject: [PATCH] add failing test for event finalization after event_base_free

---
 unittest.ml | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/unittest.ml b/unittest.ml
index f30fb01..92eef12 100644
--- a/unittest.ml
+++ b/unittest.ml
@@ -68,13 +68,25 @@ let call_set () =
   Global.set e1 Unix.stdin [READ] false do_nothing;
   add e1 (Some 0.1);
   Global.loop ONCE
- 
+
+let test_free () =
+  let base = init () in
+  let ev = create () in
+  let called = ref 0 in
+  set_timer base ev ~persist:true (fun () -> incr called);
+  add ev (Some 1.);
+  loop base ONCE;
+  free base;
+  Gc.compact ();
+  "reached end with callback called once as expected" @? (!called = 1)
+
 (* Construct the test suite *)
 let suite = "event" >::: 
   ["create_event" >:: test_create_event;
    "test_pending" >:: test_pending;
    "test_read_eof" >:: test_read_eof;
    "call_set" >:: call_set;
+   "event_base_free" >:: test_free;
  ] 
 
 (* Run the tests in the test suite *)
-- 
2.11.4.GIT