[Pkg-libvirt-commits] [libguestfs] 196/384: mllib: tests: add tests for string_lines_split

[Hilko Bengen]

This is an automated email from the git hooks/post-receive script.

bengen pushed a commit to branch experimental
in repository libguestfs.

commit 6f14cae1ba932fe7c583a05b82d1dfe534909c8a
Author: Pino Toscano <ptoscano at redhat.com>
Date:   Fri Jan 23 11:08:27 2015 +0100

    mllib: tests: add tests for string_lines_split
---
 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;
     ];
   ])
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-libvirt/libguestfs.git