File tree Expand file tree Collapse file tree 4 files changed +9
-11
lines changed Expand file tree Collapse file tree 4 files changed +9
-11
lines changed Original file line number Diff line number Diff line change @@ -15,7 +15,6 @@ depends: [
1515 "containers" { = version }
1616 "seq"
1717 "qcheck-core" { with-test }
18- "ounit" { with-test }
1918 "iter" { with-test }
2019 "gen" { with-test }
2120 #"mdx" { with-test & >= "1.5.0" & < "2.0.0" }
Original file line number Diff line number Diff line change @@ -17,7 +17,6 @@ depends: [
1717 "containers" { = version }
1818 "iter" { with-test }
1919 "qcheck-core" { with-test }
20- "ounit" { with-test }
2120 "uutf" { with-test }
2221 "odoc" { with-doc }
2322]
Original file line number Diff line number Diff line change @@ -143,9 +143,9 @@ let clear_and_reset v =
143143 push v ("hello"^"world");
144144 Weak.set a 0 (Some (get v 0));
145145 Gc.full_major(); Gc.compact();
146- OUnit2. assert_bool "is alive" (Weak.check a 0);
146+ assert_bool "is alive" (Weak.check a 0);
147147 Gc.full_major(); Gc.compact();
148- OUnit2. assert_equal None (Weak.get a 0);
148+ assert_equal None (Weak.get a 0);
149149*)
150150
151151let [@ inline] is_empty v = v.size = 0
Original file line number Diff line number Diff line change 1111
1212 let tbl = CCMixtbl.create 10 ;;
1313
14- OUnit2. assert_equal None (CCMixtbl.get ~inj:inj_int tbl "a");;
14+ assert_equal None (CCMixtbl.get ~inj:inj_int tbl "a");;
1515
1616 CCMixtbl.set inj_int tbl "a" 1;;
1717
18- OUnit2. assert_equal (Some 1) (CCMixtbl.get ~inj:inj_int tbl "a");;
18+ assert_equal (Some 1) (CCMixtbl.get ~inj:inj_int tbl "a");;
1919
2020 let inj_string = CCMixtbl.create_inj () ;;
2121
2222 CCMixtbl.set inj_string tbl "b" "Hello";
2323
24- OUnit2. assert_equal (Some "Hello") (CCMixtbl.get inj_string tbl "b");;
25- OUnit2. assert_equal None (CCMixtbl.get inj_string tbl "a");;
26- OUnit2. assert_equal (Some 1) (CCMixtbl.get inj_int tbl "a");;
24+ assert_equal (Some "Hello") (CCMixtbl.get inj_string tbl "b");;
25+ assert_equal None (CCMixtbl.get inj_string tbl "a");;
26+ assert_equal (Some 1) (CCMixtbl.get inj_int tbl "a");;
2727 CCMixtbl.set inj_string tbl "a" "Bye";;
2828
29- OUnit2. assert_equal None (CCMixtbl.get inj_int tbl "a");;
30- OUnit2. assert_equal (Some "Bye") (CCMixtbl.get inj_string tbl "a");;
29+ assert_equal None (CCMixtbl.get inj_int tbl "a");;
30+ assert_equal (Some "Bye") (CCMixtbl.get inj_string tbl "a");;
3131 ]}
3232
3333 @since 0.6 *)
You can’t perform that action at this time.
0 commit comments