test

Author: c-cube

test/twine/t12.expected

@@ -1,3 +1,28 @@
+=== test n_items=10
+raw value:
+[0x0]: ["hello 0", null] (len=2)
+[0xa]: [ref(0x0)] (len=1)
+[0xc]: ["hello 1", @0xa] (len=2)
+[0x16]: [ref(0xc)] (len=1)
+[0x18]: ["hello 2", @0x16] (len=2)
+[0x22]: [ref(0x18)] (len=1)
+[0x24]: ["hello 3", @0x22] (len=2)
+[0x2e]: [ref(0x24)] (len=1)
+[0x30]: ["hello 4", @0x2e] (len=2)
+[0x3a]: [ref(0x30)] (len=1)
+[0x3c]: ["hello 5", @0x3a] (len=2)
+[0x46]: [ref(0x3c)] (len=1)
+[0x48]: ["hello 6", @0x46] (len=2)
+[0x52]: [ref(0x48)] (len=1)
+[0x54]: ["hello 7", @0x52] (len=2)
+[0x5e]: [ref(0x54)] (len=1)
+[0x60]: ["hello 8", @0x5e] (len=2)
+[0x6a]: [ref(0x60)] (len=1)
+[0x6c]: ["hello 9", @0x6a] (len=2)
+[0x76]: [ref(0x0), ref(0xc), ref(0x18), ref(0x24), ref(0x30), ref(0x3c), ref(0x48), ref(0x54), ref(0x60), ref(0x6c)] (len=10)
+
 normal.size=140, flush.size=140
+=== test n_items=1000
 normal.size=16895, flush.size=16895
+=== test n_items=100000
 normal.size=1988897, flush.size=1988897

test/twine/t12.ml

@@ -12,7 +12,7 @@ type foo = {
 type foos = { foos: foo Imandrakit_twine.offset_for list }
 [@@unboxed] [@@deriving eq, show, twine]
 
-let test ~n_items () =
+let test ?(dump = false) ~n_items () =
   let open struct
     let encoded_normal : string =
       let enc = Imandrakit_twine.Encode.create () in
@@ -59,6 +59,10 @@ let test ~n_items () =
       Buffer.contents buf
 
     let () =
+      Printf.printf "=== test n_items=%d\n" n_items;
+      if dump then
+        Printf.printf "raw value:\n%s\n"
+          (Imandrakit_twine.Dump.dump_string encoded_normal);
       Printf.printf "normal.size=%d, flush.size=%d\n%!"
         (String.length encoded_normal)
         (String.length encoded_flush);
@@ -84,6 +88,6 @@ let test ~n_items () =
   end in
   ()
 
-let () = test ~n_items:10 ()
+let () = test ~n_items:10 ~dump:true ()
 let () = test ~n_items:1_000 ()
 let () = test ~n_items:100_000 ()