organise repository a little bit

bench/gap_buffer_automerge.mlb

@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  automerge.sml
+  ../data-sets/automerge.sml
 end
 
 transaction.sml

bench/gap_buffer_rust.mlb

@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  rust.sml
+  ../data-sets/rust.sml
 end
 
 transaction.sml

bench/gap_buffer_seph.mlb

@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  seph.sml
+  ../data-sets/seph.sml
 end
 
 transaction.sml

bench/gap_buffer_svelte.mlb

@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  svelte.sml
+  ../data-sets/svelte.sml
 end
 
 transaction.sml

bench/rope_automerge.mlb

@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  automerge.sml
+  ../data-sets/automerge.sml
 end
 
 transaction.sml

bench/rope_rust.mlb

@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  rust.sml
+  ../data-sets/rust.sml
 end
 
 transaction.sml

bench/rope_seph.mlb

@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  seph.sml
+  ../data-sets/seph.sml
 end
 
 transaction.sml

bench/rope_svelte.mlb

@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 ann
   "allowVectorExps true"
 in
-  svelte.sml
+  ../data-sets/svelte.sml
 end
 
 transaction.sml

tests/compare_to_rope.sml

@@ -0,0 +1,16 @@
+structure CompareToRope =
+struct
+  local
+    fun folder ((pos, delNum, insStr), buffer, fIns, fDel) =
+      let
+        val buffer =
+          if String.size insStr > 0 then 
+            fIns (pos, insStr, buffer) else buffer
+      in
+        buffer
+      end
+  in
+    fun runTxns () =
+      Vector.foldl folder Txn.empty Txn.txns
+  end
+end