[Libguestfs] [PATCH 1/2] mllib: tests: add tests for string_lines_split

[Pino Toscano]

---
 mllib/common_utils_tests.ml | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/mllib/common_utils_tests.ml b/mllib/common_utils_tests.ml
index 09d5c51..283e9a1 100644
--- a/mllib/common_utils_tests.ml
+++ b/mllib/common_utils_tests.ml
@@ -27,6 +27,7 @@ let prog = "common_utils_tests"
 let assert_equal_string = assert_equal ~printer:(fun x -> x)
 let assert_equal_int = assert_equal ~printer:(fun x -> string_of_int x)
 let assert_equal_int64 = assert_equal ~printer:(fun x -> Int64.to_string x)
+let assert_equal_stringlist = assert_equal ~printer:(fun x -> "(" ^ (String.escaped (String.concat "," x)) ^ ")")
 
 (* Test Common_utils.int_of_le32 and Common_utils.le32_of_int. *)
 let test_le32 () =
@@ -110,6 +111,22 @@ let test_string_find () =
   assert_equal_int (-1) (string_find "" "baz");
   assert_equal_int (-1) (string_find "foobar" "baz")
 
+(* Test Common_utils.string_lines_split. *)
+let test_string_lines_split () =
+  assert_equal_stringlist [""] (string_lines_split "");
+  assert_equal_stringlist ["A"] (string_lines_split "A");
+  assert_equal_stringlist ["A"; ""] (string_lines_split "A\n");
+  assert_equal_stringlist ["A"; "B"] (string_lines_split "A\nB");
+  assert_equal_stringlist ["A"; "B"; "C"] (string_lines_split "A\nB\nC");
+  assert_equal_stringlist ["A"; "B"; "C"; "D"] (string_lines_split "A\nB\nC\nD");
+  assert_equal_stringlist ["A\n"] (string_lines_split "A\\");
+  assert_equal_stringlist ["A\nB"] (string_lines_split "A\\\nB");
+  assert_equal_stringlist ["A"; "B\nC"] (string_lines_split "A\nB\\\nC");
+  assert_equal_stringlist ["A"; "B\nC"; "D"] (string_lines_split "A\nB\\\nC\nD");
+  assert_equal_stringlist ["A"; "B\nC\nD"] (string_lines_split "A\nB\\\nC\\\nD");
+  assert_equal_stringlist ["A\nB"; ""] (string_lines_split "A\\\nB\n");
+  assert_equal_stringlist ["A\nB\n"] (string_lines_split "A\\\nB\\\n")
+
 (* Suites declaration. *)
 let suite =
   TestList ([
@@ -124,6 +141,7 @@ let suite =
       "prefix" >:: test_string_prefix;
       "suffix" >:: test_string_suffix;
       "find" >:: test_string_find;
+      "string_lines_split" >:: test_string_lines_split;
     ];
   ])
 
-- 
1.9.3