Displaying 4 results from an estimated 4 matches for "test_po".
Did you mean:
test_pf
2015 Jan 23
0
[PATCH 2/2] mllib: add simple tests for the JSON module
...false }"
+ (JSON.string_of_doc doc);
+ assert_equal_string
+ "{
+ \"test_true\": true,
+ \"test_false\": false
+}"
+ (JSON.string_of_doc ~fmt:JSON.Indented doc)
+
+let test_int () =
+ let doc = [ "test_zero", JSON.Int 0;
+ "test_pos", JSON.Int 5;
+ "test_neg", JSON.Int (-5);
+ "test_pos64", JSON.Int64 (Int64.of_int 10);
+ "test_neg64", JSON.Int64 (Int64.of_int (-10)); ] in
+ assert_equal_string
+ "{ \"test_zero\": 0, \"test_pos\&...
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
2015 May 11
3
[PATCH 1/2] mllib: Require OUnit2 for tests.
...ool 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 =
let doc = [ "test_zero", JSON.Int 0;
"test_pos", JSON.Int 5;
"test_neg", JSON.Int (-5);
@@ -71,7 +71,7 @@ let test_int () =
}"
(JSON.string_of_doc ~fmt:JSON.Indented doc)
-let test_list () =
+let test_list ctx =
let doc = [ "item", JSON.List [ JSON.String "foo"; JSON.Int 10; JSO...