mirror of
https://github.com/ocaml-tracing/ocaml-trace.git
synced 2026-03-07 18:37:56 -05:00
6517ee32bc
- Implements thread-safe hash table using only atomics and arrays - Uses open addressing with linear probing - Fast lookups: atomic load + string comparison - Slow inserts acceptable (CAS-based insertion) - Includes unit tests and concurrent stress test - All tests pass with 8 threads doing 8000 total increments work on atomic_tbl
29 lines
737 B
OCaml
29 lines
737 B
OCaml
(** Simple test for Atomic_tbl *)
|
|
|
|
open Trace_landmarks
|
|
|
|
let () =
|
|
let tbl = Atomic_tbl.create () in
|
|
|
|
(* Insert and verify identity *)
|
|
let v1 = Atomic_tbl.find_or_add tbl "foo" (fun () -> ref 42) in
|
|
let v2 = Atomic_tbl.find_or_add tbl "bar" (fun () -> ref 99) in
|
|
let v3 = Atomic_tbl.find_or_add tbl "foo" (fun () -> ref 999) in
|
|
|
|
assert (v1 == v3);
|
|
(* Same key returns same value *)
|
|
assert (v1 != v2);
|
|
assert (!v1 = 42);
|
|
assert (!v2 = 99);
|
|
assert (!v3 = 42);
|
|
|
|
(* Test find *)
|
|
(match Atomic_tbl.find tbl "foo" with
|
|
| Some v -> assert (v == v1)
|
|
| None -> assert false);
|
|
|
|
(match Atomic_tbl.find tbl "nonexistent" with
|
|
| Some _ -> assert false
|
|
| None -> ());
|
|
|
|
print_endline "all Atomic_tbl tests passed!"
|