Skip to content

Instantly share code, notes, and snippets.

@Kakadu
Last active May 17, 2020 19:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Kakadu/ea10d5df34257782dbd3c945f6fc1ef7 to your computer and use it in GitHub Desktop.
Save Kakadu/ea10d5df34257782dbd3c945f6fc1ef7 to your computer and use it in GitHub Desktop.
dune-ocaml-ppx-bug 1
➜ dune-ocaml-ppx-bug git:(master) dune runtest
patdiff (internal) (exit 1)
(cd _build/default && /home/kakadu/.opam/4.09.0+fp+flambda/bin/patdiff -keep-whitespace -location-style omake -unrefined test_inline_test.ml test_inline_test.ml.corrected)
------ test_inline_test.ml
++++++ test_inline_test.ml.corrected
File "test_inline_test.ml", line 6, characters 0-1:
|
|let rec fact n = if n = 1 then 1 else n * fact (n - 1)
|
|let%expect_test _ =
| print_int (fact 5);
-| [%expect{| 121 |}]
+| [%expect{| 120 |}]
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master) ./MAKE.OK
+ ./CLEAN
+ rm -f test_inline_test.ml.corrected ./run.exe ppx_inline_test_epilogue.cmi ppx_inline_test_epilogue.cmo '*.o' '*.ppo' '*.exe' '/tmp/*test_inline*'
+ PACKAGES=ppx_inline_test.runtime-lib,ppx_expect,ppx_expect.matcher,ppx_expect.collector,ppx_expect.evaluator,ppx_inline_test.runner.lib
+ ocamlfind ocamlc -package str,unix,compiler-libs.common -linkall -linkpkg papr_official.ml -o papr_official.exe
findlib: [WARNING] Interface topdirs.cmi occurs in several directories: /home/kakadu/.opam/4.09.0+fp+flambda/lib/ocaml/compiler-libs, /home/kakadu/.opam/4.09.0+fp+flambda/lib/ocaml
+ ./papr_official.exe -binary-output -impl test_inline_test.ml /tmp/test_inline_testb7008e
+ ocamlfind ppx_expect/ppx.exe --as-ppx --cookie 'library-name="foo"' /tmp/test_inline_testb7008e /tmp/test_inline_test20c5c8
+ ./papr_official.exe -binary-input -impl /tmp/test_inline_test20c5c8
+ ocamlfind ocamlc -w -24 -package ppx_inline_test.runtime-lib,ppx_expect,ppx_expect.matcher,ppx_expect.collector,ppx_expect.evaluator,ppx_inline_test.runner.lib -c -impl test_inline_test.ml.ppx.ppo -o test_inline_test.ml.ppx.cmo
+ ocamlfind ocamlc -w -24 -package ppx_inline_test.runtime-lib,ppx_expect,ppx_expect.matcher,ppx_expect.collector,ppx_expect.evaluator,ppx_inline_test.runner.lib -c -impl ppx_inline_test_epilogue.ml -o ppx_inline_test_epilogue.cmo
+ ocamlfind ocamlc -custom -w -24 -g -o ./run.exe -linkall -linkpkg -package ppx_inline_test.runtime-lib,ppx_expect,ppx_expect.matcher,ppx_expect.collector,ppx_expect.evaluator,ppx_inline_test.runner.lib test_inline_test.ml.ppx.cmo ppx_inline_test_epilogue.cmo
+ ./run.exe inline-test-runner foo -source-tree-root . -diff-cmd -
+ patdiff -keep-whitespace -location-style omake -unrefined test_inline_test.ml test_inline_test.ml.corrected
------ test_inline_test.ml
++++++ test_inline_test.ml.corrected
File "test_inline_test.ml", line 6, characters 0-1:
|
|let rec fact n = if n = 1 then 1 else n * fact (n - 1)
|
|let%expect_test _ =
| print_int (fact 5);
-| [%expect{| 121 |}]
+| [%expect{| 120 |}]
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master)
➜ dune-ocaml-ppx-bug git:(master) ./MAKE.BUSTED
+ ./CLEAN
+ rm -f test_inline_test.ml.corrected ./run.exe papr_official.cmi papr_official.cmo ppx_inline_test_epilogue.cmi ppx_inline_test_epilogue.cmo test_inline_test.ml.ppx.cmi test_inline_test.ml.ppx.cmo '*.o' test_inline_test.ml.ppx.ppo papr_official.exe run.exe /tmp/test_inline_test20c5c8 /tmp/test_inline_testb7008e
+ PACKAGES=ppx_inline_test.runtime-lib,ppx_expect,ppx_expect.matcher,ppx_expect.collector,ppx_expect.evaluator,ppx_inline_test.runner.lib
+ ocamlfind ocamlc -verbose -w -24 -package ppx_inline_test.runtime-lib,ppx_expect,ppx_expect.matcher,ppx_expect.collector,ppx_expect.evaluator,ppx_inline_test.runner.lib -ppxopt ppx_expect,--cookie -ppxopt 'ppx_expect,library-name="foo"' -c -impl test_inline_test.ml -o test_inline_test.cmo
Effective set of compiler predicates: pkg_base.base_internalhash_types,pkg_base.caml,pkg_base.shadow_stdlib,pkg_sexplib0,pkg_base,pkg_ppx_inline_test.config,pkg_ppx_inline_test.runtime-lib,pkg_fieldslib,pkg_ppx_compare.runtime-lib,pkg_ppx_sexp_conv.runtime-lib,pkg_ppx_expect.common,pkg_ppx_expect.config,pkg_ppx_expect.collector,pkg_ppx_here.runtime-lib,pkg_ppx_expect,pkg_ppx_assert.runtime-lib,pkg_seq,pkg_re,pkg_stdio,pkg_variantslib,pkg_ppx_expect.matcher,pkg_ppxlib.print_diff,pkg_ppx_expect.evaluator,pkg_ppx_inline_test.runner.lib,autolink,byte
+ ocamlc.opt -verbose -w -24 -c -o test_inline_test.cmo -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/base/base_internalhash_types -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/base/caml -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/base/shadow_stdlib -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/sexplib0 -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/base -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_inline_test/config -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_inline_test/runtime-lib -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/fieldslib -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_compare/runtime-lib -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_sexp_conv/runtime-lib -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_expect/common -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_expect/config -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_expect/collector -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_here/runtime-lib -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_expect -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_assert/runtime-lib -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/seq -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/re -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/stdio -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/variantslib -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_expect/matcher -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppxlib/print_diff -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_expect/evaluator -I /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_inline_test/runner/lib -ppx "/home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_expect/./ppx.exe --as-ppx --cookie library-name=\"foo\"" -impl test_inline_test.ml
+ /home/kakadu/.opam/4.09.0+fp+flambda/lib/ppx_expect/./ppx.exe --as-ppx --cookie library-name="foo" '/tmp/camlppx3b43a2' '/tmp/camlppx8c1872'
File "<command-line>", line 1, characters 0-3:
Error: constant expected
ocamlc.opt returned with exit code 2
+ ocamlfind ocamlc -w -24 -package ppx_inline_test.runtime-lib,ppx_expect,ppx_expect.matcher,ppx_expect.collector,ppx_expect.evaluator,ppx_inline_test.runner.lib -c -impl ppx_inline_test_epilogue.ml -o ppx_inline_test_epilogue.cmo
+ ocamlfind ocamlc -custom -w -24 -g -o ./run.exe -linkall -linkpkg -package ppx_inline_test.runtime-lib,ppx_expect,ppx_expect.matcher,ppx_expect.collector,ppx_expect.evaluator,ppx_inline_test.runner.lib test_inline_test.cmo ppx_inline_test_epilogue.cmo
File "_none_", line 1:
Error: Cannot find file test_inline_test.cmo
+ ./run.exe inline-test-runner foo -source-tree-root . -diff-cmd -
./MAKE.BUSTED: line 17: ./run.exe: No such file or directory
+ echo 'test failed'
test failed
+ patdiff -keep-whitespace -location-style omake -unrefined test_inline_test.ml test_inline_test.ml.corrected
------ test_inline_test.ml
++++++ /dev/null
File "test_inline_test.ml", line 1, characters 0-1:
-|
-|let rec fact n = if n = 1 then 1 else n * fact (n - 1)
-|
-|let%expect_test _ =
-| print_int (fact 5);
-| [%expect{| 121 |}]
➜ dune-ocaml-ppx-bug git:(master)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment