- github
- ocaml
- opam-repository
- 2cfe47
- compilers,5.1,vlt.0.1.2,tests
(not at the head of any monitored branch or PR)
2025-02-10 15:09.04: New job: test vlt.0.1.2, using opam dev
from https://github.com/ocaml/opam-repository.git#refs/pull/25379/head (2cfe47973fc11d3a31efa7de47bc64adcf96560d)
on debian-12-ocaml-5.1/amd64
To reproduce locally:
cd $(mktemp -d)
git clone --recursive "https://github.com/ocaml/opam-repository.git" && cd "opam-repository" && git fetch origin "refs/pull/25379/head" && git reset --hard 2cfe4797
git fetch origin master
git merge --no-edit 36f4d2d5ceb882a79fd7d7f956b490201da67226
cat > ../Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:debian-12-ocaml-5.1@sha256:af0a26bd7f84a712ac04890b92cdc68374747e02bf9b769c33a3f4084b6ab968
USER 1000:1000
WORKDIR /home/opam
RUN sudo ln -f /usr/bin/opam-dev /usr/bin/opam
RUN opam init --reinit -ni
RUN opam option solver=builtin-0install && opam config report
ENV OPAMDOWNLOADJOBS="1"
ENV OPAMERRLOGLEN="0"
ENV OPAMPRECISETRACKING="1"
ENV CI="true"
ENV OPAM_REPO_CI="true"
RUN rm -rf opam-repository/
COPY --chown=1000:1000 . opam-repository/
RUN opam repository set-url --strict default opam-repository/
RUN opam update --depexts || true
RUN opam pin add -k version -yn vlt.0.1.2 0.1.2
RUN opam reinstall vlt.0.1.2; \
res=$?; \
test "$res" != 31 && exit "$res"; \
export OPAMCLI=2.0; \
build_dir=$(opam var prefix)/.opam-switch/build; \
failed=$(ls "$build_dir"); \
partial_fails=""; \
for pkg in $failed; do \
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-12\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'vlt.0.1.2' && partial_fails="$partial_fails $pkg"; \
done; \
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
exit 1
RUN (opam reinstall --with-test vlt.0.1.2) || true
RUN opam reinstall --with-test --verbose vlt.0.1.2; \
res=$?; \
test "$res" != 31 && exit "$res"; \
export OPAMCLI=2.0; \
build_dir=$(opam var prefix)/.opam-switch/build; \
failed=$(ls "$build_dir"); \
partial_fails=""; \
for pkg in $failed; do \
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-12\""; then \
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field."; \
fi; \
test "$pkg" != 'vlt.0.1.2' && partial_fails="$partial_fails $pkg"; \
done; \
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}"; \
exit 1
END-OF-DOCKERFILE
docker build -f ../Dockerfile .
2025-02-10 15:09.04: Using cache hint "ocaml/opam:debian-12-ocaml-5.1@sha256:af0a26bd7f84a712ac04890b92cdc68374747e02bf9b769c33a3f4084b6ab968-vlt.0.1.2-2cfe47973fc11d3a31efa7de47bc64adcf96560d"
2025-02-10 15:09.04: Using OBuilder spec:
((from ocaml/opam:debian-12-ocaml-5.1@sha256:af0a26bd7f84a712ac04890b92cdc68374747e02bf9b769c33a3f4084b6ab968)
(user (uid 1000) (gid 1000))
(workdir /home/opam)
(run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
(run (network host)
(shell "opam init --reinit --config .opamrc-sandbox -ni"))
(run (shell "opam option solver=builtin-0install && opam config report"))
(env OPAMDOWNLOADJOBS 1)
(env OPAMERRLOGLEN 0)
(env OPAMPRECISETRACKING 1)
(env CI true)
(env OPAM_REPO_CI true)
(run (shell "rm -rf opam-repository/"))
(copy (src .) (dst opam-repository/))
(run (shell "opam repository set-url --strict default opam-repository/"))
(run (network host)
(shell "opam update --depexts || true"))
(run (shell "opam pin add -k version -yn vlt.0.1.2 0.1.2"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall vlt.0.1.2;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-12\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'vlt.0.1.2' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
(run (network host)
(shell "(opam reinstall --with-test vlt.0.1.2) || true"))
(run (shell "opam reinstall --with-test --verbose vlt.0.1.2;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-12\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'vlt.0.1.2' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
)
2025-02-10 15:09.04: Waiting for resource in pool OCluster
2025-02-10 17:53.45: Waiting for worker…
2025-02-10 17:56.27: Got resource from pool OCluster
Building on phoebe.caelum.ci.dev
All commits already cached
Updating files: 90% (21121/23304)
Updating files: 91% (21207/23304)
Updating files: 92% (21440/23304)
Updating files: 93% (21673/23304)
Updating files: 94% (21906/23304)
Updating files: 95% (22139/23304)
Updating files: 96% (22372/23304)
Updating files: 97% (22605/23304)
Updating files: 98% (22838/23304)
Updating files: 99% (23071/23304)
Updating files: 100% (23304/23304)
Updating files: 100% (23304/23304), done.
HEAD is now at 36f4d2d5ce Merge pull request #27169 from Frigory33/release-allegro5-0.1
Merge made by the 'ort' strategy.
packages/vlt/vlt.0.1.2/opam | 42 ++++++++++++++++++++++++++++++++++++++++++
1 file changed, 42 insertions(+)
create mode 100644 packages/vlt/vlt.0.1.2/opam
(from ocaml/opam:debian-12-ocaml-5.1@sha256:af0a26bd7f84a712ac04890b92cdc68374747e02bf9b769c33a3f4084b6ab968)
Unable to find image 'ocaml/opam:debian-12-ocaml-5.1@sha256:af0a26bd7f84a712ac04890b92cdc68374747e02bf9b769c33a3f4084b6ab968' locally
docker.io/ocaml/opam@sha256:af0a26bd7f84a712ac04890b92cdc68374747e02bf9b769c33a3f4084b6ab968: Pulling from ocaml/opam
6c4d4b4a32e3: Pulling fs layer
6c4d4b4a32e3: Waiting
6c4d4b4a32e3: Download complete
6c4d4b4a32e3: Pull complete
Digest: sha256:af0a26bd7f84a712ac04890b92cdc68374747e02bf9b769c33a3f4084b6ab968
Status: Downloaded newer image for ocaml/opam@sha256:af0a26bd7f84a712ac04890b92cdc68374747e02bf9b769c33a3f4084b6ab968
2025-02-10 17:56.32 ---> using "925edac33caaba282209fa5d2b691ca4d925dacf09e6c55e120e2782f511c333" from cache
/: (user (uid 1000) (gid 1000))
/: (workdir /home/opam)
/home/opam: (run (shell "sudo ln -f /usr/bin/opam-dev /usr/bin/opam"))
2025-02-10 17:56.32 ---> using "bf6e610ddb88c6ba5a9771c56e8b93bc3fd96f4b8402ab4a260790f47f155beb" from cache
/home/opam: (run (network host)
(shell "opam init --reinit --config .opamrc-sandbox -ni"))
Configuring from /home/opam/.opamrc-sandbox, then /home/opam/.opamrc, and finally from built-in defaults.
Checking for available remotes: rsync and local, git.
- you won't be able to use mercurial repositories unless you install the hg command on your system.
- you won't be able to use darcs repositories unless you install the darcs command on your system.
Continue? [Y/n] y
This development version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.2, which can't be reverted.
You may want to back it up before going further.
[NOTE] The 'jobs' option was reset, its value was 39 and its new value will vary according to the current number of cores on your machine. You can restore the fixed value using:
opam option jobs=39 --global
Format upgrade done.
<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[opam-repository-archive] no changes from git+https://github.com/ocaml/opam-repository-archive
[default] synchronised from file:///home/opam/opam-repository
2025-02-10 17:56.32 ---> using "198abb314a9aa2edd4ff9f11b7e6871237d3dfbf6680a386a451de0d744aaadc" from cache
/home/opam: (run (shell "opam option solver=builtin-0install && opam config report"))
Set to 'builtin-0install' the field solver in global configuration
# opam config report
# opam-version 2.4.0~alpha1~dev (747e73667ad9d054b0f736be205c0013e1bec087)
# self-upgrade no
# system arch=x86_64 os=linux os-distribution=debian os-version=12
# solver builtin-0install
# install-criteria -changed,-count[avoid-version,solution]
# upgrade-criteria -count[avoid-version,solution]
# jobs 71
# repositories 1 (local), 1 (version-controlled)
# pinned 1 (version)
# current-switch 5.1
# invariant ["ocaml-base-compiler" {= "5.1.1"}]
# compiler-packages ocaml-base-compiler.5.1.1, ocaml-options-vanilla.1
# ocaml:native true
# ocaml:native-tools true
# ocaml:native-dynlink true
# ocaml:stubsdir /home/opam/.opam/5.1/lib/ocaml/stublibs:/home/opam/.opam/5.1/lib/ocaml
# ocaml:preinstalled false
# ocaml:compiler 5.1.1
2025-02-10 17:56.32 ---> using "98e956c107e02f1fa83e717ead6a9cef3ceee4a3456051d8879ce14b82cee6a8" from cache
/home/opam: (env OPAMDOWNLOADJOBS 1)
/home/opam: (env OPAMERRLOGLEN 0)
/home/opam: (env OPAMPRECISETRACKING 1)
/home/opam: (env CI true)
/home/opam: (env OPAM_REPO_CI true)
/home/opam: (run (shell "rm -rf opam-repository/"))
2025-02-10 17:56.32 ---> using "23051b2318a7dd1d26322d73969a45ad0fe4042feb5d21621fe4b0fc0554ef74" from cache
/home/opam: (copy (src .) (dst opam-repository/))
2025-02-10 17:56.34 ---> using "5ea736fcc083b623453799a3f92ebb1232a059a501d3bbf704b057ba4ab631f0" from cache
/home/opam: (run (shell "opam repository set-url --strict default opam-repository/"))
[default] Initialised
2025-02-10 17:57.10 ---> saved as "afece14c2131205a87dd3d439b6adbae4e238e0215e4d85ba80dee4cd2622ebb"
/home/opam: (run (network host)
(shell "opam update --depexts || true"))
+ /usr/bin/sudo "apt-get" "update"
- Hit:1 http://deb.debian.org/debian bookworm InRelease
- Get:2 http://deb.debian.org/debian bookworm-updates InRelease [55.4 kB]
- Get:3 http://deb.debian.org/debian-security bookworm-security InRelease [48.0 kB]
- Get:4 http://deb.debian.org/debian-security bookworm-security/main amd64 Packages [244 kB]
- Fetched 348 kB in 0s (1117 kB/s)
- Reading package lists...
-
2025-02-10 17:57.12 ---> saved as "b447797a8678ea887d9316cfbeac20006c36427247915d4b9819677f6e5f2aa1"
/home/opam: (run (shell "opam pin add -k version -yn vlt.0.1.2 0.1.2"))
vlt is now pinned to version 0.1.2
2025-02-10 17:57.13 ---> saved as "8fcaff093288e756142f1b7760a8856861702b9dc03274af58a38129763dc59e"
/home/opam: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam reinstall vlt.0.1.2;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-12\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'vlt.0.1.2' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
vlt.0.1.2 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 7 packages
- install dune 3.17.2 [required by vlt]
- install ocaml-compiler-libs v0.12.4 [required by ppxlib]
- install ppx_derivers 1.2.1 [required by ppxlib]
- install ppxlib 0.35.0 [required by vlt]
- install sexplib0 v0.17.0 [required by ppxlib]
- install stdlib-shims 0.3.0 [required by ppxlib]
- install vlt 0.1.2 (pinned)
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved dune.3.17.2 (cached)
-> retrieved ocaml-compiler-libs.v0.12.4 (cached)
-> retrieved ppx_derivers.1.2.1 (cached)
-> retrieved ppxlib.0.35.0 (cached)
-> retrieved sexplib0.v0.17.0 (cached)
-> retrieved stdlib-shims.0.3.0 (cached)
-> retrieved vlt.0.1.2 (https://github.com/codinuum/vlt/archive/refs/tags/v0.1.2.tar.gz)
-> installed dune.3.17.2
-> installed ppx_derivers.1.2.1
-> installed stdlib-shims.0.3.0
-> installed sexplib0.v0.17.0
-> installed ocaml-compiler-libs.v0.12.4
-> installed ppxlib.0.35.0
-> installed vlt.0.1.2
Done.
# To update the current shell environment, run: eval $(opam env)
2025-02-10 17:58.10 ---> saved as "cbb58c8d7de9a526afb0650e268a75ada4e750150e9e59c3c4ef178d844d27a1"
/home/opam: (run (network host)
(shell "(opam reinstall --with-test vlt.0.1.2) || true"))
The following actions will be performed:
=== recompile 1 package
- recompile vlt 0.1.2 (pinned)
=== install 1 package
- install ocamlfind 1.9.8 [required by vlt]
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved ocamlfind.1.9.8 (https://github.com/ocaml/ocamlfind/archive/refs/tags/findlib-1.9.8.tar.gz)
-> retrieved vlt.0.1.2 (https://github.com/codinuum/vlt/archive/refs/tags/v0.1.2.tar.gz)
-> removed vlt.0.1.2
-> installed ocamlfind.1.9.8
[ERROR] The compilation of vlt.0.1.2 failed at "dune build -p vlt -j 71 @install @runtest".
#=== ERROR while compiling vlt.0.1.2 ==========================================#
# context 2.4.0~alpha1~dev | linux/x86_64 | ocaml-base-compiler.5.1.1 | pinned(https://github.com/codinuum/vlt/archive/refs/tags/v0.1.2.tar.gz)
# path ~/.opam/5.1/.opam-switch/build/vlt.0.1.2
# command ~/.opam/opam-init/hooks/sandbox.sh build dune build -p vlt -j 71 @install @runtest
# exit-code 1
# env-file ~/.opam/log/vlt-7-5765b3.env
# output-file ~/.opam/log/vlt-7-5765b3.out
### output ###
# File "test/orig/01-syntax/daikon.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t _build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
# diff --git a/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t b/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
# index 7f87b19..e4b2686 100644
# --- a/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t
# +++ b/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
# @@ -1,27 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp daikon.ml 2> /dev/null | tail -n 25
# - type r = {
# - x: int ;
# - y: float }
# - let r =
# - let open Vlt.Daikon in
# - make_variable_builder (fun r -> [int "x" r.x; float "y" r.y])
# - let make_r k = { x = (k * k); y = (float (k - 2)) }
# - type c = (bool * string)
# - let c = let open Vlt.Daikon in tuple2 bool string
# - let make_c k = (true, (String.make k '*'))
# - let f x =
# - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:18
# - ~column:2
# - ~properties:(let open Vlt in Daikon.enter "f" [Daikon.int "x" x])
# - ~error:None (let open Vlt in Daikon.t);
# - (let rr = make_r x in
# - let cc = make_c x in
# - let res = (x * x) mod 2 in
# - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:23
# - ~column:2
# - ~properties:(let open Vlt in
# - Daikon.exit "f" (Daikon.int "res" res)
# - [Daikon.int "x" x; r "rr" rr; c "cc" cc]) ~error:None
# - (let open Vlt in Daikon.t))
# - let () = let l = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] in List.iter f l
# File "test/orig/01-syntax/formatting.INFO.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t _build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
# diff --git a/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t b/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
# index 218b31f..ca8874b 100644
# --- a/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t
# +++ b/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
# @@ -1,59 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 56
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" (id 1))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - ();
# - ()
#
# File "test/orig/01-syntax/formatting.ERROR.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t _build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
# diff --git a/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t b/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
# index b84b825..7733e1e 100644
# --- a/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t
# +++ b/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
# @@ -1,39 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 36
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - ();
# - ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - ();
# - ();
# - ();
# - ()
#
# File "test/orig/01-syntax/formatting.DEBUG.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t _build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
# diff --git a/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t b/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
# index 54923d6..86f9442 100644
# --- a/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t
# +++ b/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
# @@ -1,69 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 66
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" (id 1))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - ();
# - ()
#
# File "test/orig/01-syntax/formatting.FATAL.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t _build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
# diff --git a/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t b/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
# index 4ed1300..293c094 100644
# --- a/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t
# +++ b/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
# @@ -1,29 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 26
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - ();
# - ();
# - ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - ();
# - ();
# - ();
# - ();
# - ()
#
# File "test/orig/01-syntax/formatting.NONE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t _build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
# diff --git a/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t b/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
# index ccae638..59d00a5 100644
# --- a/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t
# +++ b/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
# @@ -1,6 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 4
# - let () = ()
# - let () = (); (); (); (); (); (); ()
# - let id x = x
# - let () = (); (); (); (); (); (); ()
# File "test/orig/01-syntax/formatting.TRACE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t _build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
# diff --git a/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t b/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
# index 67b4823..3d18ded 100644
# --- a/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t
# +++ b/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
# @@ -1,74 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 71
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true 'x');
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" (id 1))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true
# - (id 'x'));
# - ()
#
# File "test/orig/01-syntax/simple.ERROR.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t _build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
# diff --git a/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t b/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
# index ddaf212..eefd0a5 100644
# --- a/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t
# +++ b/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
# @@ -1,31 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 29
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/orig/01-syntax/formatting.WARN.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t _build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
# diff --git a/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t b/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
# index 70e3f81..aaf20a8 100644
# --- a/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t
# +++ b/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
# @@ -1,49 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 46
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - ();
# - ()
#
# File "test/orig/01-syntax/simple.INFO.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t _build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
# diff --git a/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t b/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
# index 4312283..bc03e6d 100644
# --- a/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t
# +++ b/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
# @@ -1,46 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 44
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/orig/01-syntax/simple.DEBUG.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t _build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
# diff --git a/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t b/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
# index ec99582..814a919 100644
# --- a/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t
# +++ b/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
# @@ -1,52 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 50
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/orig/01-syntax/simple.FATAL.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t _build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
# diff --git a/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t b/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
# index cba55b0..510c13c 100644
# --- a/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t
# +++ b/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
# @@ -1,22 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 20
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/orig/01-syntax/formatting.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t _build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
# diff --git a/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t b/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
# index 67b4823..3d18ded 100644
# --- a/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t
# +++ b/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
# @@ -1,74 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 71
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true 'x');
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" (id 1))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true
# - (id 'x'));
# - ()
#
# File "test/orig/01-syntax/simple.NONE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t _build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
# diff --git a/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t b/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
# index 7436e2a..c35762e 100644
# --- a/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t
# +++ b/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
# @@ -1,12 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 10
# - let () = ()
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
# - done;
# - ()
# - let () =
# - (); (try main () with | e -> ((); Printexc.print_backtrace stdout)); ()
# File "test/orig/01-syntax/simple.WARN.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t _build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
# diff --git a/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t b/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
# index 368eba5..1489329 100644
# --- a/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t
# +++ b/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
# @@ -1,38 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 36
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/orig/01-syntax/simple.TRACE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t _build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
# diff --git a/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t b/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
# index 7b81e8a..dedbc57 100644
# --- a/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t
# +++ b/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
# @@ -1,54 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 52
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "entering main";
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
# - ~column:2 ~properties:[] ~error:None "leaving main"
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/orig/01-syntax/simple.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t _build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
# diff --git a/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t b/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
# index 7b81e8a..dedbc57 100644
# --- a/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t
# +++ b/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
# @@ -1,54 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 52
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "entering main";
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
# - ~column:2 ~properties:[] ~error:None "leaving main"
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/daikon.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t _build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
# diff --git a/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t b/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
# index 7f87b19..e4b2686 100644
# --- a/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t
# +++ b/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
# @@ -1,27 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp daikon.ml 2> /dev/null | tail -n 25
# - type r = {
# - x: int ;
# - y: float }
# - let r =
# - let open Vlt.Daikon in
# - make_variable_builder (fun r -> [int "x" r.x; float "y" r.y])
# - let make_r k = { x = (k * k); y = (float (k - 2)) }
# - type c = (bool * string)
# - let c = let open Vlt.Daikon in tuple2 bool string
# - let make_c k = (true, (String.make k '*'))
# - let f x =
# - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:18
# - ~column:2
# - ~properties:(let open Vlt in Daikon.enter "f" [Daikon.int "x" x])
# - ~error:None (let open Vlt in Daikon.t);
# - (let rr = make_r x in
# - let cc = make_c x in
# - let res = (x * x) mod 2 in
# - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:23
# - ~column:2
# - ~properties:(let open Vlt in
# - Daikon.exit "f" (Daikon.int "res" res)
# - [Daikon.int "x" x; r "rr" rr; c "cc" cc]) ~error:None
# - (let open Vlt in Daikon.t))
# - let () = let l = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] in List.iter f l
# File "test/vlt/01-syntax/capture_path.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t _build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
# diff --git a/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t b/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
# index be33e1f..730a62e 100644
# --- a/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t
# +++ b/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
# @@ -1,104 +1,2 @@
# We can instrument with vlt.ppx:
# $ dune describe pp test.ml 2> /dev/null | tail -n 102
# - let () = Vlt.Logger.prepare "Test"
# - class foo =
# - object
# - method m0 x =
# - let y =
# - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:6
# - ~column:6 ~properties:[] ~error:None "x=%d" x
# - else ();
# - x + 1 in
# - y
# - end
# - module A =
# - struct
# - module B =
# - struct
# - let f0 x =
# - if Vlt.Logger.check_level "Test.A.B" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.A.B" Vlt.Level.DEBUG ~file:"test.ml"
# - ~line:17 ~column:6 ~properties:[] ~error:None "x=%d" x
# - else ();
# - x + 1
# - class bar =
# - object
# - method m1 (type s) cmp =
# - let module S =
# - (Set.Make)(struct
# - type t = s
# - let compare x y =
# - if
# - Vlt.Logger.check_level "Test.A.B"
# - Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.A.B" Vlt.Level.DEBUG
# - ~file:"test.ml" ~line:25 ~column:12
# - ~properties:[] ~error:None "@"
# - else ();
# - cmp x y
# - end) in ((module
# - S) : (module Set.S with type elt = s))
# - end
# - end
# - end
# - let main () =
# - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:36 ~column:2
# - ~properties:[] ~error:None "@"
# - else ()
# - class foo =
# - object
# - method m0 x =
# - let y =
# - if Vlt.Logger.check_level "Test.foo#m0.y" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.foo#m0.y" Vlt.Level.DEBUG ~file:"test.ml"
# - ~line:42 ~column:6 ~properties:[] ~error:None "x=%d" x
# - else ();
# - x + 1 in
# - y
# - end
# - module A =
# - struct
# - module B =
# - struct
# - let f0 x =
# - if Vlt.Logger.check_level "Test.A.B.f0" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.A.B.f0" Vlt.Level.DEBUG ~file:"test.ml"
# - ~line:55 ~column:6 ~properties:[] ~error:None "x=%d" x
# - else ();
# - x + 1
# - class bar =
# - object
# - method m1 (type s) cmp =
# - let module S =
# - (Set.Make)(struct
# - type t = s
# - let compare x y =
# - if
# - Vlt.Logger.check_level
# - "Test.A.B.bar#m1.S.compare"
# - Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.A.B.bar#m1.S.compare"
# - Vlt.Level.DEBUG ~file:"test.ml" ~line:63
# - ~column:12 ~properties:[] ~error:None "@"
# - else ();
# - cmp x y
# - end) in ((module
# - S) : (module Set.S with type elt = s))
# - end
# - end
# - end
# - let main () =
# - if Vlt.Logger.check_level "Test.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.main" Vlt.Level.DEBUG ~file:"test.ml" ~line:76
# - ~column:2 ~properties:[] ~error:None "@"
# - else ()
# File "test/vlt/01-syntax/block.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t _build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
# diff --git a/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t b/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
# index a6c541a..8af5707 100644
# --- a/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t
# +++ b/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
# @@ -1,22 +1,2 @@
# We can instrument with vlt.ppx:
# $ dune describe pp test.ml 2> /dev/null | tail -n 20
# - let () = Vlt.Logger.prepare "Test"
# - let () =
# - if Vlt.Logger.check_level "Test" Vlt.Level.INFO
# - then
# - (Printf.printf "FOO\n";
# - Vlt.Logger.logf "Test" Vlt.Level.INFO ~file:"test.ml" ~line:6 ~column:4
# - ~properties:[] ~error:None "BAR";
# - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:7
# - ~column:4 ~properties:[] ~error:None "BAZ"
# - else ())
# - else ()
# - let () =
# - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Test" Vlt.Level.WARN ~file:"test.ml" ~line:11 ~column:2
# - ~properties:[] ~error:None "FOO"
# - else ()
# - let () = ()
# File "test/vlt/01-syntax/formatting.WARN.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t _build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
# diff --git a/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t b/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
# index f4a5c6c..aaf20a8 100644
# --- a/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t
# +++ b/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
# @@ -1,49 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 46
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/formatting.DEBUG.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t _build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
# diff --git a/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t b/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
# index 4545c4c..eff48f1 100644
# --- a/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t
# +++ b/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
# @@ -1,68 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 65
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:7 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" 3.
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
# - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
# - (id 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" (id 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/formatting.FATAL.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t _build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
# diff --git a/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t b/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
# index 6683b15..293c094 100644
# --- a/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t
# +++ b/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
# @@ -1,29 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 26
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - ();
# - ();
# - ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - ();
# - ();
# - ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/formatting.INFO.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t _build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
# diff --git a/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t b/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
# index 9c7e673..222e801 100644
# --- a/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t
# +++ b/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
# @@ -1,58 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 55
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
# - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
# - (id 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/formatting.ERROR.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t _build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
# diff --git a/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t b/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
# index 63eb892..7733e1e 100644
# --- a/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t
# +++ b/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
# @@ -1,39 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 36
# - let () = Vlt.Logger.prepare "Formatting"
#
<><> Error report <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
+- The following actions failed
| - build vlt 0.1.2
+-
+- The following changes have been performed
| - remove vlt 0.1.2
| - install ocamlfind 1.9.8
+-
# To update the current shell environment, run: eval $(opam env)
- let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - ();
# - ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - ();
# - ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/formatting.NONE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t _build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
# diff --git a/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t b/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
# index ccae638..59d00a5 100644
# --- a/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t
# +++ b/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
# @@ -1,6 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 4
# - let () = ()
# - let () = (); (); (); (); (); (); ()
# - let id x = x
# - let () = (); (); (); (); (); (); ()
# File "test/vlt/01-syntax/simple.ERROR.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t _build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
# diff --git a/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t b/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
# index 9a13a16..eefd0a5 100644
# --- a/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t
# +++ b/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
# @@ -1,31 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 29
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/vlt/01-syntax/formatting.TRACE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t _build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
# diff --git a/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t b/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
# index bce8ee8..2eb4c87 100644
# --- a/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t
# +++ b/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
# @@ -1,72 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 69
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:7 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" 3.
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
# - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
# - "abc" 3. true 'x';
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
# - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
# - (id 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" (id 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
# - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
# - "abc" 3. true (id 'x');
# - ()
#
# File "test/vlt/01-syntax/simple.DEBUG.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t _build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
# diff --git a/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t b/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
# index 010b949..e2aa7d5 100644
# --- a/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t
# +++ b/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
# @@ -1,51 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 49
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/simple.WARN.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t _build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
# diff --git a/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t b/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
# index 980a246..6c40361 100644
# --- a/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t
# +++ b/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
# @@ -1,37 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 35
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/vlt/01-syntax/formatting.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t _build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
# diff --git a/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t b/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
# index bce8ee8..2eb4c87 100644
# --- a/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t
# +++ b/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
# @@ -1,72 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 69
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:7 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" 3.
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
# - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
# - "abc" 3. true 'x';
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
# - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
# - (id 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" (id 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
# - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
# - "abc" 3. true (id 'x');
# - ()
#
# File "test/vlt/01-syntax/simple.FATAL.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t _build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
# diff --git a/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t b/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
# index db3cf2b..510c13c 100644
# --- a/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t
# +++ b/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
# @@ -1,22 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 20
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/vlt/01-syntax/simple.INFO.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t _build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
# diff --git a/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t b/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
# index 2ff7481..3d12338 100644
# --- a/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t
# +++ b/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
# @@ -1,45 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 43
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/simple.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t _build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
# diff --git a/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t b/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
# index 3d50edf..a9518c4 100644
# --- a/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t
# +++ b/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
# @@ -1,53 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 51
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "entering main";
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
# - ~column:2 ~properties:[] ~error:None "leaving main"
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/simple.NONE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t _build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
# diff --git a/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t b/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
# index 7436e2a..c35762e 100644
# --- a/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t
# +++ b/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
# @@ -1,12 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 10
# - let () = ()
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
# - done;
# - ()
# - let () =
# - (); (try main () with | e -> ((); Printexc.print_backtrace stdout)); ()
# File "test/vlt/01-syntax/simple.TRACE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t _build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
# diff --git a/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t b/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
# index 3d50edf..a9518c4 100644
# --- a/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t
# +++ b/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
# @@ -1,53 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 51
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "entering main";
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
# - ~column:2 ~properties:[] ~error:None "leaving main"
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
The former state can be restored with:
/usr/bin/opam switch import "/home/opam/.opam/5.1/.opam-switch/backup/state-20250210175811.export"
Or you can retry to install your package selection with:
/usr/bin/opam install --restore
2025-02-10 17:58.33 ---> saved as "03e719ee7509e2e72ddf8c65a7f714d27d4d99b66441c2f800ba16248e990099"
/home/opam: (run (shell "opam reinstall --with-test --verbose vlt.0.1.2;\
\n res=$?;\
\n test \"$res\" != 31 && exit \"$res\";\
\n export OPAMCLI=2.0;\
\n build_dir=$(opam var prefix)/.opam-switch/build;\
\n failed=$(ls \"$build_dir\");\
\n partial_fails=\"\";\
\n for pkg in $failed; do\
\n if opam show -f x-ci-accept-failures: \"$pkg\" | grep -qF \"\\\"debian-12\\\"\"; then\
\n echo \"A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\";\
\n fi;\
\n test \"$pkg\" != 'vlt.0.1.2' && partial_fails=\"$partial_fails $pkg\";\
\n done;\
\n test \"${partial_fails}\" != \"\" && echo \"opam-repo-ci detected dependencies failing: ${partial_fails}\";\
\n exit 1"))
vlt.0.1.2 is not installed. Install it? [Y/n] y
The following actions will be performed:
=== install 1 package
- install vlt 0.1.2 (pinned)
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
Processing 1/3: [vlt.0.1.2: extract]
-> retrieved vlt.0.1.2 (cached)
Processing 2/3: [vlt: dune build]
+ /home/opam/.opam/opam-init/hooks/sandbox.sh "build" "dune" "build" "-p" "vlt" "-j" "71" "@install" "@runtest" (CWD=/home/opam/.opam/5.1/.opam-switch/build/vlt.0.1.2)
- File "test/orig/01-syntax/daikon.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t _build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
- diff --git a/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t b/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
- index 7f87b19..e4b2686 100644
- --- a/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t
- +++ b/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
- @@ -1,27 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp daikon.ml 2> /dev/null | tail -n 25
- - type r = {
- - x: int ;
- - y: float }
- - let r =
- - let open Vlt.Daikon in
- - make_variable_builder (fun r -> [int "x" r.x; float "y" r.y])
- - let make_r k = { x = (k * k); y = (float (k - 2)) }
- - type c = (bool * string)
- - let c = let open Vlt.Daikon in tuple2 bool string
- - let make_c k = (true, (String.make k '*'))
- - let f x =
- - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:18
- - ~column:2
- - ~properties:(let open Vlt in Daikon.enter "f" [Daikon.int "x" x])
- - ~error:None (let open Vlt in Daikon.t);
- - (let rr = make_r x in
- - let cc = make_c x in
- - let res = (x * x) mod 2 in
- - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:23
- - ~column:2
- - ~properties:(let open Vlt in
- - Daikon.exit "f" (Daikon.int "res" res)
- - [Daikon.int "x" x; r "rr" rr; c "cc" cc]) ~error:None
- - (let open Vlt in Daikon.t))
- - let () = let l = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] in List.iter f l
- File "test/orig/01-syntax/formatting.ERROR.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t _build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
- diff --git a/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t b/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
- index b84b825..7733e1e 100644
- --- a/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t
- +++ b/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
- @@ -1,39 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 36
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 "abc")
- - else ();
- - ();
- - ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
- - else ();
- - ();
- - ();
- - ();
- - ()
-
- File "test/orig/01-syntax/formatting.DEBUG.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t _build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
- diff --git a/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t b/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
- index 54923d6..86f9442 100644
- --- a/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t
- +++ b/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
- @@ -1,69 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 66
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "one parameter: %d" 1)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 "abc")
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
- - else ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "one parameter: %d" (id 1))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:18 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
- - else ();
- - ();
- - ()
-
- File "test/orig/01-syntax/formatting.FATAL.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t _build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
- diff --git a/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t b/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
- index 4ed1300..293c094 100644
- --- a/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t
- +++ b/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
- @@ -1,29 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 26
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - ();
- - ();
- - ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - ();
- - ();
- - ();
- - ();
- - ()
-
- File "test/orig/01-syntax/formatting.INFO.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t _build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
- diff --git a/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t b/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
- index 218b31f..ca8874b 100644
- --- a/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t
- +++ b/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
- @@ -1,59 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 56
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "one parameter: %d" 1)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 "abc")
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
- - else ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "one parameter: %d" (id 1))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
- - else ();
- - ();
- - ()
-
- File "test/orig/01-syntax/formatting.NONE.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t _build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
- diff --git a/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t b/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
- index ccae638..59d00a5 100644
- --- a/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t
- +++ b/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
- @@ -1,6 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 4
- - let () = ()
- - let () = (); (); (); (); (); (); ()
- - let id x = x
- - let () = (); (); (); (); (); (); ()
- File "test/orig/01-syntax/formatting.TRACE.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t _build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
- diff --git a/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t b/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
- index 67b4823..3d18ded 100644
- --- a/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t
- +++ b/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
- @@ -1,74 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 71
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "one parameter: %d" 1)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 "abc")
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
- - else ();
- - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true 'x');
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "one parameter: %d" (id 1))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:18 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
- - else ();
- - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true
- - (id 'x'));
- - ()
-
- File "test/orig/01-syntax/formatting.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t _build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
- diff --git a/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t b/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
- index 67b4823..3d18ded 100644
- --- a/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t
- +++ b/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
- @@ -1,74 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 71
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "one parameter: %d" 1)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 "abc")
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
- - else ();
- - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true 'x');
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "one parameter: %d" (id 1))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:18 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
- - else ();
- - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true
- - (id 'x'));
- - ()
-
- File "test/orig/01-syntax/simple.ERROR.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t _build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
- diff --git a/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t b/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
- index ddaf212..eefd0a5 100644
- --- a/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t
- +++ b/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
- @@ -1,31 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 29
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0 then ();
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - ()
- - let () =
- - ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - ()
- File "test/orig/01-syntax/formatting.WARN.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t _build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
- diff --git a/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t b/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
- index 70e3f81..aaf20a8 100644
- --- a/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t
- +++ b/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
- @@ -1,49 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 46
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 "abc")
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
- - else ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
- - ~column:2 ~properties:[] ~error:None
- - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
- - else ();
- - ();
- - ()
-
- File "test/orig/01-syntax/simple.INFO.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t _build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
- diff --git a/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t b/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
- index 4312283..bc03e6d 100644
- --- a/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t
- +++ b/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
- @@ -1,46 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 44
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None
- - (Printf.sprintf "no %s" "argument")
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - ()
- - let () =
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
- - ~properties:[] ~error:None "start ..."
- - else ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
- - ~properties:[] ~error:None "end ..."
- - else ()
- File "test/orig/01-syntax/simple.NONE.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t _build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
- diff --git a/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t b/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
- index 7436e2a..c35762e 100644
- --- a/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t
- +++ b/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
- @@ -1,12 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 10
- - let () = ()
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0 then ();
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
- - done;
- - ()
- - let () =
- - (); (try main () with | e -> ((); Printexc.print_backtrace stdout)); ()
- File "test/orig/01-syntax/simple.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t _build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
- diff --git a/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t b/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
- index 7b81e8a..dedbc57 100644
- --- a/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t
- +++ b/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
- @@ -1,54 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 52
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "entering main";
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None
- - (Printf.sprintf "no %s" "argument")
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
- - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
- - else ();
- - print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
- - ~column:2 ~properties:[] ~error:None "leaving main"
- - let () =
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
- - ~properties:[] ~error:None "start ..."
- - else ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
- - ~properties:[] ~error:None "end ..."
- - else ()
- File "test/orig/01-syntax/simple.FATAL.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t _build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
- diff --git a/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t b/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
- index cba55b0..510c13c 100644
- --- a/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t
- +++ b/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
- @@ -1,22 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 20
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0 then ();
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
- - done;
- - ()
- - let () =
- - ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - ()
- File "test/orig/01-syntax/simple.WARN.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t _build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
- diff --git a/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t b/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
- index 368eba5..1489329 100644
- --- a/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t
- +++ b/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
- @@ -1,38 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 36
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None
- - (Printf.sprintf "no %s" "argument")
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - ()
- - let () =
- - ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - ()
- File "test/orig/01-syntax/simple.DEBUG.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t _build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
- diff --git a/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t b/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
- index ec99582..814a919 100644
- --- a/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t
- +++ b/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
- @@ -1,52 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 50
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None
- - (Printf.sprintf "no %s" "argument")
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
- - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
- - else ();
- - print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - ()
- - let () =
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
- - ~properties:[] ~error:None "start ..."
- - else ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
- - ~properties:[] ~error:None "end ..."
- - else ()
- File "test/orig/01-syntax/simple.TRACE.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t _build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
- diff --git a/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t b/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
- index 7b81e8a..dedbc57 100644
- --- a/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t
- +++ b/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
- @@ -1,54 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 52
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "entering main";
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None
- - (Printf.sprintf "no %s" "argument")
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
- - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
- - else ();
- - print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
- - ~column:2 ~properties:[] ~error:None "leaving main"
- - let () =
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
- - ~properties:[] ~error:None "start ..."
- - else ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
- - ~properties:[] ~error:None "end ..."
- - else ()
- File "test/vlt/01-syntax/block.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t _build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
- diff --git a/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t b/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
- index a6c541a..8af5707 100644
- --- a/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t
- +++ b/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
- @@ -1,22 +1,2 @@
- We can instrument with vlt.ppx:
- $ dune describe pp test.ml 2> /dev/null | tail -n 20
- - let () = Vlt.Logger.prepare "Test"
- - let () =
- - if Vlt.Logger.check_level "Test" Vlt.Level.INFO
- - then
- - (Printf.printf "FOO\n";
- - Vlt.Logger.logf "Test" Vlt.Level.INFO ~file:"test.ml" ~line:6 ~column:4
- - ~properties:[] ~error:None "BAR";
- - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:7
- - ~column:4 ~properties:[] ~error:None "BAZ"
- - else ())
- - else ()
- - let () =
- - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.log "Test" Vlt.Level.WARN ~file:"test.ml" ~line:11 ~column:2
- - ~properties:[] ~error:None "FOO"
- - else ()
- - let () = ()
- File "test/vlt/01-syntax/formatting.ERROR.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t _build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
- diff --git a/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t b/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
- index 63eb892..7733e1e 100644
- --- a/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t
- +++ b/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
- @@ -1,39 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 36
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - "abc"
- - else ();
- - ();
- - ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - (id "abc")
- - else ();
- - ();
- - ();
- - ();
- - ()
-
- File "test/vlt/01-syntax/formatting.FATAL.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t _build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
- diff --git a/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t b/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
- index 6683b15..293c094 100644
- --- a/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t
- +++ b/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
- @@ -1,29 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 26
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - ();
- - ();
- - ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - ();
- - ();
- - ();
- - ();
- - ()
-
- File "test/vlt/01-syntax/capture_path.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t _build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
- diff --git a/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t b/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
- index be33e1f..730a62e 100644
- --- a/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t
- +++ b/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
- @@ -1,104 +1,2 @@
- We can instrument with vlt.ppx:
- $ dune describe pp test.ml 2> /dev/null | tail -n 102
- - let () = Vlt.Logger.prepare "Test"
- - class foo =
- - object
- - method m0 x =
- - let y =
- - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:6
- - ~column:6 ~properties:[] ~error:None "x=%d" x
- - else ();
- - x + 1 in
- - y
- - end
- - module A =
- - struct
- - module B =
- - struct
- - let f0 x =
- - if Vlt.Logger.check_level "Test.A.B" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test.A.B" Vlt.Level.DEBUG ~file:"test.ml"
- - ~line:17 ~column:6 ~properties:[] ~error:None "x=%d" x
- - else ();
- - x + 1
- - class bar =
- - object
- - method m1 (type s) cmp =
- - let module S =
- - (Set.Make)(struct
- - type t = s
- - let compare x y =
- - if
- - Vlt.Logger.check_level "Test.A.B"
- - Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test.A.B" Vlt.Level.DEBUG
- - ~file:"test.ml" ~line:25 ~column:12
- - ~properties:[] ~error:None "@"
- - else ();
- - cmp x y
- - end) in ((module
- - S) : (module Set.S with type elt = s))
- - end
- - end
- - end
- - let main () =
- - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:36 ~column:2
- - ~properties:[] ~error:None "@"
- - else ()
- - class foo =
- - object
- - method m0 x =
- - let y =
- - if Vlt.Logger.check_level "Test.foo#m0.y" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test.foo#m0.y" Vlt.Level.DEBUG ~file:"test.ml"
- - ~line:42 ~column:6 ~properties:[] ~error:None "x=%d" x
- - else ();
- - x + 1 in
- - y
- - end
- - module A =
- - struct
- - module B =
- - struct
- - let f0 x =
- - if Vlt.Logger.check_level "Test.A.B.f0" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test.A.B.f0" Vlt.Level.DEBUG ~file:"test.ml"
- - ~line:55 ~column:6 ~properties:[] ~error:None "x=%d" x
- - else ();
- - x + 1
- - class bar =
- - object
- - method m1 (type s) cmp =
- - let module S =
- - (Set.Make)(struct
- - type t = s
- - let compare x y =
- - if
- - Vlt.Logger.check_level
- - "Test.A.B.bar#m1.S.compare"
- - Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test.A.B.bar#m1.S.compare"
- - Vlt.Level.DEBUG ~file:"test.ml" ~line:63
- - ~column:12 ~properties:[] ~error:None "@"
- - else ();
- - cmp x y
- - end) in ((module
- - S) : (module Set.S with type elt = s))
- - end
- - end
- - end
- - let main () =
- - if Vlt.Logger.check_level "Test.main" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Test.main" Vlt.Level.DEBUG ~file:"test.ml" ~line:76
- - ~column:2 ~properties:[] ~error:None "@"
- - else ()
- File "test/vlt/01-syntax/formatting.DEBUG.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t _build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
- diff --git a/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t b/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
- index 4545c4c..eff48f1 100644
- --- a/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t
- +++ b/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
- @@ -1,68 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 65
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
- - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - "abc"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:7 ~column:2 ~properties:[] ~error:None
- - "three parameters: %d %s %f" 1 "abc" 3.
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
- - "abc" 3. true
- - else ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
- - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
- - (id 1)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - (id "abc")
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:18 ~column:2 ~properties:[] ~error:None
- - "three parameters: %d %s %f" 1 "abc" (id 3.)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
- - ~line:19 ~column:2 ~properties:[] ~error:None
- - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
- - else ();
- - ();
- - ()
-
- File "test/vlt/01-syntax/daikon.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t _build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
- diff --git a/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t b/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
- index 7f87b19..e4b2686 100644
- --- a/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t
- +++ b/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
- @@ -1,27 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp daikon.ml 2> /dev/null | tail -n 25
- - type r = {
- - x: int ;
- - y: float }
- - let r =
- - let open Vlt.Daikon in
- - make_variable_builder (fun r -> [int "x" r.x; float "y" r.y])
- - let make_r k = { x = (k * k); y = (float (k - 2)) }
- - type c = (bool * string)
- - let c = let open Vlt.Daikon in tuple2 bool string
- - let make_c k = (true, (String.make k '*'))
- - let f x =
- - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:18
- - ~column:2
- - ~properties:(let open Vlt in Daikon.enter "f" [Daikon.int "x" x])
- - ~error:None (let open Vlt in Daikon.t);
- - (let rr = make_r x in
- - let cc = make_c x in
- - let res = (x * x) mod 2 in
- - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:23
- - ~column:2
- - ~properties:(let open Vlt in
- - Daikon.exit "f" (Daikon.int "res" res)
- - [Daikon.int "x" x; r "rr" rr; c "cc" cc]) ~error:None
- - (let open Vlt in Daikon.t))
- - let () = let l = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] in List.iter f l
- File "test/vlt/01-syntax/formatting.NONE.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t _build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
- diff --git a/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t b/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
- index ccae638..59d00a5 100644
- --- a/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t
- +++ b/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
- @@ -1,6 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 4
- - let () = ()
- - let () = (); (); (); (); (); (); ()
- - let id x = x
- - let () = (); (); (); (); (); (); ()
- File "test/vlt/01-syntax/formatting.INFO.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t _build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
- diff --git a/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t b/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
- index 9c7e673..222e801 100644
- --- a/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t
- +++ b/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
- @@ -1,58 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 55
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
- - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - "abc"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
- - "abc" 3. true
- - else ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
- - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
- - (id 1)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - (id "abc")
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
- - ~line:19 ~column:2 ~properties:[] ~error:None
- - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
- - else ();
- - ();
- - ()
-
- File "test/vlt/01-syntax/formatting.TRACE.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t _build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
- diff --git a/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t b/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
- index bce8ee8..2eb4c87 100644
- --- a/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t
- +++ b/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
- @@ -1,72 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 69
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
- - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - "abc"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:7 ~column:2 ~properties:[] ~error:None
- - "three parameters: %d %s %f" 1 "abc" 3.
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
- - "abc" 3. true
- - else ();
- - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
- - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
- - "abc" 3. true 'x';
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
- - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
- - (id 1)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - (id "abc")
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:18 ~column:2 ~properties:[] ~error:None
- - "three parameters: %d %s %f" 1 "abc" (id 3.)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
- - ~line:19 ~column:2 ~properties:[] ~error:None
- - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
- - else ();
- - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
- - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
- - "abc" 3. true (id 'x');
- - ()
-
- File "test/vlt/01-syntax/formatting.WARN.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t _build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
- diff --git a/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t b/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
- index f4a5c6c..aaf20a8 100644
- --- a/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t
- +++ b/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
- @@ -1,49 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 46
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - "abc"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
- - "abc" 3. true
- - else ();
- - ();
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - (id "abc")
- - else ();
- - ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
- - ~line:19 ~column:2 ~properties:[] ~error:None
- - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
- - else ();
- - ();
- - ()
-
- File "test/vlt/01-syntax/simple.DEBUG.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t _build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
- diff --git a/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t b/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
- index 010b949..e2aa7d5 100644
- --- a/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t
- +++ b/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
- @@ -1,51 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 49
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None "no %s" "argument"
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
- - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
- - else ();
- - print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - ()
- - let () =
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
- - ~properties:[] ~error:None "start ..."
- - else ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
- - ~properties:[] ~error:None "end ..."
- - else ()
- File "test/vlt/01-syntax/formatting.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t _build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
- diff --git a/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t b/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
- index bce8ee8..2eb4c87 100644
- --- a/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t
- +++ b/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
- @@ -1,72 +1,3 @@
- Instrument with vlt.ppx:
- $ dune describe pp formatting.ml 2> /dev/null | tail -n 69
- - let () = Vlt.Logger.prepare "Formatting"
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
- - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - "abc"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:7 ~column:2 ~properties:[] ~error:None
- - "three parameters: %d %s %f" 1 "abc" 3.
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
- - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
- - "abc" 3. true
- - else ();
- - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
- - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
- - "abc" 3. true 'x';
- - ()
- - let id x = x
- - let () =
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
- - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
- - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
- - (id 1)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
- - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
- - (id "abc")
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
- - ~line:18 ~column:2 ~properties:[] ~error:None
- - "three parameters: %d %s %f" 1 "abc" (id 3.)
- - else ();
- - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
- - ~line:19 ~column:2 ~properties:[] ~error:None
- - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
- - else ();
- - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
- - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
- - "abc" 3. true (id 'x');
- - ()
-
- File "test/vlt/01-syntax/simple.ERROR.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t _build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
- diff --git a/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t b/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
- index 9a13a16..eefd0a5 100644
- --- a/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t
- +++ b/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
- @@ -1,31 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 29
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0 then ();
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - ()
- - let () =
- - ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - ()
- File "test/vlt/01-syntax/simple.TRACE.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t _build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
- diff --git a/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t b/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
- index 3d50edf..a9518c4 100644
- --- a/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t
- +++ b/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
- @@ -1,53 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 51
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "entering main";
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None "no %s" "argument"
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
- - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
- - else ();
- - print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
- - ~column:2 ~properties:[] ~error:None "leaving main"
- - let () =
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
- - ~properties:[] ~error:None "start ..."
- - else ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
- - ~properties:[] ~error:None "end ..."
- - else ()
- File "test/vlt/01-syntax/simple.INFO.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t _build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
- diff --git a/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t b/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
- index 2ff7481..3d12338 100644
- --- a/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t
- +++ b/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
- @@ -1,45 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 43
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None "no %s" "argument"
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - ()
- - let () =
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
- - ~properties:[] ~error:None "start ..."
- - else ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
- - ~properties:[] ~error:None "end ..."
- - else ()
- File "test/vlt/01-syntax/simple.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t _build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
- diff --git a/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t b/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
- index 3d50edf..a9518c4 100644
- --- a/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t
- +++ b/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
- @@ -1,53 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 51
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
- - ~column:2 ~properties:[] ~error:None "entering main";
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None "no %s" "argument"
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
- - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
- - else ();
- - print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
- - ~column:2 ~properties:[] ~error:None "leaving main"
- - let () =
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
- - ~properties:[] ~error:None "start ..."
- - else ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - if Vlt.Logger.check_level "App" Vlt.Level.INFO
- - then
- - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
- - ~properties:[] ~error:None "end ..."
- - else ()
- File "test/vlt/01-syntax/simple.FATAL.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t _build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
- diff --git a/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t b/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
- index db3cf2b..510c13c 100644
- --- a/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t
- +++ b/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
- @@ -1,22 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 20
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0 then ();
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
- - done;
- - ()
- - let () =
- - ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - ()
- File "test/vlt/01-syntax/simple.NONE.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t _build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
- diff --git a/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t b/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
- index 7436e2a..c35762e 100644
- --- a/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t
- +++ b/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
- @@ -1,12 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 10
- - let () = ()
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0 then ();
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
- - done;
- - ()
- - let () =
- - (); (try main () with | e -> ((); Printexc.print_backtrace stdout)); ()
- File "test/vlt/01-syntax/simple.WARN.t/run.t", line 1, characters 0-0:
- /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t _build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
- diff --git a/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t b/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
- index 980a246..6c40361 100644
- --- a/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t
- +++ b/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
- @@ -1,37 +1,2 @@
- Instrument with vlt.ppx:
- $ dune describe pp simple.ml 2> /dev/null | tail -n 35
- - let () = Vlt.Logger.prepare "Simple"
- - let main () =
- - ();
- - if (Array.length Sys.argv) = 0
- - then
- - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
- - ~column:4 ~properties:[] ~error:None "no %s" "argument"
- - else ());
- - for i = 1 to pred (Array.length Sys.argv) do
- - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
- - with
- - | Not_found ->
- - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
- - then
- - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
- - ~line:13 ~column:8
- - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
- - ~error:None "undefined variable"
- - else ())
- - done;
- - ()
- - let () =
- - ();
- - (try main ()
- - with
- - | e ->
- - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
- - then
- - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
- - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
- - else ();
- - Printexc.print_backtrace stdout));
- - ()
[ERROR] The compilation of vlt.0.1.2 failed at "dune build -p vlt -j 71 @install @runtest".
#=== ERROR while compiling vlt.0.1.2 ==========================================#
# context 2.4.0~alpha1~dev | linux/x86_64 | ocaml-base-compiler.5.1.1 | pinned(https://github.com/codinuum/vlt/archive/refs/tags/v0.1.2.tar.gz)
# path ~/.opam/5.1/.opam-switch/build/vlt.0.1.2
# command ~/.opam/opam-init/hooks/sandbox.sh build dune build -p vlt -j 71 @install @runtest
# exit-code 1
# env-file ~/.opam/log/vlt-7-5a17be.env
# output-file ~/.opam/log/vlt-7-5a17be.out
### output ###
# File "test/orig/01-syntax/daikon.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t _build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
# diff --git a/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t b/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
# index 7f87b19..e4b2686 100644
# --- a/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t
# +++ b/_build/.sandbox/e7ee795fcac599d5ea7451186376bb6f/default/test/orig/01-syntax/daikon.t/run.t.corrected
# @@ -1,27 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp daikon.ml 2> /dev/null | tail -n 25
# - type r = {
# - x: int ;
# - y: float }
# - let r =
# - let open Vlt.Daikon in
# - make_variable_builder (fun r -> [int "x" r.x; float "y" r.y])
# - let make_r k = { x = (k * k); y = (float (k - 2)) }
# - type c = (bool * string)
# - let c = let open Vlt.Daikon in tuple2 bool string
# - let make_c k = (true, (String.make k '*'))
# - let f x =
# - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:18
# - ~column:2
# - ~properties:(let open Vlt in Daikon.enter "f" [Daikon.int "x" x])
# - ~error:None (let open Vlt in Daikon.t);
# - (let rr = make_r x in
# - let cc = make_c x in
# - let res = (x * x) mod 2 in
# - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:23
# - ~column:2
# - ~properties:(let open Vlt in
# - Daikon.exit "f" (Daikon.int "res" res)
# - [Daikon.int "x" x; r "rr" rr; c "cc" cc]) ~error:None
# - (let open Vlt in Daikon.t))
# - let () = let l = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] in List.iter f l
# File "test/orig/01-syntax/formatting.ERROR.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t _build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
# diff --git a/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t b/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
# index b84b825..7733e1e 100644
# --- a/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t
# +++ b/_build/.sandbox/fec552015e6df3d834a69a06c82b4518/default/test/orig/01-syntax/formatting.ERROR.t/run.t.corrected
# @@ -1,39 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 36
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - ();
# - ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - ();
# - ();
# - ();
# - ()
#
# File "test/orig/01-syntax/formatting.DEBUG.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t _build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
# diff --git a/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t b/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
# index 54923d6..86f9442 100644
# --- a/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t
# +++ b/_build/.sandbox/2b2407241bc281562bcf70c5d2119e2b/default/test/orig/01-syntax/formatting.DEBUG.t/run.t.corrected
# @@ -1,69 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 66
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" (id 1))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - ();
# - ()
#
# File "test/orig/01-syntax/formatting.FATAL.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t _build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
# diff --git a/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t b/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
# index 4ed1300..293c094 100644
# --- a/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t
# +++ b/_build/.sandbox/15ffde13ae17ec80023dfe342960754b/default/test/orig/01-syntax/formatting.FATAL.t/run.t.corrected
# @@ -1,29 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 26
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - ();
# - ();
# - ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - ();
# - ();
# - ();
# - ();
# - ()
#
# File "test/orig/01-syntax/formatting.INFO.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t _build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
# diff --git a/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t b/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
# index 218b31f..ca8874b 100644
# --- a/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t
# +++ b/_build/.sandbox/f684d767b0ec1ecb1abc2ebc696df696/default/test/orig/01-syntax/formatting.INFO.t/run.t.corrected
# @@ -1,59 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 56
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" (id 1))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - ();
# - ()
#
# File "test/orig/01-syntax/formatting.NONE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t _build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
# diff --git a/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t b/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
# index ccae638..59d00a5 100644
# --- a/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t
# +++ b/_build/.sandbox/e037508c7204e13cf2435b4ff81a2a7b/default/test/orig/01-syntax/formatting.NONE.t/run.t.corrected
# @@ -1,6 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 4
# - let () = ()
# - let () = (); (); (); (); (); (); ()
# - let id x = x
# - let () = (); (); (); (); (); (); ()
# File "test/orig/01-syntax/formatting.TRACE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t _build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
# diff --git a/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t b/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
# index 67b4823..3d18ded 100644
# --- a/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t
# +++ b/_build/.sandbox/176832a9326690e898a7b408f7dc6447/default/test/orig/01-syntax/formatting.TRACE.t/run.t.corrected
# @@ -1,74 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 71
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true 'x');
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" (id 1))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true
# - (id 'x'));
# - ()
#
# File "test/orig/01-syntax/formatting.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t _build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
# diff --git a/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t b/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
# index 67b4823..3d18ded 100644
# --- a/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t
# +++ b/_build/.sandbox/7ed3af8fed86e67b0a01c7e18c1dac5c/default/test/orig/01-syntax/formatting.t/run.t.corrected
# @@ -1,74 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 71
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml" ~line:7
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true 'x');
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:16
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "one parameter: %d" (id 1))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "three parameters: %d %s %f" 1 "abc" (id 3.))
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - Vlt.Logger.log "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "five parameters: %d %s %f %B %c" 1 "abc" 3. true
# - (id 'x'));
# - ()
#
# File "test/orig/01-syntax/simple.ERROR.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t _build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
# diff --git a/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t b/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
# index ddaf212..eefd0a5 100644
# --- a/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t
# +++ b/_build/.sandbox/2bc2a9c4b19044fc7e7e0bc35a185eb8/default/test/orig/01-syntax/simple.ERROR.t/run.t.corrected
# @@ -1,31 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 29
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/orig/01-syntax/formatting.WARN.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t _build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
# diff --git a/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t b/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
# index 70e3f81..aaf20a8 100644
# --- a/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t
# +++ b/_build/.sandbox/f60e50f7a8f6a0e11854732947791faf/default/test/orig/01-syntax/formatting.WARN.t/run.t.corrected
# @@ -1,49 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 46
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml" ~line:6
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 "abc")
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. true)
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "two parameters: %d %s" 1 (id "abc"))
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:19
# - ~column:2 ~properties:[] ~error:None
# - (Printf.sprintf "four parameters: %d %s %f %B" 1 "abc" 3. (id true))
# - else ();
# - ();
# - ()
#
# File "test/orig/01-syntax/simple.INFO.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t _build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
# diff --git a/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t b/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
# index 4312283..bc03e6d 100644
# --- a/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t
# +++ b/_build/.sandbox/d37c66f753230b429c19aececdc3fc2f/default/test/orig/01-syntax/simple.INFO.t/run.t.corrected
# @@ -1,46 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 44
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/orig/01-syntax/simple.NONE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t _build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
# diff --git a/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t b/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
# index 7436e2a..c35762e 100644
# --- a/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t
# +++ b/_build/.sandbox/bb63c61241c4f8a65df883da8e8a078f/default/test/orig/01-syntax/simple.NONE.t/run.t.corrected
# @@ -1,12 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 10
# - let () = ()
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
# - done;
# - ()
# - let () =
# - (); (try main () with | e -> ((); Printexc.print_backtrace stdout)); ()
# File "test/orig/01-syntax/simple.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t _build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
# diff --git a/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t b/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
# index 7b81e8a..dedbc57 100644
# --- a/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t
# +++ b/_build/.sandbox/55f6f49cda7b49be19a286fa65ab0f5c/default/test/orig/01-syntax/simple.t/run.t.corrected
# @@ -1,54 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 52
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "entering main";
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
# - ~column:2 ~properties:[] ~error:None "leaving main"
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/orig/01-syntax/simple.FATAL.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t _build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
# diff --git a/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t b/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
# index cba55b0..510c13c 100644
# --- a/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t
# +++ b/_build/.sandbox/c701118b3d7dbdef84da31cd4a9278db/default/test/orig/01-syntax/simple.FATAL.t/run.t.corrected
# @@ -1,22 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 20
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/orig/01-syntax/simple.WARN.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t _build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
# diff --git a/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t b/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
# index 368eba5..1489329 100644
# --- a/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t
# +++ b/_build/.sandbox/08c54ab56cf6a6ab2e09a51f122698a2/default/test/orig/01-syntax/simple.WARN.t/run.t.corrected
# @@ -1,38 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 36
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/orig/01-syntax/simple.DEBUG.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t _build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
# diff --git a/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t b/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
# index ec99582..814a919 100644
# --- a/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t
# +++ b/_build/.sandbox/d93c2df001e1c3f09a156c127fb39a26/default/test/orig/01-syntax/simple.DEBUG.t/run.t.corrected
# @@ -1,52 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 50
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/orig/01-syntax/simple.TRACE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t _build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
# diff --git a/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t b/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
# index 7b81e8a..dedbc57 100644
# --- a/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t
# +++ b/_build/.sandbox/d634d6d9275936fa2bfe2de2344d1203/default/test/orig/01-syntax/simple.TRACE.t/run.t.corrected
# @@ -1,54 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 52
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "entering main";
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None
# - (Printf.sprintf "no %s" "argument")
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.log "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - Vlt.Logger.log "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
# - ~column:2 ~properties:[] ~error:None "leaving main"
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.log "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.log "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/block.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t _build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
# diff --git a/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t b/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
# index a6c541a..8af5707 100644
# --- a/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t
# +++ b/_build/.sandbox/4f4bb1df63a7428fe7bd12c448a4d118/default/test/vlt/01-syntax/block.t/run.t.corrected
# @@ -1,22 +1,2 @@
# We can instrument with vlt.ppx:
# $ dune describe pp test.ml 2> /dev/null | tail -n 20
# - let () = Vlt.Logger.prepare "Test"
# - let () =
# - if Vlt.Logger.check_level "Test" Vlt.Level.INFO
# - then
# - (Printf.printf "FOO\n";
# - Vlt.Logger.logf "Test" Vlt.Level.INFO ~file:"test.ml" ~line:6 ~column:4
# - ~properties:[] ~error:None "BAR";
# - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:7
# - ~column:4 ~properties:[] ~error:None "BAZ"
# - else ())
# - else ()
# - let () =
# - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.log "Test" Vlt.Level.WARN ~file:"test.ml" ~line:11 ~column:2
# - ~properties:[] ~error:None "FOO"
# - else ()
# - let () = ()
# File "test/vlt/01-syntax/formatting.ERROR.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t _build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
# diff --git a/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t b/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
# index 63eb892..7733e1e 100644
# --- a/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t
# +++ b/_build/.sandbox/194022adab3720a3b9b927f9f117da6f/default/test/vlt/01-syntax/formatting.ERROR.t/run.t.corrected
# @@ -1,39 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 36
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - ();
# - ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - ();
# - ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/formatting.FATAL.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t _build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
# diff --git a/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t b/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
# index 6683b15..293c094 100644
# --- a/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t
# +++ b/_build/.sandbox/795cb93d859fd75019ba6c9d1b129813/default/test/vlt/01-syntax/formatting.FATAL.t/run.t.corrected
# @@ -1,29 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 26
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - ();
# - ();
# - ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - ();
# - ();
# - ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/capture_path.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t _build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
# diff --git a/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t b/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
# index be33e1f..730a62e 100644
# --- a/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t
# +++ b/_build/.sandbox/31ff19c6e2b30bb366223ad2c393b2e8/default/test/vlt/01-syntax/capture_path.t/run.t.corrected
# @@ -1,104 +1,2 @@
# We can instrument with vlt.ppx:
# $ dune describe pp test.ml 2> /dev/null | tail -n 102
# - let () = Vlt.Logger.prepare "Test"
# - class foo =
# - object
# - method m0 x =
# - let y =
# - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:6
# - ~column:6 ~properties:[] ~error:None "x=%d" x
# - else ();
# - x + 1 in
# - y
# - end
# - module A =
# - struct
# - module B =
# - struct
# - let f0 x =
# - if Vlt.Logger.check_level "Test.A.B" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.A.B" Vlt.Level.DEBUG ~file:"test.ml"
# - ~line:17 ~column:6 ~properties:[] ~error:None "x=%d" x
# - else ();
# - x + 1
# - class bar =
# - object
# - method m1 (type s) cmp =
# - let module S =
# - (Set.Make)(struct
# - type t = s
# - let compare x y =
# - if
# - Vlt.Logger.check_level "Test.A.B"
# - Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.A.B" Vlt.Level.DEBUG
# - ~file:"test.ml" ~line:25 ~column:12
# - ~properties:[] ~error:None "@"
# - else ();
# - cmp x y
# - end) in ((module
# - S) : (module Set.S with type elt = s))
# - end
# - end
# - end
# - let main () =
# - if Vlt.Logger.check_level "Test" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test" Vlt.Level.DEBUG ~file:"test.ml" ~line:36 ~column:2
# - ~properties:[] ~error:None "@"
# - else ()
# - class foo =
# - object
# - method m0 x =
# - let y =
# - if Vlt.Logger.check_level "Test.foo#m0.y" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.foo#m0.y" Vlt.Level.DEBUG ~file:"test.ml"
# - ~line:42 ~column:6 ~properties:[] ~error:None "x=%d" x
# - else ();
# - x + 1 in
# - y
# - end
# - module A =
# - struct
# - module B =
# - struct
# - let f0 x =
# - if Vlt.Logger.check_level "Test.A.B.f0" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.A.B.f0" Vlt.Level.DEBUG ~file:"test.ml"
# - ~line:55 ~column:6 ~properties:[] ~error:None "x=%d" x
# - else ();
# - x + 1
# - class bar =
# - object
# - method m1 (type s) cmp =
# - let module S =
# - (Set.Make)(struct
# - type t = s
# - let compare x y =
# - if
# - Vlt.Logger.check_level
# - "Test.A.B.bar#m1.S.compare"
# - Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.A.B.bar#m1.S.compare"
# - Vlt.Level.DEBUG ~file:"test.ml" ~line:63
# - ~column:12 ~properties:[] ~error:None "@"
# - else ();
# - cmp x y
# - end) in ((module
# - S) : (module Set.S with type elt = s))
# - end
# - end
# - end
# - let main () =
# - if Vlt.Logger.check_level "Test.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Test.main" Vlt.Level.DEBUG ~file:"test.ml" ~line:76
# - ~column:2 ~properties:[] ~error:None "@"
# - else ()
# File "test/vlt/01-syntax/formatting.DEBUG.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t _build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
# diff --git a/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t b/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
# index 4545c4c..eff48f1 100644
# --- a/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t
# +++ b/_build/.sandbox/aa8e00647577a2a32a70649a3723ad0a/default/test/vlt/01-syntax/formatting.DEBUG.t/run.t.corrected
# @@ -1,68 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 65
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:7 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" 3.
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
# - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
# - (id 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" (id 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/daikon.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t _build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
# diff --git a/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t b/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
# index 7f87b19..e4b2686 100644
# --- a/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t
# +++ b/_build/.sandbox/ac0810d49a171d8bba0f7ff7cb2a7357/default/test/vlt/01-syntax/daikon.t/run.t.corrected
# @@ -1,27 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp daikon.ml 2> /dev/null | tail -n 25
# - type r = {
# - x: int ;
# - y: float }
# - let r =
# - let open Vlt.Daikon in
# - make_variable_builder (fun r -> [int "x" r.x; float "y" r.y])
# - let make_r k = { x = (k * k); y = (float (k - 2)) }
# - type c = (bool * string)
# - let c = let open Vlt.Daikon in tuple2 bool string
# - let make_c k = (true, (String.make k '*'))
# - let f x =
# - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:18
# - ~column:2
# - ~properties:(let open Vlt in Daikon.enter "f" [Daikon.int "x" x])
# - ~error:None (let open Vlt in Daikon.t);
# - (let rr = make_r x in
# - let cc = make_c x in
# - let res = (x * x) mod 2 in
# - Vlt.Logger.log "Daikon.f" Vlt.Level.TRACE ~file:"daikon.ml" ~line:23
# - ~column:2
# - ~properties:(let open Vlt in
# - Daikon.exit "f" (Daikon.int "res" res)
# - [Daikon.int "x" x; r "rr" rr; c "cc" cc]) ~error:None
# - (let open Vlt in Daikon.t))
# - let () = let l = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] in List.iter f l
# File "test/vlt/01-syntax/formatting.NONE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t _build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
# diff --git a/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t b/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
# index ccae638..59d00a5 100644
# --- a/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t
# +++ b/_build/.sandbox/568ff5d1b36a7109d71b193339837a20/default/test/vlt/01-syntax/formatting.NONE.t/run.t.corrected
# @@ -1,6 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 4
# - let () = ()
# - let () = (); (); (); (); (); (); ()
# - let id x = x
# - let () = (); (); (); (); (); (); ()
# File "test/vlt/01-syntax/formatting.INFO.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t _build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
# diff --git a/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t b/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
# index 9c7e673..222e801 100644
# --- a/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t
# +++ b/_build/.sandbox/720e18dcae97e731cc943e43d4e9bf34/default/test/vlt/01-syntax/formatting.INFO.t/run.t.corrected
# @@ -1,58 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 55
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
# - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
# - (id 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/formatting.TRACE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t _build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
# diff --git a/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t b/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
# index bce8ee8..2eb4c87 100644
# --- a/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t
# +++ b/_build/.sandbox/606850a805e3ca9b10e95a91af3ef4a4/default/test/vlt/01-syntax/formatting.TRACE.t/run.t.corrected
# @@ -1,72 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 69
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:7 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" 3.
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
# - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
# - "abc" 3. true 'x';
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
# - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
# - (id 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" (id 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
# - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
# - "abc" 3. true (id 'x');
# - ()
#
# File "test/vlt/01-syntax/formatting.WARN.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t _build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
# diff --git a/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t b/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
# index f4a5c6c..aaf20a8 100644
# --- a/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t
# +++ b/_build/.sandbox/10583bed8c2279c8f9b97b8e044bda33/default/test/vlt/01-syntax/formatting.WARN.t/run.t.corrected
# @@ -1,49 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 46
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - ();
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - ();
# - ()
#
# File "test/vlt/01-syntax/simple.DEBUG.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t _build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
# diff --git a/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t b/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
# index 010b949..e2aa7d5 100644
# --- a/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t
# +++ b/_build/.sandbox/26ba41bd3ea88c2e3d7e19f1af4083d6/default/test/vlt/01-syntax/simple.DEBUG.t/run.t.corrected
# @@ -1,51 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 49
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/formatting.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t _build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
# diff --git a/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t b/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
# index bce8ee8..2eb4c87 100644
# --- a/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t
# +++ b/_build/.sandbox/ed15d13b3ddfb49544d7f7755161564e/default/test/vlt/01-syntax/formatting.t/run.t.corrected
# @@ -1,72 +1,3 @@
# Instrument with vlt.ppx:
# $ dune describe pp formatting.ml 2> /dev/null | tail -n 69
# - let () = Vlt.Logger.prepare "Formatting"
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:4 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml" ~line:5
# - ~column:2 ~properties:[] ~error:None "one parameter: %d" 1
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:6 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - "abc"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:7 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" 3.
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml" ~line:8
# - ~column:2 ~properties:[] ~error:None "four parameters: %d %s %f %B" 1
# - "abc" 3. true
# - else ();
# - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:9
# - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
# - "abc" 3. true 'x';
# - ()
# - let id x = x
# - let () =
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.FATAL ~file:"formatting.ml"
# - ~line:15 ~column:2 ~properties:[] ~error:None "no parameter"
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.INFO ~file:"formatting.ml"
# - ~line:16 ~column:2 ~properties:[] ~error:None "one parameter: %d"
# - (id 1)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.ERROR ~file:"formatting.ml"
# - ~line:17 ~column:2 ~properties:[] ~error:None "two parameters: %d %s" 1
# - (id "abc")
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.DEBUG ~file:"formatting.ml"
# - ~line:18 ~column:2 ~properties:[] ~error:None
# - "three parameters: %d %s %f" 1 "abc" (id 3.)
# - else ();
# - if Vlt.Logger.check_level "Formatting" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Formatting" Vlt.Level.WARN ~file:"formatting.ml"
# - ~line:19 ~column:2 ~properties:[] ~error:None
# - "four parameters: %d %s %f %B" 1 "abc" 3. (id true)
# - else ();
# - Vlt.Logger.logf "Formatting" Vlt.Level.TRACE ~file:"formatting.ml" ~line:20
# - ~column:2 ~properties:[] ~error:None "five parameters: %d %s %f %B %c" 1
# - "abc" 3. true (id 'x');
# - ()
#
# File "test/vlt/01-syntax/simple.ERROR.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t _build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
# diff --git a/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t b/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
# index 9a13a16..eefd0a5 100644
# --- a/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t
# +++ b/_build/.sandbox/a7daf1ac3e4db370aa15b5cf7308be28/default/test/vlt/01-syntax/simple.ERROR.t/run.t.corrected
# @@ -1,31 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 29
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/vlt/01-syntax/simple.TRACE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t _build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
# diff --git a/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t b/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
# index 3d50edf..a9518c4 100644
# --- a/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t
# +++ b/_build/.sandbox/3ba17d2d26246d3379f36d931d8f943b/default/test/vlt/01-syntax/simple.TRACE.t/run.t.corrected
# @@ -1,53 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 51
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "entering main";
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
# - ~column:2 ~properties:[] ~error:None "leaving main"
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/simple.INFO.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t _build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
# diff --git a/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t b/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
# index 2ff7481..3d12338 100644
# --- a/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t
# +++ b/_build/.sandbox/004531fc43a766b389d41ed67e665b84/default/test/vlt/01-syntax/simple.INFO.t/run.t.corrected
# @@ -1,45 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 43
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/simple.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t _build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
# diff --git a/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t b/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
# index 3d50edf..a9518c4 100644
# --- a/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t
# +++ b/_build/.sandbox/e047b34c6feb485b757832274a3c9a86/default/test/vlt/01-syntax/simple.t/run.t.corrected
# @@ -1,53 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 51
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:4
# - ~column:2 ~properties:[] ~error:None "entering main";
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.DEBUG
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.DEBUG ~file:"simple.ml"
# - ~line:9 ~column:6 ~properties:[] ~error:None "getting variable "
# - else ();
# - print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - Vlt.Logger.logf "Simple.main" Vlt.Level.TRACE ~file:"simple.ml" ~line:15
# - ~column:2 ~properties:[] ~error:None "leaving main"
# - let () =
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:18 ~column:2
# - ~properties:[] ~error:None "start ..."
# - else ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - if Vlt.Logger.check_level "App" Vlt.Level.INFO
# - then
# - Vlt.Logger.logf "App" Vlt.Level.INFO ~file:"simple.ml" ~line:24 ~column:2
# - ~properties:[] ~error:None "end ..."
# - else ()
# File "test/vlt/01-syntax/simple.FATAL.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t _build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
# diff --git a/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t b/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
# index db3cf2b..510c13c 100644
# --- a/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t
# +++ b/_build/.sandbox/99c47569caaa946fdcff60c062b82f64/default/test/vlt/01-syntax/simple.FATAL.t/run.t.corrected
# @@ -1,22 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 20
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
# File "test/vlt/01-syntax/simple.NONE.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t _build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
# diff --git a/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t b/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
# index 7436e2a..c35762e 100644
# --- a/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t
# +++ b/_build/.sandbox/a777cc0977147347461e6d53c3ace74d/default/test/vlt/01-syntax/simple.NONE.t/run.t.corrected
# @@ -1,12 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 10
# - let () = ()
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0 then ();
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i))) with | Not_found -> ())
# - done;
# - ()
# - let () =
# - (); (try main () with | e -> ((); Printexc.print_backtrace stdout)); ()
# File "test/vlt/01-syntax/simple.WARN.t/run.t", line 1, characters 0-0:
# /usr/bin/git --no-pager diff --no-index --color=always -u _build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t _build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
# diff --git a/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t b/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
# index 980a246..6c40361 100644
# --- a/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t
# +++ b/_build/.sandbox/ce9494000672fe989feb02cc6c437c7d/default/test/vlt/01-syntax/simple.WARN.t/run.t.corrected
# @@ -1,37 +1,2 @@
# Instrument with vlt.ppx:
# $ dune describe pp simple.ml 2> /dev/null | tail -n 35
# - let () = Vlt.Logger.prepare "Simple"
# - let main () =
# - ();
# - if (Array.length Sys.argv) = 0
# - then
# - (if Vlt.Logger.check_level "Simple.main" Vlt.Level.WARN
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.WARN ~file:"simple.ml" ~line:6
# - ~column:4 ~properties:[] ~error:None "no %s" "argument"
# - else ());
# - for i = 1 to pred (Array.length Sys.argv) do
# - (try (); print_endline (Sys.getenv (Sys.argv.(i)))
# - with
# - | Not_found ->
# - if Vlt.Logger.check_level "Simple.main" Vlt.Level.ERROR
# - then
# - Vlt.Logger.logf "Simple.main" Vlt.Level.ERROR ~file:"simple.ml"
# - ~line:13 ~column:8
# - ~properties:(let open Vlt in [("var", (Sys.argv.(i)))])
# - ~error:None "undefined variable"
# - else ())
# - done;
# - ()
# - let () =
# - ();
# - (try main ()
# - with
# - | e ->
# - (if Vlt.Logger.check_level "Simple" Vlt.Level.FATAL
# - then
# - Vlt.Logger.logf "Simple" Vlt.Level.FATAL ~file:"simple.ml" ~line:22
# - ~column:4 ~properties:[] ~error:(Some e) "uncaught exception"
# - else ();
# - Printexc.print_backtrace stdout));
# - ()
'opam reinstall --with-test --verbose vlt.0.1.2' failed.
<><> Error report <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
+- The following actions failed
| - build vlt 0.1.2
+-
- No changes have been performed
# To update the current shell environment, run: eval $(opam env)
[WARNING] OPAMCONFIRMLEVEL was ignored because CLI 2.0 was requested and it was introduced in 2.1.
[WARNING] OPAMCONFIRMLEVEL was ignored because CLI 2.0 was requested and it was introduced in 2.1.
"/usr/bin/env" "bash" "-c" "opam reinstall --with-test --verbose vlt.0.1.2;
res=$?;
test "$res" != 31 && exit "$res";
export OPAMCLI=2.0;
build_dir=$(opam var prefix)/.opam-switch/build;
failed=$(ls "$build_dir");
partial_fails="";
for pkg in $failed; do
if opam show -f x-ci-accept-failures: "$pkg" | grep -qF "\"debian-12\""; then
echo "A package failed and has been disabled for CI using the 'x-ci-accept-failures' field.";
fi;
test "$pkg" != 'vlt.0.1.2' && partial_fails="$partial_fails $pkg";
done;
test "${partial_fails}" != "" && echo "opam-repo-ci detected dependencies failing: ${partial_fails}";
exit 1" failed with exit status 1
2025-02-10 17:58.59: Job failed: Failed: Build failed
2025-02-10 17:58.59: Log analysis:
2025-02-10 17:58.59: >>>
[ERROR] The compilation of vlt.0.1.2 failed at "dune build -p vlt -j 71 @install @runtest".
(score = 20)
2025-02-10 17:58.59: >>>
[ERROR] The compilation of vlt.0.1.2 failed at "dune build -p vlt -j 71 @install @runtest".
(score = 20)
2025-02-10 17:58.59: The compilation of vlt.0.1.2 failed at "dune build -p vlt -j 71 @install @runtest".