+let () =
+ let csv1 = [ [ "a"; "b"; "c"; ""; "" ];
+ [ "f"; "g"; "h"; "i"; "" ];
+ [ "" ];
+ [ ] ] in
+ let csv2 = trim ~top:false ~left:false ~right:true ~bottom:true csv1 in
+ assert (compare csv1 csv2 = 0)
+let () =
+ let csv1 = [ [ "a"; "b"; "c"; ""; "" ];
+ [ "f"; "g"; "h"; "i"; "" ];
+ [ "" ];
+ [ ] ] in
+ let csv2 = [ [ "a"; "b"; "c"; "d"; "" ];
+ [ "f"; "g"; "h"; "i"; "" ];
+ [ "" ];
+ [ ] ] in
+ assert (compare csv1 csv2 < 0)
+
+