# HG changeset patch
# User Jonathan Knowles <jonathan.knowles@xxxxxxxxxxxxx>
# Date 1265039942 0
# Node ID 86c008b5d3aa275c7422fc5f5e32d8429fc681a7
# Parent 647fd458b3759aaa726a4fa5fffb28eab378ba15
[PCR0047] Adds to Ocamltest a new test case constructor
"make_function_test_case", useful for making a test case that tests a single
function.
Signed-off-by: Jonathan Knowles <jonathan.knowles@xxxxxxxxxxxxx>
diff -r 647fd458b375 -r 86c008b5d3aa ocaml/util/ocamltest.ml
--- a/ocaml/util/ocamltest.ml Mon Feb 01 15:59:02 2010 +0000
+++ b/ocaml/util/ocamltest.ml Mon Feb 01 15:59:02 2010 +0000
@@ -259,6 +259,9 @@
let make_test_case name description case =
Case (name, description, case)
+let make_function_test_case name case =
+ Case (name, sprintf "Tests the %s function." name, case)
+
let make_test_suite name description suite =
Suite (name, description, suite)
diff -r 647fd458b375 -r 86c008b5d3aa ocaml/util/ocamltest.mli
--- a/ocaml/util/ocamltest.mli Mon Feb 01 15:59:02 2010 +0000
+++ b/ocaml/util/ocamltest.mli Mon Feb 01 15:59:02 2010 +0000
@@ -84,6 +84,9 @@
(** Makes a test case. *)
val make_test_case : name -> description -> case -> test
+(** Makes a function test case with a default description. *)
+val make_function_test_case : name -> case -> test
+
(** Makes a test suite. *)
val make_test_suite : name -> description -> suite -> test
2 files changed, 6 insertions(+)
ocaml/util/ocamltest.ml | 3 +++
ocaml/util/ocamltest.mli | 3 +++
xen-api.hg-12.patch
Description: Text Data
_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api
|
Home