From e9760976b42500e8308d0b609eaa0abcce198de6 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 19 Nov 2014 18:02:14 +0100 Subject: [PATCH] fix warnings in test --- tests/test_mixtbl.ml | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tests/test_mixtbl.ml b/tests/test_mixtbl.ml index bbb5b28f..f58fc2bb 100644 --- a/tests/test_mixtbl.ml +++ b/tests/test_mixtbl.ml @@ -7,16 +7,16 @@ let example () = let inj_int = Mixtbl.create_inj () in let tbl = Mixtbl.create 10 in OUnit.assert_equal None (Mixtbl.get ~inj:inj_int tbl "a"); - Mixtbl.set inj_int tbl "a" 1; + Mixtbl.set ~inj:inj_int tbl "a" 1; OUnit.assert_equal (Some 1) (Mixtbl.get ~inj:inj_int tbl "a"); let inj_string = Mixtbl.create_inj () in - Mixtbl.set inj_string tbl "b" "Hello"; - OUnit.assert_equal (Some "Hello") (Mixtbl.get inj_string tbl "b"); - OUnit.assert_equal None (Mixtbl.get inj_string tbl "a"); - OUnit.assert_equal (Some 1) (Mixtbl.get inj_int tbl "a"); - Mixtbl.set inj_string tbl "a" "Bye"; - OUnit.assert_equal None (Mixtbl.get inj_int tbl "a"); - OUnit.assert_equal (Some "Bye") (Mixtbl.get inj_string tbl "a"); + Mixtbl.set ~inj:inj_string tbl "b" "Hello"; + OUnit.assert_equal (Some "Hello") (Mixtbl.get ~inj:inj_string tbl "b"); + OUnit.assert_equal None (Mixtbl.get ~inj:inj_string tbl "a"); + OUnit.assert_equal (Some 1) (Mixtbl.get ~inj:inj_int tbl "a"); + Mixtbl.set ~inj:inj_string tbl "a" "Bye"; + OUnit.assert_equal None (Mixtbl.get ~inj:inj_int tbl "a"); + OUnit.assert_equal (Some "Bye") (Mixtbl.get ~inj:inj_string tbl "a"); () let test_length () =