mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
12 lines
214 B
OCaml
12 lines
214 B
OCaml
|
|
open OUnit
|
|
|
|
let test_add () =
|
|
let h = PHashtbl.create 5 in
|
|
PHashtbl.replace h 42 "foo";
|
|
OUnit.assert_equal (PHashtbl.find h 42) "foo"
|
|
|
|
let suite =
|
|
"test_pHashtbl" >:::
|
|
[ "test_add" >:: test_add;
|
|
]
|