Merge 5a77967 into a4b8cb6

.travis.yml

@@ -20,7 +20,7 @@ scripts:
           WD=`pwd`
           if [ ! -f node_modules/.bin/esy ]
           then
-            npm install --no-save esy
+            npm install --no-save esy@0.6.4
             export PATH="$WD/node_modules/.bin:$PATH"
           else
             mkdir -p _wrapped_esy

Makefile

@@ -1,10 +1,10 @@
 .PHONY : build
 build :
-	dune build
+	dune build -p bisect_ppx
 
 .PHONY : test
 test : build
-	dune runtest --force --no-buffer -j 1
+	dune runtest -p bisect_ppx --force --no-buffer -j 1
 
 SELF_COVERAGE := _self
 
@@ -105,8 +105,9 @@ EXPECTED_FILES := \
 .PHONY : self-coverage-test
 self-coverage-test :
 	cd $(SELF_COVERAGE) && rm -f bisect*.meta
-	cd $(SELF_COVERAGE) && dune build @install
-	cd $(SELF_COVERAGE) && dune runtest --force --no-buffer -j 1
+	cd $(SELF_COVERAGE) && dune build @install --instrument-with meta_bisect_ppx
+	cd $(SELF_COVERAGE) && \
+	  dune runtest --force --no-buffer -j 1 --instrument-with meta_bisect_ppx
 	rm -rf _coverage
 	cd $(SELF_COVERAGE) && \
 	  _build/install/default/bin/meta-bisect-ppx-report \

binaries.esy.json

@@ -2,7 +2,7 @@
   "dependencies": {
     "ocaml": ">= 4.2.0",
     "@opam/cmdliner": "^1.0.0",
-    "@opam/dune": "*",
+    "@opam/dune": "^2.7.0",
     "@opam/ocaml-migrate-parsetree": "^1.7.0",
     "@opam/ppx_tools_versioned": "^5.4.0"
   },

bisect_ppx.opam

@@ -21,7 +21,7 @@ maintainer: [
 depends: [
   "base-unix"
   "cmdliner" {>= "1.0.0"}
-  "dune"
+  "dune" {>= "2.7.0"}
   "ocaml" {>= "4.02.0"}
   "ocaml-migrate-parsetree" {>= "1.7.0"}
   "ppx_tools_versioned" {>= "5.4.0"}

dune-project

@@ -1 +1,3 @@
-(lang dune 1.0)
+(lang dune 2.7)
+
+(formatting disabled)

src/ppx/bucklescript/dune

@@ -1,3 +1,4 @@
 (executable
+ (modes byte exe)
  (name ppx)
  (libraries bisect_ppx ocaml-migrate-parsetree))

src/ppx/dune

@@ -5,6 +5,7 @@
  (name bisect_ppx)
  (public_name bisect_ppx)
  (kind ppx_rewriter)
+ (instrumentation.backend (ppx bisect_ppx))
  (synopsis "Code coverage for OCaml")
  (ppx_runtime_libraries bisect_ppx.runtime)
  (preprocess (pps ppx_tools_versioned.metaquot_411))

src/report/dune

@@ -1,4 +1,5 @@
 (executable
+ (modes byte exe)
  (name report)
  (public_name bisect-ppx-report)
  (package bisect_ppx)

test/dune

@@ -1 +1 @@
-(ignored_subdirs (bucklescript))
+(dirs (:standard \ bucklescript))

test/self/bisect_ppx.diff

@@ -5,26 +5,25 @@ diff -ru src/common/dune _self/bisect_ppx/src/common/dune
  (library
   (name bisect_common)
   (public_name bisect_ppx.common)
-+ (preprocess (pps meta_bisect_ppx))
++ (instrumentation (backend meta_bisect_ppx))
   (synopsis "Bisect_ppx internal functions (internal)"))
 diff -ru src/ppx/dune _self/bisect_ppx/src/ppx/dune
 --- src/ppx/dune
 +++ _self/bisect_ppx/src/ppx/dune
-@@ -7,5 +7,5 @@
-  (kind ppx_rewriter)
+@@ -9,4 +9,5 @@
   (synopsis "Code coverage for OCaml")
   (ppx_runtime_libraries bisect_ppx.runtime)
-- (preprocess (pps ppx_tools_versioned.metaquot_410))
-+ (preprocess (pps meta_bisect_ppx ppx_tools_versioned.metaquot_410))
+  (preprocess (pps ppx_tools_versioned.metaquot_411))
++ (instrumentation (backend meta_bisect_ppx))
   (libraries bisect_ppx.common ocaml-migrate-parsetree ppx_tools_versioned str))
 diff -ru src/report/dune _self/bisect_ppx/src/report/dune
 --- src/report/dune
 +++ _self/bisect_ppx/src/report/dune
-@@ -2,6 +2,7 @@
+@@ -3,6 +3,7 @@
   (name report)
   (public_name bisect-ppx-report)
   (package bisect_ppx)
-+ (preprocess (pps meta_bisect_ppx))
++ (instrumentation (backend meta_bisect_ppx))
   (libraries bisect_ppx.common cmdliner unix))
 
  (rule
@@ -35,5 +34,5 @@ diff -ru src/runtime/native/dune _self/bisect_ppx/src/runtime/native/dune
   (name bisect)
   (public_name bisect_ppx.runtime)
   (synopsis "Bisect_ppx runtime library (internal)")
-+ (preprocess (pps meta_bisect_ppx))
++ (instrumentation (backend meta_bisect_ppx))
   (libraries bisect_ppx.common unix))

test/self/meta_bisect_ppx.diff

@@ -1,7 +1,7 @@
 diff -ru src/common/bisect_common.ml _self/meta_bisect_ppx/src/common/bisect_common.ml
 --- src/common/bisect_common.ml
 +++ _self/meta_bisect_ppx/src/common/bisect_common.ml
-@@ -167,7 +167,7 @@
+@@ -175,7 +175,7 @@
    Random.self_init ()
 
  let random_filename base_name =
@@ -23,7 +23,7 @@ diff -ru src/common/dune _self/meta_bisect_ppx/src/common/dune
 diff -ru src/ppx/dune _self/meta_bisect_ppx/src/ppx/dune
 --- src/ppx/dune
 +++ _self/meta_bisect_ppx/src/ppx/dune
-@@ -2,10 +2,10 @@
+@@ -2,11 +2,11 @@
  (ocamlyacc exclude_parser)
 
  (library
@@ -32,25 +32,27 @@ diff -ru src/ppx/dune _self/meta_bisect_ppx/src/ppx/dune
 + (name meta_bisect_ppx)
 + (public_name meta_bisect_ppx)
   (kind ppx_rewriter)
+- (instrumentation.backend (ppx bisect_ppx))
++ (instrumentation.backend (ppx meta_bisect_ppx))
   (synopsis "Code coverage for OCaml")
 - (ppx_runtime_libraries bisect_ppx.runtime)
 + (ppx_runtime_libraries meta_bisect_ppx.runtime)
-  (preprocess (pps ppx_tools_versioned.metaquot_410))
+  (preprocess (pps ppx_tools_versioned.metaquot_411))
 - (libraries bisect_ppx.common ocaml-migrate-parsetree ppx_tools_versioned str))
 + (libraries meta_bisect_ppx.common ocaml-migrate-parsetree ppx_tools_versioned str))
 diff -ru src/ppx/instrument.ml _self/meta_bisect_ppx/src/ppx/instrument.ml
 --- src/ppx/instrument.ml
 +++ _self/meta_bisect_ppx/src/ppx/instrument.ml
 @@ -54,7 +54,7 @@
- module Ast_mapper_class = Ast_mapper_class_410
+ module Ast_mapper_class = Ast_mapper_class_411
 
  (* From Bisect_ppx. *)
 -module Common = Bisect_common
 +module Common = Meta_bisect_common
 
 
 
-@@ -907,7 +907,7 @@
+@@ -905,7 +905,7 @@
            let ___bisect_visit___ =
              let point_definitions = [%e points_data] in
              let `Staged cb =
@@ -74,8 +76,9 @@ diff -ru src/ppx/register.ml _self/meta_bisect_ppx/src/ppx/register.ml
 diff -ru src/report/dune _self/meta_bisect_ppx/src/report/dune
 --- src/report/dune
 +++ _self/meta_bisect_ppx/src/report/dune
-@@ -1,8 +1,8 @@
+@@ -1,9 +1,9 @@
  (executable
+  (modes byte exe)
   (name report)
 - (public_name bisect-ppx-report)
 - (package bisect_ppx)
@@ -120,8 +123,8 @@ diff -ru src/report/report_html.ml _self/meta_bisect_ppx/src/report/report_html.
 -module Common = Bisect_common
 +module Common = Meta_bisect_common
 
- let css_variables =
-   ["unvisited_color", "#ffecec";
+ type theme = [
+   | `Light
 diff -ru src/report/report.ml _self/meta_bisect_ppx/src/report/report.ml
 --- src/report/report.ml
 +++ _self/meta_bisect_ppx/src/report/report.ml

test/unit/dune

@@ -2,7 +2,7 @@
  (name test_main)
  (libraries bisect_ppx.runtime compiler-libs.common ounit2))
 
-(alias
- (name runtest)
+(rule
+ (alias runtest)
  (deps (:tester test_main.exe) (source_tree fixtures))
  (action (run %{tester} -runner processes -shards 6)))

test/usage/dune-integration/Makefile

@@ -0,0 +1,13 @@
+.PHONY : test
+test : clean
+	dune exec ./source.exe
+	! test -f bisect*.coverage
+	dune clean
+	dune exec --instrument-with bisect_ppx ./source.exe
+	ls -l _build
+	test -f bisect*.coverage
+
+.PHONY : clean
+clean :
+	dune clean
+	rm -f bisect*.coverage

test/usage/dune-integration/dune

@@ -0,0 +1,3 @@
+(executable
+ (name source)
+ (instrumentation (backend bisect_ppx)))

test/usage/dune-integration/dune-project

@@ -0,0 +1 @@
+(lang dune 2.7)

test/usage/dune-integration/source.ml

@@ -0,0 +1 @@
+let () = ()