Displaying 4 results from an estimated 4 matches for "test_bool".
2015 May 11
3
[PATCH 1/2] mllib: Require OUnit2 for tests.
...ctx =
let doc = [ "test_string", JSON.String "foo"; ] in
assert_equal_string "{ \"test_string\": \"foo\" }"
(JSON.string_of_doc doc);
@@ -39,7 +39,7 @@ let test_string () =
}"
(JSON.string_of_doc ~fmt:JSON.Indented doc)
-let test_bool () =
+let test_bool ctx =
let doc = [ "test_true", JSON.Bool true;
"test_false", JSON.Bool false ] in
assert_equal_string
@@ -52,7 +52,7 @@ let test_bool () =
}"
(JSON.string_of_doc ~fmt:JSON.Indented doc)
-let test_int () =
+let test_int ctx =...
2015 Jan 23
0
[PATCH 2/2] mllib: add simple tests for the JSON module
...quot;, JSON.String "foo"; ] in
+ assert_equal_string "{ \"test_string\": \"foo\" }"
+ (JSON.string_of_doc doc);
+ assert_equal_string "{
+ \"test_string\": \"foo\"
+}"
+ (JSON.string_of_doc ~fmt:JSON.Indented doc)
+
+let test_bool () =
+ let doc = [ "test_true", JSON.Bool true;
+ "test_false", JSON.Bool false ] in
+ assert_equal_string
+ "{ \"test_true\": true, \"test_false\": false }"
+ (JSON.string_of_doc doc);
+ assert_equal_string
+ "{
+ \&q...
2015 Jan 23
2
[PATCH 1/2] 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
2018 Aug 20
6
[PATCH 0/4] mltools: JSON unification
An evolution of:
https://www.redhat.com/archives/libguestfs/2018-August/msg00155.html