3 files changed, 31 insertions(+), 1 deletions(-)

M test/dune
D test/persistent.ml
A test/vectorTest.ml

@@ 1,2 1,3 @@
 (test
- (name persistent))
+ (name vectorTest)
+ (libraries persistent))

@@ 0,0 1,29 @@
+module Vector = Persistent.Vector
+
+(* Just spams a bunch of numbers in and asserts we get the same stuff back out
+   Should cover pretty much all of the insertion logic.
+ *)
+let test_insert_sanity () =
+  let num = 1 lsl 20 in
+  let v = Seq.init num Fun.id
+          |> Seq.fold_left
+               (fun acc i -> Vector.append acc i)
+               (Vector.empty ())
+  in
+  let expected = List.of_seq (Seq.init num Fun.id) in
+  let actual = List.of_seq (Vector.to_seq v) in
+  assert (List.equal Int.equal actual expected)
+
+let all_tests = [
+    ("Insert Sanity", test_insert_sanity)
+  ]
+
+let main () =
+  List.iter
+    (fun (name, test_function) ->
+      Printf.eprintf "Running test: %s..." name;
+      test_function ();
+      Printf.eprintf "Ok\n")
+    all_tests
+
+let () = main ()