Anonymous avatar Anonymous committed 9dd8168

Improve testing of [Cf_rbtree].

Comments (0)

Files changed (1)

 Random.self_init ();;
 let jout = Cf_journal.stdout
-let _ = jout#setlimit `Info
+let _ = jout#setlimit `Notice
 Gc.set {
         printlist msg (to_list tree);
             let e = search key tree in
+            assert (member key tree);
             if (e / 2) <> key then failwith "testfind key <> e / 2"
         | Not_found ->
+            assert (not (member key tree));
             failwith "testfind -> Not_found"
     let testextract tree key =
     let test1 () =
         let m = M.replace (0, "zero") M.nil in
         let s = 0 m in
-        assert (s = "zero")
+        assert (s = "zero");
+        assert (M.member 0 m)
     let nearest_succ key m =
         match Lazy.force (M.nearest_incr key m) with
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.