|
@@ -51,6 +51,7 @@ let gm1 () =
|
|
|
let expected = "qw" in
|
|
|
OUnit.assert_equal current expected
|
|
|
;;
|
|
|
+
|
|
|
let gm2 () =
|
|
|
let current = Edit_command.gen_modification [ "qw" ; "erty" ; "a" ; "zerty"] in
|
|
|
let expected = "\nqw\nerty\na\nzerty\n" in
|
|
@@ -59,12 +60,12 @@ let gm2 () =
|
|
|
|
|
|
let n_l =
|
|
|
[
|
|
|
- ("Remove empty strings in list",`Quick, epur);
|
|
|
- ("Summary of modifications : one element",`Quick, gm1);
|
|
|
- ("Summary of modifications : several elements",`Quick, gm2);
|
|
|
+ ("Remove empty strings in list", `Quick, epur);
|
|
|
+ ("Summary of modifications : one element", `Quick, gm1);
|
|
|
+ ("Summary of modifications : several elements", `Quick, gm2);
|
|
|
]
|
|
|
;;
|
|
|
|
|
|
(* To be used in test.ml *)
|
|
|
-let alco = [( "Edit_command.ml",n_l );];;
|
|
|
+let alco = [( "Edit_command.ml", n_l );];;
|
|
|
|