diff --git a/tests/ounit-integration/test.ml b/tests/ounit-integration/test.ml
index 604c51c8..1032900c 100644
--- a/tests/ounit-integration/test.ml
+++ b/tests/ounit-integration/test.ml
@@ -26,7 +26,6 @@ let test_suite =
let suite =
"all" >::: [
test_suite;
- ]
+ ];;
-let _ =
- run_test_tt_main suite
+run_test_tt_main suite
diff --git a/tests/report/reference.bisect b/tests/report/reference.bisect
index 4dd90cbc..cfeb7e02 100644
Binary files a/tests/report/reference.bisect and b/tests/report/reference.bisect differ
diff --git a/tests/report/reference.csv b/tests/report/reference.csv
index 724870b2..19a1475c 100644
--- a/tests/report/reference.csv
+++ b/tests/report/reference.csv
@@ -1,2 +1,2 @@
--;6;6;4;6;1;1;0;4;0;1;0;0;5;15;0;0;0;0;0;0;0;0;1;1;2;2;19;36
-source.ml;6;6;4;6;1;1;0;4;0;1;0;0;5;15;0;0;0;0;0;0;0;0;1;1;2;2;19;36
+-;6;6;4;6;1;1;0;4;0;1;0;0;5;16;0;0;0;0;0;0;0;0;0;0;2;2;18;36
+source.ml;6;6;4;6;1;1;0;4;0;1;0;0;5;16;0;0;0;0;0;0;0;0;0;0;2;2;18;36
diff --git a/tests/report/reference.dump b/tests/report/reference.dump
index 1ecd5a70..564064dc 100644
--- a/tests/report/reference.dump
+++ b/tests/report/reference.dump
@@ -34,4 +34,4 @@ file "source.ml"
point match/function at offset 726: 2
point match/function at offset 742: 0
point sequence at offset 764: 2
- point toplevel expression at offset 780: 2
+ point match/function at offset 782: 0
diff --git a/tests/report/reference.html b/tests/report/reference.html
index 7a9667f5..b8be9776 100644
--- a/tests/report/reference.html
+++ b/tests/report/reference.html
@@ -11,7 +11,7 @@
source.ml
- 52.78%
+ 50.00%
@@ -27,6 +27,7 @@
52.78%
+
@@ -80,7 +81,7 @@
52.78%
-
+
@@ -186,7 +187,7 @@
52.78%
(0, 0)
|> ignore
-let _ = "a string to confound Buffer.add_substitute $("
+let f _ = "a string to confound Buffer.add_substitute $("
diff --git a/tests/report/reference.text b/tests/report/reference.text
index 75103cd9..fdf34ef3 100644
--- a/tests/report/reference.text
+++ b/tests/report/reference.text
@@ -5,14 +5,14 @@ Summary:
- 'if/then' points: 0/4 (0.00%)
- 'try' points: 0/1 (0.00%)
- 'while' points: none
- - 'match/function' points: 5/15 (33.33%)
+ - 'match/function' points: 5/16 (31.25%)
- 'class expression' points: none
- 'class initializer' points: none
- 'class method' points: none
- 'class value' points: none
- - 'toplevel expression' points: 1/1 (100.00%)
+ - 'toplevel expression' points: none
- 'lazy operator' points: 2/2 (100.00%)
- - total: 19/36 (52.78%)
+ - total: 18/36 (50.00%)
File 'source.ml':
- 'binding' points: 6/6 (100.00%)
- 'sequence' points: 4/6 (66.67%)
@@ -20,11 +20,11 @@ File 'source.ml':
- 'if/then' points: 0/4 (0.00%)
- 'try' points: 0/1 (0.00%)
- 'while' points: none
- - 'match/function' points: 5/15 (33.33%)
+ - 'match/function' points: 5/16 (31.25%)
- 'class expression' points: none
- 'class initializer' points: none
- 'class method' points: none
- 'class value' points: none
- - 'toplevel expression' points: 1/1 (100.00%)
+ - 'toplevel expression' points: none
- 'lazy operator' points: 2/2 (100.00%)
- - total: 19/36 (52.78%)
+ - total: 18/36 (50.00%)
diff --git a/tests/report/reference.xml b/tests/report/reference.xml
index 2bdceabe..4f51b0d4 100644
--- a/tests/report/reference.xml
+++ b/tests/report/reference.xml
@@ -7,14 +7,14 @@
-
+
-
+
-
+
@@ -24,14 +24,14 @@
-
+
-
+
-
+
@@ -68,6 +68,6 @@
-
+
diff --git a/tests/report/reference.xml-emma b/tests/report/reference.xml-emma
index fd4d02d8..326f42c5 100644
--- a/tests/report/reference.xml-emma
+++ b/tests/report/reference.xml-emma
@@ -11,7 +11,7 @@
-
+
diff --git a/tests/report/source.ml b/tests/report/source.ml
index 1652bb67..16ab6599 100644
--- a/tests/report/source.ml
+++ b/tests/report/source.ml
@@ -47,4 +47,4 @@ let () =
(0, 0)
|> ignore
-let _ = "a string to confound Buffer.add_substitute $("
+let f _ = "a string to confound Buffer.add_substitute $("