2025-06-10 21:00.48: New job: test mbarbin/vcs https://github.com/mbarbin/vcs.git#refs/heads/main (09f1ca2b0087ec8cf255f7e73deaa9b8b4cbeaf0) (windows-amd64:windows-server-2022-amd64-5.3_opam-2.3)
Base: windows-server-2022-amd64-ocaml-5.3
Opam project build
To reproduce locally:
git clone --recursive "https://github.com/mbarbin/vcs.git" -b "main" && cd "vcs" && git reset --hard 09f1ca2b
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM windows-server-2022-amd64-ocaml-5.3
# windows-server-2022-amd64-5.3_opam-2.3
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
RUN ln -f /usr/bin/opam-2.3 /usr/bin/opam
RUN opam init --reinit -ni
RUN uname -rs && opam exec -- ocaml -version && opam --version
RUN cd ~/opam-repository && (git cat-file -e 1a11c92ed328069e79caabba3776e1f3862c8f71 || git fetch origin master) && git reset -q --hard 1a11c92ed328069e79caabba3776e1f3862c8f71 && git log --no-decorate -n1 --oneline && opam update -u
COPY --chown=1000:1000 volgo.opam volgo-vcs.opam volgo-tests.opam volgo-hg-unix.opam volgo-hg-eio.opam volgo-hg-backend.opam volgo-git-unix.opam volgo-git-eio.opam volgo-git-backend.opam volgo-dev.opam volgo-base.opam vcs-test-helpers.opam /Users/opam/src/./
RUN opam pin add -yn volgo.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-vcs.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-tests.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-hg-unix.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-hg-eio.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-hg-backend.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-git-unix.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-git-eio.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-git-backend.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-dev.dev '/Users/opam/src/./' && \
opam pin add -yn volgo-base.dev '/Users/opam/src/./' && \
opam pin add -yn vcs-test-helpers.dev '/Users/opam/src/./'
RUN echo '(lang dune 3.0)' > '/cygdrive/c/Users/opam/src/./dune-project'
ENV DEPS="arch-x86_64.1 astring.0.8.5 base.v0.17.2 base-bigarray.base base-domains.base base-effects.base base-nnp.base base-threads.base base-unix.base base_bigstring.v0.17.0 base_quickcheck.v0.17.0 bigstringaf.0.10.0 bin_prot.v0.17.0-1 camlp-streams.5.0.1 capitalization.v0.17.0 cmdlang.0.0.9 cmdlang-to-cmdliner.0.0.9 cmdliner.1.3.0 conf-git.1.1 conf-mingw-w64-gcc-x86_64.1 core.v0.17.1 cppo.1.8.0 csexp.1.5.2 cstruct.6.2.0 domain-local-await.1.0.1 dune.3.19.0 dune-configurator.3.19.0 dyn.3.19.0 eio.1.2 eio_main.1.2 eio_windows.1.2 expect_test_helpers_core.v0.17.0 fieldslib.v0.17.0 flexdll.0.44 fmt.0.10.0 fpath.0.7.3 fpath-base.0.3.1 fpath-sexp0.0.3.1 gel.v0.17.0 hmap.0.8.1 host-arch-x86_64.1 host-system-mingw.1 int_repr.v0.17.0 jane-street-headers.v0.17.0 jst-config.v0.17.0 loc.0.2.2 logs.0.8.0 lwt-dllist.1.1.0 mdx.2.5.0 mingw-w64-shims.0.2.0 mtime.2.1.0 num.1.5-1 ocaml.5.3.0 ocaml-base-compiler.5.3.0 ocaml-compiler.5.3.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-env-mingw64.1 ocaml-options-vanilla.1 ocaml-version.4.0.1 ocaml_intrinsics_kernel.v0.17.1 ocamlbuild.0.16.1 ocamlfind.1.9.8 optint.0.3.0 ordering.3.19.0 parsexp.v0.17.0 pp.2.0.0 pplumbing.0.0.14 ppx_assert.v0.17.0 ppx_base.v0.17.0 ppx_bench.v0.17.0 ppx_bin_prot.v0.17.0 ppx_cold.v0.17.0 ppx_compare.v0.17.0 ppx_custom_printf.v0.17.0 ppx_derivers.1.2.1 ppx_diff.v0.17.0 ppx_disable_unused_warnings.v0.17.0 ppx_enumerate.v0.17.0 ppx_expect.v0.17.2 ppx_fields_conv.v0.17.0 ppx_fixed_literal.v0.17.0 ppx_globalize.v0.17.0 ppx_hash.v0.17.0 ppx_here.v0.17.0 ppx_ignore_instrumentation.v0.17.0 ppx_inline_test.v0.17.0 ppx_jane.v0.17.0 ppx_let.v0.17.0 ppx_log.v0.17.0 ppx_module_timer.v0.17.0 ppx_optcomp.v0.17.0 ppx_optional.v0.17.0 ppx_pipebang.v0.17.0 ppx_sexp_conv.v0.17.0 ppx_sexp_message.v0.17.0 ppx_sexp_value.v0.17.0 ppx_stable.v0.17.0 ppx_stable_witness.v0.17.0 ppx_string.v0.17.0 ppx_string_conv.v0.17.0 ppx_tydi.v0.17.0 ppx_typerep_conv.v0.17.0 ppx_variants_conv.v0.17.0 ppxlib.0.35.0 ppxlib_jane.v0.17.2 psq.0.2.1 re.1.12.0 result.1.5 seq.base sexp_pretty.v0.17.0 sexplib.v0.17.0 sexplib0.v0.17.0 spawn.v0.17.0 splittable_random.v0.17.0 stdio.v0.17.0 stdlib-shims.0.3.0 stdune.3.19.0 system-mingw.1 thread-table.1.0.0 time_now.v0.17.0 topkg.1.0.8 typerep.v0.17.1 variantslib.v0.17.0"
ENV CI="true"
ENV OCAMLCI="true"
RUN opam update --depexts && opam install --cli=2.3 --depext-only -y volgo.dev volgo-vcs.dev volgo-tests.dev volgo-hg-unix.dev volgo-hg-eio.dev volgo-hg-backend.dev volgo-git-unix.dev volgo-git-eio.dev volgo-git-backend.dev volgo-dev.dev volgo-base.dev vcs-test-helpers.dev $DEPS
RUN opam install $DEPS
COPY --chown=1000:1000 . /Users/opam/src
RUN cd /cygdrive/c/Users/opam/src && opam exec -- dune build @install @check @runtest && rm -rf _build
END-OF-DOCKERFILE
docker build .
END-REPRO-BLOCK
2025-06-10 21:00.48: Using cache hint "mbarbin/vcs-windows-server-2022-amd64-ocaml-5.3-windows-server-2022-amd64-5.3_opam-2.3-8398449c4289f3d30063330552281252"
2025-06-10 21:00.48: Using OBuilder spec:
((from windows-server-2022-amd64-ocaml-5.3)
(comment windows-server-2022-amd64-5.3_opam-2.3)
(user (uid 1000) (gid 1000))
(env CLICOLOR_FORCE 1)
(env OPAMCOLOR always)
(run (shell "ln -f /usr/bin/opam-2.3 /usr/bin/opam"))
(run (shell "opam init --reinit -ni"))
(run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
(run (cache (opam-archives (target "c:\\Users\\opam\\AppData\\local\\opam\\download-cache")))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 1a11c92ed328069e79caabba3776e1f3862c8f71 || git fetch origin master) && git reset -q --hard 1a11c92ed328069e79caabba3776e1f3862c8f71 && git log --no-decorate -n1 --oneline && opam update -u"))
(copy (src volgo.opam volgo-vcs.opam volgo-tests.opam volgo-hg-unix.opam volgo-hg-eio.opam volgo-hg-backend.opam volgo-git-unix.opam volgo-git-eio.opam volgo-git-backend.opam volgo-dev.opam volgo-base.opam vcs-test-helpers.opam)
(dst /Users/opam/src/./))
(run (network host)
(shell "opam pin add -yn volgo.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-vcs.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-tests.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-hg-unix.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-hg-eio.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-hg-backend.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-git-unix.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-git-eio.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-git-backend.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-dev.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-base.dev '/Users/opam/src/./' && \
\nopam pin add -yn vcs-test-helpers.dev '/Users/opam/src/./'"))
(run (network host)
(shell "echo '(lang dune 3.0)' > '/cygdrive/c/Users/opam/src/./dune-project'"))
(env DEPS "arch-x86_64.1 astring.0.8.5 base.v0.17.2 base-bigarray.base base-domains.base base-effects.base base-nnp.base base-threads.base base-unix.base base_bigstring.v0.17.0 base_quickcheck.v0.17.0 bigstringaf.0.10.0 bin_prot.v0.17.0-1 camlp-streams.5.0.1 capitalization.v0.17.0 cmdlang.0.0.9 cmdlang-to-cmdliner.0.0.9 cmdliner.1.3.0 conf-git.1.1 conf-mingw-w64-gcc-x86_64.1 core.v0.17.1 cppo.1.8.0 csexp.1.5.2 cstruct.6.2.0 domain-local-await.1.0.1 dune.3.19.0 dune-configurator.3.19.0 dyn.3.19.0 eio.1.2 eio_main.1.2 eio_windows.1.2 expect_test_helpers_core.v0.17.0 fieldslib.v0.17.0 flexdll.0.44 fmt.0.10.0 fpath.0.7.3 fpath-base.0.3.1 fpath-sexp0.0.3.1 gel.v0.17.0 hmap.0.8.1 host-arch-x86_64.1 host-system-mingw.1 int_repr.v0.17.0 jane-street-headers.v0.17.0 jst-config.v0.17.0 loc.0.2.2 logs.0.8.0 lwt-dllist.1.1.0 mdx.2.5.0 mingw-w64-shims.0.2.0 mtime.2.1.0 num.1.5-1 ocaml.5.3.0 ocaml-base-compiler.5.3.0 ocaml-compiler.5.3.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-env-mingw64.1 ocaml-options-vanilla.1 ocaml-version.4.0.1 ocaml_intrinsics_kernel.v0.17.1 ocamlbuild.0.16.1 ocamlfind.1.9.8 optint.0.3.0 ordering.3.19.0 parsexp.v0.17.0 pp.2.0.0 pplumbing.0.0.14 ppx_assert.v0.17.0 ppx_base.v0.17.0 ppx_bench.v0.17.0 ppx_bin_prot.v0.17.0 ppx_cold.v0.17.0 ppx_compare.v0.17.0 ppx_custom_printf.v0.17.0 ppx_derivers.1.2.1 ppx_diff.v0.17.0 ppx_disable_unused_warnings.v0.17.0 ppx_enumerate.v0.17.0 ppx_expect.v0.17.2 ppx_fields_conv.v0.17.0 ppx_fixed_literal.v0.17.0 ppx_globalize.v0.17.0 ppx_hash.v0.17.0 ppx_here.v0.17.0 ppx_ignore_instrumentation.v0.17.0 ppx_inline_test.v0.17.0 ppx_jane.v0.17.0 ppx_let.v0.17.0 ppx_log.v0.17.0 ppx_module_timer.v0.17.0 ppx_optcomp.v0.17.0 ppx_optional.v0.17.0 ppx_pipebang.v0.17.0 ppx_sexp_conv.v0.17.0 ppx_sexp_message.v0.17.0 ppx_sexp_value.v0.17.0 ppx_stable.v0.17.0 ppx_stable_witness.v0.17.0 ppx_string.v0.17.0 ppx_string_conv.v0.17.0 ppx_tydi.v0.17.0 ppx_typerep_conv.v0.17.0 ppx_variants_conv.v0.17.0 ppxlib.0.35.0 ppxlib_jane.v0.17.2 psq.0.2.1 re.1.12.0 result.1.5 seq.base sexp_pretty.v0.17.0 sexplib.v0.17.0 sexplib0.v0.17.0 spawn.v0.17.0 splittable_random.v0.17.0 stdio.v0.17.0 stdlib-shims.0.3.0 stdune.3.19.0 system-mingw.1 thread-table.1.0.0 time_now.v0.17.0 topkg.1.0.8 typerep.v0.17.1 variantslib.v0.17.0")
(env CI true)
(env OCAMLCI true)
(run (cache (opam-archives (target "c:\\Users\\opam\\AppData\\local\\opam\\download-cache")))
(network host)
(shell "opam update --depexts && opam install --cli=2.3 --depext-only -y volgo.dev volgo-vcs.dev volgo-tests.dev volgo-hg-unix.dev volgo-hg-eio.dev volgo-hg-backend.dev volgo-git-unix.dev volgo-git-eio.dev volgo-git-backend.dev volgo-dev.dev volgo-base.dev vcs-test-helpers.dev $DEPS"))
(run (cache (opam-archives (target "c:\\Users\\opam\\AppData\\local\\opam\\download-cache")))
(network host)
(shell "opam install $DEPS"))
(copy (src .) (dst /Users/opam/src))
(run (shell "cd /cygdrive/c/Users/opam/src && opam exec -- dune build @install @check @runtest && rm -rf _build"))
)
2025-06-10 21:00.48: Waiting for resource in pool OCluster
2025-06-10 21:00.49: Waiting for worker…
2025-06-10 21:00.49: Got resource from pool OCluster
Building on thyme
Updating files: 89% (487/545)
Updating files: 90% (491/545)
Updating files: 91% (496/545)
Updating files: 92% (502/545)
Updating files: 93% (507/545)
Updating files: 94% (513/545)
Updating files: 95% (518/545)
Updating files: 96% (524/545)
Updating files: 97% (529/545)
Updating files: 98% (535/545)
Updating files: 99% (540/545)
Updating files: 100% (545/545)
Updating files: 100% (545/545), done.
HEAD is now at bcbaf98 Edit changelog
HEAD is now at 09f1ca2 Merge pull request #78 from mbarbin/platform-repo
(from windows-server-2022-amd64-ocaml-5.3)
2025-06-10 21:00.55 ---> using "1d6ffeb5a52124df73b2e951323e99615c52ca4f9bdf0f65039be6146fabdaab" from cache
/: (comment windows-server-2022-amd64-5.3_opam-2.3)
/: (user (uid 1000) (gid 1000))
/: (env CLICOLOR_FORCE 1)
/: (env OPAMCOLOR always)
/: (run (shell "ln -f /usr/bin/opam-2.3 /usr/bin/opam"))
2025-06-10 21:00.55 ---> using "95d5d85ee56c2575e196f53fe7f940cc0731fb5c4485beb38b72a714de9d05bf" from cache
/: (run (shell "opam init --reinit -ni"))
No configuration file found, using built-in defaults.
<><> Unix support infrastructure ><><><><><><><><><><><><><><><><><><><><><><><>
opam and the OCaml ecosystem in general require various Unix tools in order to operate correctly. At present, this requires the installation of Cygwin to provide these tools.
How should opam obtain Unix tools?
> 1. Use tools found in PATH (Cygwin installation at C:\cygwin64)
2. Automatically create an internal Cygwin installation that will be managed by opam (recommended)
3. Use Cygwin installation found in C:\cygwin64
4. Use another existing Cygwin/MSYS2 installation
5. Abort initialisation
[1/2/3/4/5] 1
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.
<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] no changes from file://C:/Users/opam/opam-repository
2025-06-10 21:00.55 ---> using "53bae75d46d214e65b51daece9ef873c6c6a891e203ec3d98bbd26c30834d1e2" from cache
/: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
CYGWIN_NT-10.0-20348 3.5.5-1.x86_64
The OCaml toplevel, version 5.3.0
2.3.0
2025-06-10 21:00.55 ---> using "2b54922bf0d8d5ddbb1aea4afec4a959968c963bd87de7fe3038a742f957825c" from cache
/: (run (cache (opam-archives (target "c:\\Users\\opam\\AppData\\local\\opam\\download-cache")))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 1a11c92ed328069e79caabba3776e1f3862c8f71 || git fetch origin master) && git reset -q --hard 1a11c92ed328069e79caabba3776e1f3862c8f71 && git log --no-decorate -n1 --oneline && opam update -u"))
From https://github.com/ocaml/opam-repository
* branch master -> FETCH_HEAD
f93eb7cb02..6db96b377f master -> origin/master
1a11c92ed3 Merge pull request #27953 from ocaml/mseri-patch-1
<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file://C:/Users/opam/opam-repository
The following actions will be performed:
=== recompile 7 packages
- recompile base-domains base [uses ocaml]
- recompile base-effects base [uses ocaml]
- recompile base-nnp base [uses base-domains]
- recompile ocaml 5.3.0 [uses ocaml-base-compiler]
- recompile ocaml-base-compiler 5.3.0 (pinned) [uses ocaml-compiler]
- recompile ocaml-compiler 5.3.0 [uses flexdll]
- recompile ocaml-config 3 [uses ocaml-base-compiler]
=== upgrade 1 package
- upgrade flexdll 0.43 to 0.44
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved ocaml-config.3 (cached)
-> retrieved flexdll.0.44 (cached)
-> removed base-effects.base
-> removed base-nnp.base
-> removed base-domains.base
-> removed ocaml.5.3.0
-> removed ocaml-config.3
-> removed ocaml-base-compiler.5.3.0
-> retrieved ocaml-compiler.5.3.0 (cached)
-> removed ocaml-compiler.5.3.0
-> removed flexdll.0.43
-> installed flexdll.0.44
-> installed ocaml-compiler.5.3.0
-> installed ocaml-base-compiler.5.3.0
-> installed ocaml-config.3
-> installed ocaml.5.3.0
-> installed base-domains.base
-> installed base-effects.base
-> installed base-nnp.base
Done.
# To update the current shell environment, run: eval $(opam env)
2025-06-10 21:00.55 ---> using "0939bf103f0441d37f2c04466537a7933ad02be2f047c38b32223859dc9be107" from cache
/: (copy (src volgo.opam volgo-vcs.opam volgo-tests.opam volgo-hg-unix.opam volgo-hg-eio.opam volgo-hg-backend.opam volgo-git-unix.opam volgo-git-eio.opam volgo-git-backend.opam volgo-dev.opam volgo-base.opam vcs-test-helpers.opam)
(dst /Users/opam/src/./))
2025-06-10 21:00.56 ---> using "06c125b2841f20a59c3450c82ec851bf436e76d2a5949399a8655341b951b0e7" from cache
/: (run (network host)
(shell "opam pin add -yn volgo.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-vcs.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-tests.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-hg-unix.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-hg-eio.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-hg-backend.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-git-unix.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-git-eio.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-git-backend.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-dev.dev '/Users/opam/src/./' && \
\nopam pin add -yn volgo-base.dev '/Users/opam/src/./' && \
\nopam pin add -yn vcs-test-helpers.dev '/Users/opam/src/./'"))
Package volgo does not exist, create as a NEW package? [y/n] y
[volgo.dev] synchronised (file://C:/Users/opam/src/.)
volgo is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-vcs does not exist, create as a NEW package? [y/n] y
[volgo-vcs.dev] synchronised (file://C:/Users/opam/src/.)
volgo-vcs is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-tests does not exist, create as a NEW package? [y/n] y
[volgo-tests.dev] synchronised (file://C:/Users/opam/src/.)
volgo-tests is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-hg-unix does not exist, create as a NEW package? [y/n] y
[volgo-hg-unix.dev] synchronised (file://C:/Users/opam/src/.)
volgo-hg-unix is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-hg-eio does not exist, create as a NEW package? [y/n] y
[volgo-hg-eio.dev] synchronised (file://C:/Users/opam/src/.)
volgo-hg-eio is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-hg-backend does not exist, create as a NEW package? [y/n] y
[volgo-hg-backend.dev] synchronised (file://C:/Users/opam/src/.)
volgo-hg-backend is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-git-unix does not exist, create as a NEW package? [y/n] y
[volgo-git-unix.dev] synchronised (file://C:/Users/opam/src/.)
volgo-git-unix is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-git-eio does not exist, create as a NEW package? [y/n] y
[volgo-git-eio.dev] synchronised (file://C:/Users/opam/src/.)
volgo-git-eio is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-git-backend does not exist, create as a NEW package? [y/n] y
[volgo-git-backend.dev] synchronised (file://C:/Users/opam/src/.)
volgo-git-backend is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-dev does not exist, create as a NEW package? [y/n] y
[volgo-dev.dev] synchronised (file://C:/Users/opam/src/.)
volgo-dev is now pinned to file://C:/Users/opam/src/. (version dev)
Package volgo-base does not exist, create as a NEW package? [y/n] y
[volgo-base.dev] synchronised (file://C:/Users/opam/src/.)
volgo-base is now pinned to file://C:/Users/opam/src/. (version dev)
Package vcs-test-helpers does not exist, create as a NEW package? [y/n] y
[vcs-test-helpers.dev] synchronised (file://C:/Users/opam/src/.)
vcs-test-helpers is now pinned to file://C:/Users/opam/src/. (version dev)
2025-06-10 21:00.56 ---> using "2ada73b07d6cc1ff9694714cc14657cdc84304a6fc1d95159d580cd4c169fb57" from cache
/: (run (network host)
(shell "echo '(lang dune 3.0)' > '/cygdrive/c/Users/opam/src/./dune-project'"))
2025-06-10 21:00.56 ---> using "4dde61982672a34fa3b53f174898ebb75c05f7c8d1c59c789bd3263663c8290e" from cache
/: (env DEPS "arch-x86_64.1 astring.0.8.5 base.v0.17.2 base-bigarray.base base-domains.base base-effects.base base-nnp.base base-threads.base base-unix.base base_bigstring.v0.17.0 base_quickcheck.v0.17.0 bigstringaf.0.10.0 bin_prot.v0.17.0-1 camlp-streams.5.0.1 capitalization.v0.17.0 cmdlang.0.0.9 cmdlang-to-cmdliner.0.0.9 cmdliner.1.3.0 conf-git.1.1 conf-mingw-w64-gcc-x86_64.1 core.v0.17.1 cppo.1.8.0 csexp.1.5.2 cstruct.6.2.0 domain-local-await.1.0.1 dune.3.19.0 dune-configurator.3.19.0 dyn.3.19.0 eio.1.2 eio_main.1.2 eio_windows.1.2 expect_test_helpers_core.v0.17.0 fieldslib.v0.17.0 flexdll.0.44 fmt.0.10.0 fpath.0.7.3 fpath-base.0.3.1 fpath-sexp0.0.3.1 gel.v0.17.0 hmap.0.8.1 host-arch-x86_64.1 host-system-mingw.1 int_repr.v0.17.0 jane-street-headers.v0.17.0 jst-config.v0.17.0 loc.0.2.2 logs.0.8.0 lwt-dllist.1.1.0 mdx.2.5.0 mingw-w64-shims.0.2.0 mtime.2.1.0 num.1.5-1 ocaml.5.3.0 ocaml-base-compiler.5.3.0 ocaml-compiler.5.3.0 ocaml-compiler-libs.v0.17.0 ocaml-config.3 ocaml-env-mingw64.1 ocaml-options-vanilla.1 ocaml-version.4.0.1 ocaml_intrinsics_kernel.v0.17.1 ocamlbuild.0.16.1 ocamlfind.1.9.8 optint.0.3.0 ordering.3.19.0 parsexp.v0.17.0 pp.2.0.0 pplumbing.0.0.14 ppx_assert.v0.17.0 ppx_base.v0.17.0 ppx_bench.v0.17.0 ppx_bin_prot.v0.17.0 ppx_cold.v0.17.0 ppx_compare.v0.17.0 ppx_custom_printf.v0.17.0 ppx_derivers.1.2.1 ppx_diff.v0.17.0 ppx_disable_unused_warnings.v0.17.0 ppx_enumerate.v0.17.0 ppx_expect.v0.17.2 ppx_fields_conv.v0.17.0 ppx_fixed_literal.v0.17.0 ppx_globalize.v0.17.0 ppx_hash.v0.17.0 ppx_here.v0.17.0 ppx_ignore_instrumentation.v0.17.0 ppx_inline_test.v0.17.0 ppx_jane.v0.17.0 ppx_let.v0.17.0 ppx_log.v0.17.0 ppx_module_timer.v0.17.0 ppx_optcomp.v0.17.0 ppx_optional.v0.17.0 ppx_pipebang.v0.17.0 ppx_sexp_conv.v0.17.0 ppx_sexp_message.v0.17.0 ppx_sexp_value.v0.17.0 ppx_stable.v0.17.0 ppx_stable_witness.v0.17.0 ppx_string.v0.17.0 ppx_string_conv.v0.17.0 ppx_tydi.v0.17.0 ppx_typerep_conv.v0.17.0 ppx_variants_conv.v0.17.0 ppxlib.0.35.0 ppxlib_jane.v0.17.2 psq.0.2.1 re.1.12.0 result.1.5 seq.base sexp_pretty.v0.17.0 sexplib.v0.17.0 sexplib0.v0.17.0 spawn.v0.17.0 splittable_random.v0.17.0 stdio.v0.17.0 stdlib-shims.0.3.0 stdune.3.19.0 system-mingw.1 thread-table.1.0.0 time_now.v0.17.0 topkg.1.0.8 typerep.v0.17.1 variantslib.v0.17.0")
/: (env CI true)
/: (env OCAMLCI true)
/: (run (cache (opam-archives (target "c:\\Users\\opam\\AppData\\local\\opam\\download-cache")))
(network host)
(shell "opam update --depexts && opam install --cli=2.3 --depext-only -y volgo.dev volgo-vcs.dev volgo-tests.dev volgo-hg-unix.dev volgo-hg-eio.dev volgo-hg-backend.dev volgo-git-unix.dev volgo-git-eio.dev volgo-git-backend.dev volgo-dev.dev volgo-base.dev vcs-test-helpers.dev $DEPS"))
<><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><>
[vcs-test-helpers.dev] synchronised (file://C:/Users/opam/src/.)
[volgo.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-base.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-dev.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-git-backend.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-git-eio.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-git-unix.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-hg-backend.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-hg-eio.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-hg-unix.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-tests.dev] synchronised (file://C:/Users/opam/src/.)
[volgo-vcs.dev] synchronised (file://C:/Users/opam/src/.)
[NOTE] Package system-mingw is already installed (current version is 1).
[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-env-mingw64 is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 3).
[NOTE] Package ocaml-compiler is already installed (current version is 5.3.0).
[NOTE] Package ocaml-base-compiler is already installed (current version is 5.3.0).
[NOTE] Package ocaml is already installed (current version is 5.3.0).
[NOTE] Package mingw-w64-shims is already installed (current version is 0.2.0).
[NOTE] Package host-system-mingw is already installed (current version is 1).
[NOTE] Package host-arch-x86_64 is already installed (current version is 1).
[NOTE] Package flexdll is already installed (current version is 0.44).
[NOTE] Package conf-mingw-w64-gcc-x86_64 is already installed (current version is 1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-nnp is already installed (current version is base).
[NOTE] Package base-effects is already installed (current version is base).
[NOTE] Package base-domains is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
[NOTE] Package arch-x86_64 is already installed (current version is 1).
2025-06-10 21:00.56 ---> using "94d033c45f30af6551efbe3ad4b70c27efa99db40603737c1eadc52641f12b2b" from cache
/: (run (cache (opam-archives (target "c:\\Users\\opam\\AppData\\local\\opam\\download-cache")))
(network host)
(shell "opam install $DEPS"))
[NOTE] Package system-mingw is already installed (current version is 1).
[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-env-mingw64 is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 3).
[NOTE] Package ocaml-compiler is already installed (current version is 5.3.0).
[NOTE] Package ocaml-base-compiler is already installed (current version is 5.3.0).
[NOTE] Package ocaml is already installed (current version is 5.3.0).
[NOTE] Package mingw-w64-shims is already installed (current version is 0.2.0).
[NOTE] Package host-system-mingw is already installed (current version is 1).
[NOTE] Package host-arch-x86_64 is already installed (current version is 1).
[NOTE] Package flexdll is already installed (current version is 0.44).
[NOTE] Package conf-mingw-w64-gcc-x86_64 is already installed (current version is 1).
[NOTE] Package base-unix is already installed (current version is base).
[NOTE] Package base-threads is already installed (current version is base).
[NOTE] Package base-nnp is already installed (current version is base).
[NOTE] Package base-effects is already installed (current version is base).
[NOTE] Package base-domains is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
[NOTE] Package arch-x86_64 is already installed (current version is 1).
The following actions will be performed:
=== install 105 packages
- install astring 0.8.5
- install base v0.17.2
- install base_bigstring v0.17.0
- install base_quickcheck v0.17.0
- install bigstringaf 0.10.0
- install bin_prot v0.17.0-1
- install camlp-streams 5.0.1
- install capitalization v0.17.0
- install cmdlang 0.0.9
- install cmdlang-to-cmdliner 0.0.9
- install cmdliner 1.3.0
- install conf-git 1.1
- install core v0.17.1
- install cppo 1.8.0
- install csexp 1.5.2
- install cstruct 6.2.0
- install domain-local-await 1.0.1
- install dune 3.19.0
- install dune-configurator 3.19.0
- install dyn 3.19.0
- install eio 1.2
- install eio_main 1.2
- install eio_windows 1.2
- install expect_test_helpers_core v0.17.0
- install fieldslib v0.17.0
- install fmt 0.10.0
- install fpath 0.7.3
- install fpath-base 0.3.1
- install fpath-sexp0 0.3.1
- install gel v0.17.0
- install hmap 0.8.1
- install int_repr v0.17.0
- install jane-street-headers v0.17.0
- install jst-config v0.17.0
- install loc 0.2.2
- install logs 0.8.0
- install lwt-dllist 1.1.0
- install mdx 2.5.0
- install mtime 2.1.0
- install num 1.5-1
- install ocaml-compiler-libs v0.17.0
- install ocaml-version 4.0.1
- install ocaml_intrinsics_kernel v0.17.1
- install ocamlbuild 0.16.1
- install ocamlfind 1.9.8
- install optint 0.3.0
- install ordering 3.19.0
- install parsexp v0.17.0
- install pp 2.0.0
- install pplumbing 0.0.14
- install ppx_assert v0.17.0
- install ppx_base v0.17.0
- install ppx_bench v0.17.0
- install ppx_bin_prot v0.17.0
- install ppx_cold v0.17.0
- install ppx_compare v0.17.0
- install ppx_custom_printf v0.17.0
- install ppx_derivers 1.2.1
- install ppx_diff v0.17.0
- install ppx_disable_unused_warnings v0.17.0
- install ppx_enumerate v0.17.0
- install ppx_expect v0.17.2
- install ppx_fields_conv v0.17.0
- install ppx_fixed_literal v0.17.0
- install ppx_globalize v0.17.0
- install ppx_hash v0.17.0
- install ppx_here v0.17.0
- install ppx_ignore_instrumentation v0.17.0
- install ppx_inline_test v0.17.0
- install ppx_jane v0.17.0
- install ppx_let v0.17.0
- install ppx_log v0.17.0
- install ppx_module_timer v0.17.0
- install ppx_optcomp v0.17.0
- install ppx_optional v0.17.0
- install ppx_pipebang v0.17.0
- install ppx_sexp_conv v0.17.0
- install ppx_sexp_message v0.17.0
- install ppx_sexp_value v0.17.0
- install ppx_stable v0.17.0
- install ppx_stable_witness v0.17.0
- install ppx_string v0.17.0
- install ppx_string_conv v0.17.0
- install ppx_tydi v0.17.0
- install ppx_typerep_conv v0.17.0
- install ppx_variants_conv v0.17.0
- install ppxlib 0.35.0
- install ppxlib_jane v0.17.2
- install psq 0.2.1
- install re 1.12.0
- install result 1.5
- install seq base
- install sexp_pretty v0.17.0
- install sexplib v0.17.0
- install sexplib0 v0.17.0
- install spawn v0.17.0
- install splittable_random v0.17.0
- install stdio v0.17.0
- install stdlib-shims 0.3.0
- install stdune 3.19.0
- install thread-table 1.0.0
- install time_now v0.17.0
- install topkg 1.0.8
- install typerep v0.17.1
- install variantslib v0.17.0
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved astring.0.8.5 (cached)
-> retrieved base_bigstring.v0.17.0 (cached)
-> retrieved bigstringaf.0.10.0 (cached)
-> retrieved base_quickcheck.v0.17.0 (cached)
-> retrieved base.v0.17.2 (cached)
-> retrieved camlp-streams.5.0.1 (cached)
-> retrieved capitalization.v0.17.0 (cached)
-> retrieved cmdliner.1.3.0 (cached)
-> retrieved bin_prot.v0.17.0-1 (cached)
-> retrieved core.v0.17.1 (cached)
-> retrieved cmdlang.0.0.9, cmdlang-to-cmdliner.0.0.9 (https://github.com/mbarbin/cmdlang/releases/download/0.0.9/cmdlang-0.0.9.tbz)
-> retrieved cppo.1.8.0 (cached)
-> retrieved csexp.1.5.2 (cached)
-> retrieved cstruct.6.2.0 (cached)
-> retrieved domain-local-await.1.0.1 (cached)
-> installed conf-git.1.1
-> retrieved expect_test_helpers_core.v0.17.0 (cached)
-> retrieved fieldslib.v0.17.0 (cached)
-> retrieved fmt.0.10.0 (cached)
-> retrieved eio.1.2, eio_main.1.2, eio_windows.1.2 (cached)
-> retrieved fpath.0.7.3 (cached)
-> retrieved gel.v0.17.0 (cached)
-> retrieved hmap.0.8.1 (cached)
-> retrieved int_repr.v0.17.0 (cached)
-> retrieved fpath-base.0.3.1, fpath-sexp0.0.3.1 (https://github.com/mbarbin/fpath-base/releases/download/0.3.1/fpath-base-0.3.1.tbz)
-> retrieved jane-street-headers.v0.17.0 (cached)
-> retrieved jst-config.v0.17.0 (cached)
-> retrieved logs.0.8.0 (cached)
-> retrieved loc.0.2.2 (https://github.com/mbarbin/loc/releases/download/0.2.2/loc-0.2.2.tbz)
-> retrieved lwt-dllist.1.1.0 (cached)
-> retrieved mtime.2.1.0 (cached)
-> retrieved num.1.5-1 (cached)
-> retrieved mdx.2.5.0 (cached)
-> retrieved ocaml-compiler-libs.v0.17.0 (cached)
-> retrieved ocaml_intrinsics_kernel.v0.17.1 (cached)
-> retrieved ocaml-version.4.0.1 (https://github.com/ocurrent/ocaml-version/releases/download/v4.0.1/ocaml-version-4.0.1.tbz)
-> retrieved ocamlfind.1.9.8 (cached)
-> retrieved ocamlbuild.0.16.1 (cached)
-> retrieved optint.0.3.0 (cached)
-> retrieved parsexp.v0.17.0 (cached)
-> retrieved pp.2.0.0 (cached)
-> retrieved ppx_assert.v0.17.0 (cached)
-> retrieved dune.3.19.0, dune-configurator.3.19.0, dyn.3.19.0, ordering.3.19.0, stdune.3.19.0 (cached)
-> retrieved pplumbing.0.0.14 (https://github.com/mbarbin/pplumbing/releases/download/0.0.14/pplumbing-0.0.14.tbz)
-> retrieved ppx_base.v0.17.0 (cached)
-> retrieved ppx_bench.v0.17.0 (cached)
-> retrieved ppx_bin_prot.v0.17.0 (cached)
-> retrieved ppx_cold.v0.17.0 (cached)
-> retrieved ppx_compare.v0.17.0 (cached)
-> retrieved ppx_custom_printf.v0.17.0 (cached)
-> retrieved ppx_derivers.1.2.1 (cached)
-> retrieved ppx_diff.v0.17.0 (cached)
-> retrieved ppx_disable_unused_warnings.v0.17.0 (cached)
-> retrieved ppx_enumerate.v0.17.0 (cached)
-> retrieved ppx_fields_conv.v0.17.0 (cached)
-> retrieved ppx_expect.v0.17.2 (cached)
-> retrieved ppx_fixed_literal.v0.17.0 (cached)
-> retrieved ppx_globalize.v0.17.0 (cached)
-> retrieved ppx_hash.v0.17.0 (cached)
-> retrieved ppx_here.v0.17.0 (cached)
-> retrieved ppx_ignore_instrumentation.v0.17.0 (cached)
-> retrieved ppx_inline_test.v0.17.0 (cached)
-> retrieved ppx_jane.v0.17.0 (cached)
-> retrieved ppx_let.v0.17.0 (cached)
-> retrieved ppx_log.v0.17.0 (cached)
-> retrieved ppx_module_timer.v0.17.0 (cached)
-> retrieved ppx_optcomp.v0.17.0 (cached)
-> retrieved ppx_optional.v0.17.0 (cached)
-> retrieved ppx_pipebang.v0.17.0 (cached)
-> retrieved ppx_sexp_conv.v0.17.0 (cached)
-> retrieved ppx_sexp_message.v0.17.0 (cached)
-> retrieved ppx_sexp_value.v0.17.0 (cached)
-> retrieved ppx_stable.v0.17.0 (cached)
-> retrieved ppx_stable_witness.v0.17.0 (cached)
-> retrieved ppx_string.v0.17.0 (cached)
-> retrieved ppx_string_conv.v0.17.0 (cached)
-> retrieved ppx_tydi.v0.17.0 (cached)
-> retrieved ppx_typerep_conv.v0.17.0 (cached)
-> retrieved ppx_variants_conv.v0.17.0 (cached)
-> retrieved ppxlib_jane.v0.17.2 (cached)
-> retrieved psq.0.2.1 (cached)
-> retrieved re.1.12.0 (cached)
-> retrieved seq.base (cached)
-> retrieved ppxlib.0.35.0 (cached)
-> retrieved result.1.5 (cached)
-> retrieved sexp_pretty.v0.17.0 (cached)
-> retrieved sexplib.v0.17.0 (cached)
-> retrieved sexplib0.v0.17.0 (cached)
-> retrieved spawn.v0.17.0 (cached)
-> retrieved splittable_random.v0.17.0 (cached)
-> retrieved stdio.v0.17.0 (cached)
-> retrieved stdlib-shims.0.3.0 (cached)
-> retrieved thread-table.1.0.0 (cached)
-> retrieved time_now.v0.17.0 (cached)
-> retrieved topkg.1.0.8 (cached)
-> retrieved typerep.v0.17.1 (cached)
-> retrieved variantslib.v0.17.0 (cached)
-> installed cmdliner.1.3.0
-> installed num.1.5-1
-> installed seq.base
[WARNING] .install file is missing .exe extension for src/findlib/ocamlfind
[WARNING] .install file is missing .exe extension for src/findlib/ocamlfind_opt
[WARNING] Automatically adding .exe to C:\Users\opam\AppData\Local\opam\5.3.0\.opam-switch\build\ocamlfind.1.9.8\src\findlib\ocamlfind.exe
[WARNING] Automatically adding .exe to C:\Users\opam\AppData\Local\opam\5.3.0\.opam-switch\build\ocamlfind.1.9.8\src\findlib\ocamlfind_opt.exe
[WARNING] C:\Users\opam\AppData\Local\opam\5.3.0\bin\safe_camlp4 is a script; the command won't be available
-> installed ocamlfind.1.9.8
-> installed ocamlbuild.0.16.1
-> installed topkg.1.0.8
-> installed hmap.0.8.1
-> installed astring.0.8.5
-> installed fmt.0.10.0
-> installed mtime.2.1.0
-> installed fpath.0.7.3
-> installed logs.0.8.0
-> installed dune.3.19.0
-> installed lwt-dllist.1.1.0
-> installed cmdlang.0.0.9
-> installed camlp-streams.5.0.1
-> installed csexp.1.5.2
-> installed cstruct.6.2.0
-> installed cmdlang-to-cmdliner.0.0.9
-> installed cppo.1.8.0
-> installed jane-street-headers.v0.17.0
-> installed ocaml-compiler-libs.v0.17.0
-> installed ocaml-version.4.0.1
-> installed ocaml_intrinsics_kernel.v0.17.1
-> installed optint.0.3.0
-> installed pp.2.0.0
-> installed ppx_derivers.1.2.1
-> installed psq.0.2.1
-> installed result.1.5
-> installed stdlib-shims.0.3.0
-> installed ordering.3.19.0
-> installed dune-configurator.3.19.0
-> installed re.1.12.0
-> installed sexplib0.v0.17.0
-> installed spawn.v0.17.0
-> installed thread-table.1.0.0
-> installed bigstringaf.0.10.0
-> installed dyn.3.19.0
-> installed domain-local-await.1.0.1
-> installed fpath-sexp0.0.3.1
-> installed mdx.2.5.0
-> installed parsexp.v0.17.0
-> installed base.v0.17.2
-> installed sexplib.v0.17.0
-> installed fieldslib.v0.17.0
-> installed fpath-base.0.3.1
-> installed stdio.v0.17.0
-> installed eio.1.2
-> installed ppxlib.0.35.0
-> installed typerep.v0.17.1
-> installed variantslib.v0.17.0
-> installed stdune.3.19.0
-> installed eio_windows.1.2
-> installed ppx_disable_unused_warnings.v0.17.0
-> installed ppx_cold.v0.17.0
-> installed ppx_here.v0.17.0
-> installed loc.0.2.2
-> installed ppx_ignore_instrumentation.v0.17.0
-> installed eio_main.1.2
-> installed ppx_fields_conv.v0.17.0
-> installed ppx_fixed_literal.v0.17.0
-> installed ppx_optcomp.v0.17.0
-> installed pplumbing.0.0.14
-> installed ppx_tydi.v0.17.0
-> installed ppx_pipebang.v0.17.0
-> installed ppx_let.v0.17.0
-> installed ppx_stable_witness.v0.17.0
-> installed ppx_typerep_conv.v0.17.0
-> installed ppx_variants_conv.v0.17.0
-> installed ppx_stable.v0.17.0
-> installed ppxlib_jane.v0.17.2
-> installed ppx_globalize.v0.17.0
-> installed ppx_enumerate.v0.17.0
-> installed ppx_compare.v0.17.0
-> installed ppx_optional.v0.17.0
-> installed ppx_sexp_conv.v0.17.0
-> installed ppx_hash.v0.17.0
-> installed ppx_assert.v0.17.0
-> installed ppx_sexp_value.v0.17.0
-> installed ppx_custom_printf.v0.17.0
-> installed ppx_sexp_message.v0.17.0
-> installed ppx_base.v0.17.0
-> installed capitalization.v0.17.0
-> installed jst-config.v0.17.0
-> installed sexp_pretty.v0.17.0
-> installed ppx_string.v0.17.0
-> installed bin_prot.v0.17.0-1
-> installed time_now.v0.17.0
-> installed ppx_string_conv.v0.17.0
-> installed ppx_bin_prot.v0.17.0
-> installed ppx_module_timer.v0.17.0
-> installed ppx_inline_test.v0.17.0
-> installed ppx_bench.v0.17.0
-> installed ppx_expect.v0.17.2
-> installed splittable_random.v0.17.0
-> installed ppx_log.v0.17.0
-> installed base_quickcheck.v0.17.0
-> installed ppx_jane.v0.17.0
-> installed gel.v0.17.0
-> installed int_repr.v0.17.0
-> installed base_bigstring.v0.17.0
-> installed ppx_diff.v0.17.0
-> installed core.v0.17.1
-> installed expect_test_helpers_core.v0.17.0
Done.
# To update the current shell environment, run: eval $(opam env)
2025-06-10 21:00.56 ---> using "945b980f2a65abecacb752d44fd1e4e9ade6d3839bb14454cc495e59d2c3de95" from cache
/: (copy (src .) (dst /Users/opam/src))
2025-06-10 21:00.57 ---> using "011e6bab6a3ded7ca650df233c52b7b7101c3a8812587574df63ba5a93a1ab15" from cache
/: (run (shell "cd /cygdrive/c/Users/opam/src && opam exec -- dune build @install @check @runtest && rm -rf _build"))
File "lib/volgo_git_backend/test/test__refs.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__refs.ml _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__refs.ml.corrected
diff --git a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__refs.ml b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__refs.ml.corrected
index 7d3881c..b785aa8 100644
--- a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__refs.ml
+++ b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__refs.ml.corrected
@@ -40,17 +40,39 @@ let%expect_test "parse_exn" =
; local_branches = (Vcs.Refs.local_branches refs : Vcs.Branch_name.t list)
; remote_branches = (Vcs.Refs.remote_branches refs : Vcs.Remote_branch_name.t list)
}];
- [%expect
- {|
- ((tags (0.0.1 0.0.2 0.0.3 0.0.3-preview.1))
- (local_branches (gh-pages main subrepo))
- (remote_branches (
- ((remote_name origin) (branch_name 0.0.3-preview))
- ((remote_name origin) (branch_name gh-pages))
- ((remote_name origin) (branch_name main))
- ((remote_name origin) (branch_name progress-bar))
- ((remote_name origin) (branch_name progress-bar.2))))) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_git_backend_test__Test__refs.(fun) in file "lib/volgo_git_backend/test/test__refs.ml", line 34, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
let%expect_test "parse_ref_kind_exn" =
File "lib/volgo_git_backend/test/test__name_status.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__name_status.ml _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__name_status.ml.corrected
diff --git a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__name_status.ml b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__name_status.ml.corrected
index 766cb02..b0d7504 100644
--- a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__name_status.ml
+++ b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__name_status.ml.corrected
@@ -36,134 +36,41 @@ let%expect_test "parse_exn" =
let lines = String.split_lines contents in
let name_status = Volgo_git_backend.Name_status.parse_lines_exn ~lines in
print_s [%sexp (name_status : Vcs.Name_status.t)];
- [%expect
- {|
- ((Modified .github/workflows/ci.yml)
- (Removed .github/workflows/deploy-odoc.yml)
- (Modified .vscode/settings.json)
- (Removed CHANGELOG.md)
- (Added CHANGES.md)
- (Removed CODE_OF_CONDUCT.md)
- (Modified Makefile)
- (Modified README.md)
- (Modified bin/dune)
- (Modified bin/main.ml)
- (Modified dune-project)
- (Modified lib/super_master_mind/src/code.ml)
- (Modified lib/super_master_mind/src/code.mli)
- (Modified lib/super_master_mind/src/codes.ml)
- (Modified lib/super_master_mind/src/codes.mli)
- (Modified lib/super_master_mind/src/color.ml)
- (Modified lib/super_master_mind/src/color.mli)
- (Modified lib/super_master_mind/src/color_permutation.ml)
- (Modified lib/super_master_mind/src/color_permutation.mli)
- (Modified lib/super_master_mind/src/cue.ml)
- (Modified lib/super_master_mind/src/cue.mli)
- (Modified lib/super_master_mind/src/dune)
- (Modified lib/super_master_mind/src/example.ml)
- (Modified lib/super_master_mind/src/example.mli)
- (Modified lib/super_master_mind/src/game_dimensions.ml)
- (Modified lib/super_master_mind/src/game_dimensions.mli)
- (Modified lib/super_master_mind/src/guess.ml)
- (Modified lib/super_master_mind/src/guess.mli)
- (Added lib/super_master_mind/src/import/dune)
- (Renamed
- (src lib/super_master_mind/src/import.ml)
- (dst lib/super_master_mind/src/import/super_master_mind_import.ml)
- (similarity 86))
- (Renamed
- (src lib/super_master_mind/src/import.mli)
- (dst lib/super_master_mind/src/import/super_master_mind_import.mli)
- (similarity 95))
- (Modified lib/super_master_mind/src/kheap.ml)
- (Modified lib/super_master_mind/src/kheap.mli)
- (Modified lib/super_master_mind/src/maker.ml)
- (Modified lib/super_master_mind/src/maker.mli)
- (Modified lib/super_master_mind/src/opening_book.ml)
- (Modified lib/super_master_mind/src/opening_book.mli)
- (Modified lib/super_master_mind/src/solver.ml)
- (Modified lib/super_master_mind/src/solver.mli)
- (Modified lib/super_master_mind/src/super_master_mind.ml)
- (Modified lib/super_master_mind/src/super_master_mind.mli)
- (Modified lib/super_master_mind/src/task_pool.ml)
- (Modified lib/super_master_mind/src/task_pool.mli)
- (Modified lib/super_master_mind/test/dune)
- (Modified lib/super_master_mind/test/test__code.ml)
- (Modified lib/super_master_mind/test/test__codes.ml)
- (Modified lib/super_master_mind/test/test__color.ml)
- (Modified lib/super_master_mind/test/test__color_permutation.ml)
- (Modified lib/super_master_mind/test/test__cue.ml)
- (Modified lib/super_master_mind/test/test__example.ml)
- (Modified lib/super_master_mind/test/test__game_dimensions.ml)
- (Modified lib/super_master_mind/test/test__guess.ml)
- (Modified lib/super_master_mind/test/test__kheap.ml)
- (Modified lib/super_master_mind/test/test__mins.ml)
- (Modified lib/super_master_mind/test/test__opening_book.ml)
- (Modified super-master-mind.opam)
- (Modified test/maker.t)) |}];
+ [%expect.unreachable];
print_s [%sexp (Vcs.Name_status.files name_status : Vcs.Path_in_repo.t list)];
- [%expect
- {|
- (.github/workflows/ci.yml
- .github/workflows/deploy-odoc.yml
- .vscode/settings.json
- CHANGELOG.md
- CHANGES.md
- CODE_OF_CONDUCT.md
- Makefile
- README.md
- bin/dune
- bin/main.ml
- dune-project
- lib/super_master_mind/src/code.ml
- lib/super_master_mind/src/code.mli
- lib/super_master_mind/src/codes.ml
- lib/super_master_mind/src/codes.mli
- lib/super_master_mind/src/color.ml
- lib/super_master_mind/src/color.mli
- lib/super_master_mind/src/color_permutation.ml
- lib/super_master_mind/src/color_permutation.mli
- lib/super_master_mind/src/cue.ml
- lib/super_master_mind/src/cue.mli
- lib/super_master_mind/src/dune
- lib/super_master_mind/src/example.ml
- lib/super_master_mind/src/example.mli
- lib/super_master_mind/src/game_dimensions.ml
- lib/super_master_mind/src/game_dimensions.mli
- lib/super_master_mind/src/guess.ml
- lib/super_master_mind/src/guess.mli
- lib/super_master_mind/src/import.ml
- lib/super_master_mind/src/import.mli
- lib/super_master_mind/src/import/dune
- lib/super_master_mind/src/import/super_master_mind_import.ml
- lib/super_master_mind/src/import/super_master_mind_import.mli
- lib/super_master_mind/src/kheap.ml
- lib/super_master_mind/src/kheap.mli
- lib/super_master_mind/src/maker.ml
- lib/super_master_mind/src/maker.mli
- lib/super_master_mind/src/opening_book.ml
- lib/super_master_mind/src/opening_book.mli
- lib/super_master_mind/src/solver.ml
- lib/super_master_mind/src/solver.mli
- lib/super_master_mind/src/super_master_mind.ml
- lib/super_master_mind/src/super_master_mind.mli
- lib/super_master_mind/src/task_pool.ml
- lib/super_master_mind/src/task_pool.mli
- lib/super_master_mind/test/dune
- lib/super_master_mind/test/test__code.ml
- lib/super_master_mind/test/test__codes.ml
- lib/super_master_mind/test/test__color.ml
- lib/super_master_mind/test/test__color_permutation.ml
- lib/super_master_mind/test/test__cue.ml
- lib/super_master_mind/test/test__example.ml
- lib/super_master_mind/test/test__game_dimensions.ml
- lib/super_master_mind/test/test__guess.ml
- lib/super_master_mind/test/test__kheap.ml
- lib/super_master_mind/test/test__mins.ml
- lib/super_master_mind/test/test__opening_book.ml
- super-master-mind.opam
- test/maker.t) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_git_backend_test__Test__name_status.(fun) in file "lib/volgo_git_backend/test/test__name_status.ml", line 35, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
let%expect_test "Diff_status" =
File "lib/volgo_git_backend/test/test__num_status.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__num_status.ml _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__num_status.ml.corrected
diff --git a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__num_status.ml b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__num_status.ml.corrected
index 24ba5d7..56c5f8d 100644
--- a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__num_status.ml
+++ b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__num_status.ml.corrected
@@ -29,300 +29,39 @@ let%expect_test "parse_exn - super-master-mind" =
let lines = String.split_lines contents in
let num_status = Volgo_git_backend.Num_status.parse_lines_exn ~lines in
print_s [%sexp (num_status : Vcs.Num_status.t)];
- [%expect
- {|
- (((key (One_file .github/workflows/ci.yml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 3)
- (deletions 2)))))
- ((key (One_file .github/workflows/deploy-odoc.yml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 28)))))
- ((key (One_file .vscode/settings.json))
- (num_stat (
- Num_lines_in_diff (
- (insertions 2)
- (deletions 0)))))
- ((key (One_file CHANGELOG.md))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 28)))))
- ((key (One_file CHANGES.md))
- (num_stat (
- Num_lines_in_diff (
- (insertions 54)
- (deletions 0)))))
- ((key (One_file CODE_OF_CONDUCT.md))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 128)))))
- ((key (One_file Makefile))
- (num_stat (
- Num_lines_in_diff (
- (insertions 4)
- (deletions 1)))))
- ((key (One_file README.md))
- (num_stat (
- Num_lines_in_diff (
- (insertions 63)
- (deletions 59)))))
- ((key (One_file bin/dune))
- (num_stat (
- Num_lines_in_diff (
- (insertions 2)
- (deletions 2)))))
- ((key (One_file bin/main.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 1)))))
- ((key (One_file dune-project))
- (num_stat (
- Num_lines_in_diff (
- (insertions 72)
- (deletions 3)))))
- ((key (One_file lib/super_master_mind/src/code.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 11)
- (deletions 7)))))
- ((key (One_file lib/super_master_mind/src/code.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/codes.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 3)))))
- ((key (One_file lib/super_master_mind/src/codes.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/color.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 15)
- (deletions 6)))))
- ((key (One_file lib/super_master_mind/src/color.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/color_permutation.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 4)
- (deletions 5)))))
- ((key (One_file lib/super_master_mind/src/color_permutation.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/cue.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 4)
- (deletions 6)))))
- ((key (One_file lib/super_master_mind/src/cue.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/dune))
- (num_stat (
- Num_lines_in_diff (
- (insertions 18)
- (deletions 6)))))
- ((key (One_file lib/super_master_mind/src/example.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 5)))))
- ((key (One_file lib/super_master_mind/src/example.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/game_dimensions.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 11)
- (deletions 5)))))
- ((key (One_file lib/super_master_mind/src/game_dimensions.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 3)))))
- ((key (One_file lib/super_master_mind/src/guess.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 73)
- (deletions 44)))))
- ((key (One_file lib/super_master_mind/src/guess.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 25)
- (deletions 5)))))
- ((key (One_file lib/super_master_mind/src/import/dune))
- (num_stat (
- Num_lines_in_diff (
- (insertions 9)
- (deletions 0)))))
- ((key (
- Two_files
- (src lib/super_master_mind/src/import.ml)
- (dst lib/super_master_mind/src/import/super_master_mind_import.ml)))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (
- Two_files
- (src lib/super_master_mind/src/import.mli)
- (dst lib/super_master_mind/src/import/super_master_mind_import.mli)))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/kheap.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 3)))))
- ((key (One_file lib/super_master_mind/src/kheap.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/maker.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 3)
- (deletions 6)))))
- ((key (One_file lib/super_master_mind/src/maker.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/opening_book.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 48)
- (deletions 22)))))
- ((key (One_file lib/super_master_mind/src/opening_book.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/solver.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 4)))))
- ((key (One_file lib/super_master_mind/src/solver.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/super_master_mind.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/super_master_mind.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 1)))))
- ((key (One_file lib/super_master_mind/src/task_pool.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/src/task_pool.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib/super_master_mind/test/dune))
- (num_stat (
- Num_lines_in_diff (
- (insertions 18)
- (deletions 3)))))
- ((key (One_file lib/super_master_mind/test/test__code.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 85)
- (deletions 33)))))
- ((key (One_file lib/super_master_mind/test/test__codes.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 92)
- (deletions 31)))))
- ((key (One_file lib/super_master_mind/test/test__color.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 7)
- (deletions 7)))))
- ((key (One_file lib/super_master_mind/test/test__color_permutation.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 5)
- (deletions 11)))))
- ((key (One_file lib/super_master_mind/test/test__cue.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 50)
- (deletions 34)))))
- ((key (One_file lib/super_master_mind/test/test__example.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 3)))))
- ((key (One_file lib/super_master_mind/test/test__game_dimensions.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 9)
- (deletions 11)))))
- ((key (One_file lib/super_master_mind/test/test__guess.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 678)
- (deletions 278)))))
- ((key (One_file lib/super_master_mind/test/test__kheap.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 4)))))
- ((key (One_file lib/super_master_mind/test/test__mins.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 108)
- (deletions 64)))))
- ((key (One_file lib/super_master_mind/test/test__opening_book.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 9)
- (deletions 11)))))
- ((key (One_file super-master-mind.opam))
- (num_stat (
- Num_lines_in_diff (
- (insertions 32)
- (deletions 22)))))
- ((key (One_file test/maker.t))
- (num_stat (
- Num_lines_in_diff (
- (insertions 4)
- (deletions 5)))))) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_git_backend_test__Test__num_status.(fun) in file "lib/volgo_git_backend/test/test__num_status.ml", line 28, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
let%expect_test "parse_exn - eio" =
@@ -333,125 +72,39 @@ let%expect_test "parse_exn - eio" =
let lines = String.split_lines contents in
let num_status = Volgo_git_backend.Num_status.parse_lines_exn ~lines in
print_s [%sexp (num_status : Vcs.Num_status.t)];
- [%expect
- {|
- (((key (One_file CHANGES.md))
- (num_stat (
- Num_lines_in_diff (
- (insertions 31)
- (deletions 0)))))
- ((key (One_file README.md))
- (num_stat (
- Num_lines_in_diff (
- (insertions 106)
- (deletions 20)))))
- ((key (One_file bench/main.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 13)
- (deletions 0)))))
- ((key (One_file doc/multicore.md))
- (num_stat (
- Num_lines_in_diff (
- (insertions 32)
- (deletions 9)))))
- ((key (One_file doc/traces/Makefile))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 1)))))
- ((key (One_file doc/traces/multicore-posix.fxt)) (num_stat Binary_file))
- ((key (One_file doc/traces/multicore-posix.svg))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1490)
- (deletions 0)))))
- ((key (One_file dune-project))
- (num_stat (
- Num_lines_in_diff (
- (insertions 5)
- (deletions 5)))))
- ((key (One_file eio.opam))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 1)))))
- ((key (One_file eio_linux.opam))
- (num_stat (
- Num_lines_in_diff (
- (insertions 2)
- (deletions 2)))))
- ((key (One_file eio_main.opam))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 1)))))
- ((key (One_file eio_posix.opam))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 1)))))
- ((key (One_file lib_eio/pool.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 29)
- (deletions 9)))))
- ((key (One_file lib_eio/pool.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 8)
- (deletions 2)))))
- ((key (One_file lib_eio_linux/dune))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 1)))))
- ((key (One_file lib_eio_linux/eio_linux.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 10)
- (deletions 10)))))
- ((key (One_file lib_eio_linux/eio_linux.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 204)))))
- ((key (One_file lib_eio_linux/log.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 0)
- (deletions 2)))))
- ((key (One_file lib_eio_linux/low_level.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 8)
- (deletions 13)))))
- ((key (One_file lib_eio_linux/low_level.mli))
- (num_stat (
- Num_lines_in_diff (
- (insertions 242)
- (deletions 0)))))
- ((key (One_file lib_eio_linux/sched.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 7)
- (deletions 11)))))
- ((key (One_file lib_eio_linux/tests/dune))
- (num_stat (
- Num_lines_in_diff (
- (insertions 2)
- (deletions 2)))))
- ((key (One_file lib_eio_linux/tests/test.ml))
- (num_stat (
- Num_lines_in_diff (
- (insertions 5)
- (deletions 5)))))
- ((key (One_file tests/pool.md))
- (num_stat (
- Num_lines_in_diff (
- (insertions 31)
- (deletions 0)))))) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_git_backend_test__Test__num_status.(fun) in file "lib/volgo_git_backend/test/test__num_status.ml", line 332, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
let%expect_test "parse_lines_exn" =
@@ -522,8 +175,8 @@ let%expect_test "parse_lines_exn" =
Ok (
(key (
Two_files
- (src tmp/dir1/file)
- (dst tmp/dir2/file)))
+ (src "tmp\\dir1\\file")
+ (dst "tmp\\dir2\\file")))
(num_stat (
Num_lines_in_diff (
(insertions 100)
@@ -554,7 +207,7 @@ let%expect_test "parse_lines_exn" =
(Volgo_git_backend.Num_status.parse_line_exn
((line "1985\t0\tfile1 => /tmp/file2")))
(Volgo_git_backend.Munged_path.parse_exn ((path "file1 => /tmp/file2"))))
- (error (Invalid_argument "\"/tmp/file2\": not a relative path")))))
+ (error (Invalid_argument "\"\\\\tmp\\\\file2\": not a relative path")))))
|}];
()
;;
File "lib/volgo_git_backend/test/test__munged_path.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__munged_path.ml _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__munged_path.ml.corrected
diff --git a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__munged_path.ml b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__munged_path.ml.corrected
index 4fa67f7..fd110b9 100644
--- a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__munged_path.ml
+++ b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__munged_path.ml.corrected
@@ -33,7 +33,7 @@ let%expect_test "parse" =
[%expect
{|
((context (Volgo_git_backend.Munged_path.parse_exn ((path "/tmp => /tmp"))))
- (error (Invalid_argument "\"/tmp\": not a relative path")))
+ (error (Invalid_argument "\"\\\\tmp\": not a relative path")))
|}];
require_does_raise [%here] (fun () -> test "tmp => tmp2 => tmp3");
[%expect
@@ -67,18 +67,20 @@ let%expect_test "parse" =
(error "Matching '{' not found."))
|}];
test "a/simple/path";
- [%expect {| (One_file a/simple/path) |}];
+ [%expect {| (One_file "a\\simple\\path") |}];
test "a/simple/path => another/path";
[%expect
{|
(Two_files
- (src a/simple/path)
- (dst another/path)) |}];
+ (src "a\\simple\\path")
+ (dst "another\\path"))
+ |}];
test "a/{simple => not/so/simple}/path";
[%expect
{|
(Two_files
- (src a/simple/path)
- (dst a/not/so/simple/path)) |}];
+ (src "a\\simple\\path")
+ (dst "a\\not\\so\\simple\\path"))
+ |}];
()
;;
File "lib/volgo_git_backend/test/test__log.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__log.ml _build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__log.ml.corrected
diff --git a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__log.ml b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__log.ml.corrected
index bcea7fd..adc7615 100644
--- a/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__log.ml
+++ b/_build/.sandbox/fa2af61dde1d5bcb8af257b0d1bb9196/default/lib/volgo_git_backend/test/test__log.ml.corrected
@@ -38,18 +38,46 @@ let%expect_test "parse_exn" =
in
let roots = Vcs.Log.roots log in
print_s [%sexp (roots : Vcs.Rev.t list)];
- [%expect
- {|
- (35760b109070be51b9deb61c8fdc79c0b2d9065d
- da46f0d60bfbb9dc9340e95f5625c10815c24af7) |}];
+ [%expect.unreachable];
let merge_count =
List.count log ~f:(function
| Merge _ -> true
| Root _ | Commit _ -> false)
in
print_s [%sexp { merge_count : int }];
- [%expect {| ((merge_count 2)) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_git_backend_test__Test__log.(fun) in file "lib/volgo_git_backend/test/test__log.ml", line 34, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
let%expect_test "invalid lines" =
File "lib/vcs_test_helpers/test/test__vcs_test_helpers.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/8a37ad2e890a2c31f67a730026c558a1/default/lib/vcs_test_helpers/test/test__vcs_test_helpers.ml _build/.sandbox/8a37ad2e890a2c31f67a730026c558a1/default/lib/vcs_test_helpers/test/test__vcs_test_helpers.ml.corrected
diff --git a/_build/.sandbox/8a37ad2e890a2c31f67a730026c558a1/default/lib/vcs_test_helpers/test/test__vcs_test_helpers.ml b/_build/.sandbox/8a37ad2e890a2c31f67a730026c558a1/default/lib/vcs_test_helpers/test/test__vcs_test_helpers.ml.corrected
index 6f41e05..1a5e857 100644
--- a/_build/.sandbox/8a37ad2e890a2c31f67a730026c558a1/default/lib/vcs_test_helpers/test/test__vcs_test_helpers.ml
+++ b/_build/.sandbox/8a37ad2e890a2c31f67a730026c558a1/default/lib/vcs_test_helpers/test/test__vcs_test_helpers.ml.corrected
@@ -53,13 +53,36 @@ let%expect_test "init_temp_repo" =
~f:(fun { exit_code; stdout; stderr = _ } ->
print_endline (Printf.sprintf "exit code: %d" exit_code);
print_endline (Printf.sprintf "stdout:\n%s%s" stdout (String.make 15 '-')));
- [%expect
- {|
- exit code: 0
- stdout:
- Hello World!
- --------------- |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_test_helpers_test__Test__vcs_test_helpers.(fun) in file "lib/vcs_test_helpers/test/test__vcs_test_helpers.ml", line 27, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}];;
let%expect_test "redact_sexp" =
@@ -73,45 +96,12 @@ let%expect_test "redact_sexp" =
| exception Err.E err -> [%sexp (err : Err.t)]
in
print_s (Vcs_test_helpers.redact_sexp error ~fields:[ "error" ]);
- [%expect
- {|
- ((context
- (Vcs.init ((path /invalid/path)))
- ((prog git)
- (args (init .))
- (exit_status Unknown)
- (cwd /invalid/path)
- (stdout "")
- (stderr "")))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
print_s (Vcs_test_helpers.redact_sexp error ~fields:[ "error"; "context/cwd" ]);
- [%expect
- {|
- ((context
- (Vcs.init ((path /invalid/path)))
- ((prog git)
- (args (init .))
- (exit_status Unknown)
- (cwd <REDACTED>)
- (stdout "")
- (stderr "")))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
print_s
(Vcs_test_helpers.redact_sexp error ~fields:[ "error"; "context/stderr"; "cwd" ]);
- [%expect
- {|
- ((context
- (Vcs.init ((path /invalid/path)))
- ((prog git)
- (args (init .))
- (exit_status Unknown)
- (cwd <REDACTED>)
- (stdout "")
- (stderr <REDACTED>)))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
(* Adding corner cases, such as empty nested fields. *)
let sexp =
Sexp.(
@@ -122,15 +112,33 @@ let%expect_test "redact_sexp" =
])
in
print_s (Vcs_test_helpers.redact_sexp sexp ~fields:[]);
- [%expect {| (("" empty) ("" ("" empty)) (error error)) |}];
+ [%expect.unreachable];
print_s (Vcs_test_helpers.redact_sexp sexp ~fields:[ "" ]);
- [%expect
- {|
- (("" <REDACTED>)
- ("" <REDACTED>)
- (error error))
- |}];
+ [%expect.unreachable];
print_s (Vcs_test_helpers.redact_sexp sexp ~fields:[ "/" ]);
- [%expect {| (("" empty) ("" ("" <REDACTED>)) (error error)) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_test_helpers_test__Test__vcs_test_helpers.(fun) in file "lib/vcs_test_helpers/test/test__vcs_test_helpers.ml", line 68, characters 12-37
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_git_eio/test/test__hello_commit.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__hello_commit.ml _build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__hello_commit.ml.corrected
diff --git a/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__hello_commit.ml b/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__hello_commit.ml.corrected
index 7e90cec..e3ac525 100644
--- a/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__hello_commit.ml
+++ b/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__hello_commit.ml.corrected
@@ -41,7 +41,7 @@ let%expect_test "hello commit" =
in
let mock_rev = Vcs.Mock_revs.to_mock mock_revs ~rev in
print_s [%sexp (mock_rev : Vcs.Rev.t)];
- [%expect {| 1185512b92d612b25613f2e5b473e5231185512b |}];
+ [%expect.unreachable];
print_s
[%sexp
(Vcs.Result.show_file_at_rev
@@ -50,11 +50,39 @@ let%expect_test "hello commit" =
~rev:(Vcs.Mock_revs.of_mock mock_revs ~mock_rev |> Option.value_exn ~here:[%here])
~path:hello_file
: [ `Present of Vcs.File_contents.t | `Absent ] Vcs.Result.t)];
- [%expect {| (Ok (Present "Hello World!")) |}];
+ [%expect.unreachable];
print_s
[%sexp
(Vcs.Result.show_file_at_rev vcs ~repo_root ~rev ~path:hello_file
: [ `Present of Vcs.File_contents.t | `Absent ] Vcs.Result.t)];
- [%expect {| (Ok (Present "Hello World!")) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Volgo_git_eio_test__Test__hello_commit.(fun) in file "lib/volgo_git_eio/test/test__hello_commit.ml", line 30, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_git_eio/test/test__file_system.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__file_system.ml _build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__file_system.ml.corrected
diff --git a/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__file_system.ml b/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__file_system.ml.corrected
index 47526d4..436213d 100644
--- a/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__file_system.ml
+++ b/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__file_system.ml.corrected
@@ -35,15 +35,15 @@ let%expect_test "read_dir" =
~file_contents:(Vcs.File_contents.create file_contents)
in
read_dir dir;
- [%expect {| (.git) |}];
+ [%expect.unreachable];
save_file "hello.txt" "Hello World!\n";
- [%expect {||}];
+ [%expect.unreachable];
read_dir dir;
- [%expect {| (.git hello.txt) |}];
+ [%expect.unreachable];
save_file "foo" "Hello Foo!\n";
- [%expect {||}];
+ [%expect.unreachable];
read_dir dir;
- [%expect {| (.git foo hello.txt) |}];
+ [%expect.unreachable];
(* Below we redact the actual temporary directory because they make the tests
non stable. We redact the error because it either contains the path too, or
shows very specific Eio messages which may make the test brittle. *)
@@ -55,7 +55,7 @@ let%expect_test "read_dir" =
print_s
(Vcs_test_helpers.redact_sexp (Err.sexp_of_t err) ~fields:[ "dir"; "error" ])
in
- [%expect {| ((context (Vcs.read_dir ((dir <REDACTED>)))) (error <REDACTED>)) |}];
+ [%expect.unreachable];
let () =
(* [Vcs.read_dir] errors out when called on an existing file rather than a
directory. *)
@@ -63,13 +63,41 @@ let%expect_test "read_dir" =
let file_exists = Stdlib.Sys.file_exists (Absolute_path.to_string path) in
assert file_exists;
print_s [%sexp { file_exists : bool }];
- [%expect {| ((file_exists true)) |}];
+ [%expect.unreachable];
match Vcs.read_dir vcs ~dir:path with
| (_ : Fsegment.t list) -> assert false
| exception Err.E err ->
print_s
(Vcs_test_helpers.redact_sexp (Err.sexp_of_t err) ~fields:[ "dir"; "error" ])
in
- [%expect {| ((context (Vcs.read_dir ((dir <REDACTED>)))) (error <REDACTED>)) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Volgo_git_eio_test__Test__file_system.(fun) in file "lib/volgo_git_eio/test/test__file_system.ml", line 27, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_git_eio/test/test__init.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__init.ml _build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__init.ml.corrected
diff --git a/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__init.ml b/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__init.ml.corrected
index c526e7d..ee33ed5 100644
--- a/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__init.ml
+++ b/_build/.sandbox/35cb7b9bbb4e887bc69c1db84103f84b/default/lib/volgo_git_eio/test/test__init.ml.corrected
@@ -36,6 +36,34 @@ let%expect_test "init" =
(module Absolute_path)
(Absolute_path.v path)
(Vcs.Repo_root.to_absolute_path repo_root);
- [%expect {||}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Volgo_git_eio_test__Test__init.(fun) in file "lib/volgo_git_eio/test/test__init.ml", line 27, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "test/mdx/dune", lines 1-6, characters 0-100:
1 | (mdx
2 | (package volgo-dev)
3 | (deps
4 | (package volgo)
5 | (package volgo-tests))
6 | (preludes prelude.txt))
(cd _build/default/test/mdx && .\mdx_gen.bc.exe process_output.md) > _build/default/test/mdx/.mdx/process_output.md.corrected
Got an error while evaluating:
---
#require "volgo";;
open Volgo
---
C:\Users\opam\AppData\Local\opam\5.3.0\lib\astring: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\astring\astring.cma: loaded
C:\Users\opam\AppData\Local\opam\5.3.0\lib\fpath: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\fpath\fpath.cma: loaded
C:\Users\opam\AppData\Local\opam\5.3.0\lib\sexplib0: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\sexplib0\sexplib0.cma: loaded
C:\Users\opam\AppData\Local\opam\5.3.0\lib\fpath-sexp0: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\fpath-sexp0\fpath_sexp0.cma: loaded
C:\Users\opam\AppData\Local\opam\5.3.0\lib\pp: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\pp\pp.cma: loaded
C:\Users\opam\AppData\Local\opam\5.3.0\lib\ordering: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\ordering\ordering.cma: loaded
C:\Users\opam\AppData\Local\opam\5.3.0\lib\dyn: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\dyn\dyn.cma: loaded
C:\Users\opam\AppData\Local\opam\5.3.0\lib\csexp: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\csexp\csexp.cma: loaded
C:\Users\opam\AppData\Local\opam\5.3.0\lib\ocaml\unix: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\stdune\filesystem_stubs: added to search path
C:\Users\opam\AppData\Local\opam\5.3.0\lib\stdune\filesystem_stubs\dune_filesystem_stubs.cma: loaded
Cannot load required shared library dlldune_filesystem_stubs_stubs.
Reason: C:\Users\opam\AppData\Local\opam\5.3.0\lib\stublibs\dlldune_filesystem_stubs_stubs.dll: flexdll error: cannot relocate caml_unix_error RELOC_REL32, target is too far: fffffffa381ac3f8 00000000381ac3f8.
[125]
Line 1, characters 8-13:
Error: Unbound module Volgo
File "lib/volgo_git_unix/test/test__hello_commit.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__hello_commit.ml _build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__hello_commit.ml.corrected
diff --git a/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__hello_commit.ml b/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__hello_commit.ml.corrected
index 65b0cd8..e0a7616 100644
--- a/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__hello_commit.ml
+++ b/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__hello_commit.ml.corrected
@@ -36,14 +36,14 @@ let%expect_test "hello commit" =
Vcs.load_file vcs ~path:(Vcs.Repo_root.append repo_root hello_file)
in
print_string (Vcs.File_contents.to_string file_contents);
- [%expect {| Hello World! |}];
+ [%expect.unreachable];
Vcs.add vcs ~repo_root ~path:hello_file;
let rev =
Vcs.commit vcs ~repo_root ~commit_message:(Vcs.Commit_message.v "hello commit")
in
let mock_rev = Vcs.Mock_revs.to_mock mock_revs ~rev in
print_s [%sexp (mock_rev : Vcs.Rev.t)];
- [%expect {| 1185512b92d612b25613f2e5b473e5231185512b |}];
+ [%expect.unreachable];
print_s
[%sexp
(Vcs.Result.show_file_at_rev
@@ -52,13 +52,31 @@ let%expect_test "hello commit" =
~rev:(Vcs.Mock_revs.of_mock mock_revs ~mock_rev |> Option.value_exn ~here:[%here])
~path:hello_file
: [ `Present of Vcs.File_contents.t | `Absent ] Vcs.Result.t)];
- [%expect {| (Ok (Present "Hello World!\n")) |}];
+ [%expect.unreachable];
print_s
[%sexp
(Vcs.Result.show_file_at_rev vcs ~repo_root ~rev ~path:hello_file
: [ `Present of Vcs.File_contents.t | `Absent ] Vcs.Result.t)];
- [%expect {| (Ok (Present "Hello World!\n")) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ((context
+ (Vcs.init
+ ((path
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\1ca4e5b9b746c5d5c3201d67239497d3\\default\\lib\\volgo_git_unix\\test")))
+ ((prog git) (args (init .)) (exit_status Unknown)
+ (cwd
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\1ca4e5b9b746c5d5c3201d67239497d3\\default\\lib\\volgo_git_unix\\test")
+ (stdout "") (stderr "")))
+ (error ("Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")")))
+ Raised at Volgo__Vcs0.of_result in file "lib/volgo/src/vcs0.ml", line 30, characters 17-83
+ Called from Vcs_test_helpers.init in file "lib/vcs_test_helpers/src/vcs_test_helpers.ml", line 23, characters 18-36
+ Called from Volgo_git_unix_test__Test__hello_commit.(fun) in file "lib/volgo_git_unix/test/test__hello_commit.ml", line 29, characters 18-53
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
let%expect_test "read_dir" =
@@ -89,8 +107,8 @@ let%expect_test "read_dir" =
in
[%expect
{|
- ((context (Vcs.read_dir ((dir /invalid))))
- (error (Sys_error "/invalid: No such file or directory")))
+ ((context (Vcs.read_dir ((dir "\\invalid"))))
+ (error (Sys_error "\\invalid: No such file or directory")))
|}];
()
;;
File "lib/volgo_git_unix/test/test__path_resolution.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__path_resolution.ml _build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__path_resolution.ml.corrected
diff --git a/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__path_resolution.ml b/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__path_resolution.ml.corrected
index bfd6d7e..e0d95d4 100644
--- a/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__path_resolution.ml
+++ b/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__path_resolution.ml.corrected
@@ -63,7 +63,7 @@ let%expect_test "hello path" =
[%sexp
(Vcs.show_file_at_rev vcs ~repo_root ~rev ~path:hello_file
: [ `Present of Vcs.File_contents.t | `Absent ])];
- [%expect {| (Present "Hello World!\n") |}];
+ [%expect.unreachable];
let test_with_env ~vcs ~env ~redact_fields =
match
Vcs.Result.git
@@ -78,35 +78,20 @@ let%expect_test "hello path" =
print_s (Vcs_test_helpers.redact_sexp (Err.sexp_of_t err) ~fields:redact_fields)
in
test_with_env ~vcs ~env:None ~redact_fields:[ "cwd"; "prog"; "repo_root"; "stderr" ];
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse INVALID-REF))))
- ((prog <REDACTED>)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout INVALID-REF)
- (stderr <REDACTED>)))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
let bin = Absolute_path.extend cwd (Fsegment.v "bin") in
Unix.mkdir (bin |> Absolute_path.to_string) ~perm:0o755;
let git = Absolute_path.extend bin (Fsegment.v "git") in
Out_channel.with_file (git |> Absolute_path.to_string) ~perm:0o755 ~f:(fun oc ->
Out_channel.output_string oc "#!/bin/bash -e\necho \"Hello Git!\"\nexit 42\n");
command [ Absolute_path.to_string git; "hello" ];
- [%expect
- {|
- Hello Git!
- [42]
- |}];
+ [%expect.unreachable];
(* Now let's override the path and monitor which git binary is run. *)
(* Let's test separately the function that implements the search. *)
let find_executable ~path = Volgo_git_unix.Runtime.Private.find_executable ~path in
let result = find_executable ~path:"" in
require_equal [%here] (module Executable_in_path) result None;
- [%expect {||}];
+ [%expect.unreachable];
let result =
find_executable ~path:(Absolute_path.to_string bin ^ ":" ^ Absolute_path.to_string cwd)
in
@@ -115,7 +100,7 @@ let%expect_test "hello path" =
(module Executable_in_path)
result
(Some (Absolute_path.to_string git));
- [%expect {||}];
+ [%expect.unreachable];
let env = Unix.environment () in
(* If we keep the same PATH as before, the same git binary is run compared to
before. Indeed the exit code didn't change. *)
@@ -123,21 +108,7 @@ let%expect_test "hello path" =
~vcs
~env:(Some env)
~redact_fields:[ "cwd"; "env"; "prog"; "repo_root"; "stderr" ];
- [%expect
- {|
- ((context
- (Vcs.git (
- (repo_root <REDACTED>)
- (env <REDACTED>)
- (args (rev-parse INVALID-REF))))
- ((prog <REDACTED>)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout INVALID-REF)
- (stderr <REDACTED>)))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
(* If we extend the environment in a way that changes PATH, we rerun the
executable resolution. *)
let extended_env =
@@ -151,21 +122,7 @@ let%expect_test "hello path" =
~vcs
~env:(Some extended_env)
~redact_fields:[ "cwd"; "env"; "prog"; "repo_root" ];
- [%expect
- {|
- ((context
- (Vcs.git (
- (repo_root <REDACTED>)
- (env <REDACTED>)
- (args (rev-parse INVALID-REF))))
- ((prog <REDACTED>)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 42))
- (cwd <REDACTED>)
- (stdout "Hello Git!")
- (stderr "")))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
(* When the executable is not present in a custom PATH, we try and execute the
unqualified executable, which produces an [Unix.ENOENT] error. *)
let bin2 = Absolute_path.extend cwd (Fsegment.v "bin2") in
@@ -174,76 +131,44 @@ let%expect_test "hello path" =
~vcs
~env:(Some [| Printf.sprintf "PATH=%s" (Absolute_path.to_string bin2) |])
~redact_fields:[ "cwd"; "env"; "repo_root" ];
- [%expect
- {|
- ((context
- (Vcs.git (
- (repo_root <REDACTED>)
- (env <REDACTED>)
- (args (rev-parse INVALID-REF))))
- ((prog git)
- (args (rev-parse INVALID-REF))
- (exit_status Unknown)
- (cwd <REDACTED>)
- (stdout "")
- (stderr "")))
- (error ("Unix.Unix_error(Unix.ENOENT, \"execve\", \"git\")")))
- |}];
+ [%expect.unreachable];
(* Under an empty environment, we expect to revert to the previous git binary. *)
test_with_env
~vcs
~env:(Some [||])
~redact_fields:[ "cwd"; "env"; "prog"; "repo_root"; "stderr" ];
- [%expect
- {|
- ((context
- (Vcs.git (
- (repo_root <REDACTED>)
- (env <REDACTED>)
- (args (rev-parse INVALID-REF))))
- ((prog <REDACTED>)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout INVALID-REF)
- (stderr <REDACTED>)))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
(* The initial PATH under which the [vcs] is created is used to pre locate the executable. *)
let save_path = Stdlib.Sys.getenv_opt "PATH" in
Unix.putenv "PATH" (Absolute_path.to_string bin);
let vcs = Volgo_git_unix.create () in
test_with_env ~vcs ~env:None ~redact_fields:[ "cwd"; "env"; "prog"; "repo_root" ];
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse INVALID-REF))))
- ((prog <REDACTED>)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 42))
- (cwd <REDACTED>)
- (stdout "Hello Git!")
- (stderr "")))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
(* Let's monitor the behavior when no Git executable is found in the PATH. In
this case, the [prog] is left as "git" and we rely on the backend process
library to raise the error. *)
Unix.putenv "PATH" (Absolute_path.to_string cwd);
let vcs = Volgo_git_unix.create () in
test_with_env ~vcs ~env:None ~redact_fields:[ "cwd"; "env"; "repo_root" ];
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse INVALID-REF))))
- ((prog git)
- (args (rev-parse INVALID-REF))
- (exit_status Unknown)
- (cwd <REDACTED>)
- (stdout "")
- (stderr "")))
- (error ("Unix.Unix_error(Unix.ENOENT, \"execve\", \"git\")")))
- |}];
+ [%expect.unreachable];
Option.iter save_path ~f:(fun path -> Unix.putenv "PATH" path);
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ((context
+ (Vcs.init
+ ((path
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\1ca4e5b9b746c5d5c3201d67239497d3\\default\\lib\\volgo_git_unix\\test\\vcs_teste5267f")))
+ ((prog git) (args (init .)) (exit_status Unknown)
+ (cwd
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\1ca4e5b9b746c5d5c3201d67239497d3\\default\\lib\\volgo_git_unix\\test\\vcs_teste5267f")
+ (stdout "") (stderr "")))
+ (error ("Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")")))
+ Raised at Volgo__Vcs0.of_result in file "lib/volgo/src/vcs0.ml", line 30, characters 17-83
+ Called from Vcs_test_helpers.init in file "lib/vcs_test_helpers/src/vcs_test_helpers.ml", line 23, characters 18-36
+ Called from Volgo_git_unix_test__Test__path_resolution.(fun) in file "lib/volgo_git_unix/test/test__path_resolution.ml", line 52, characters 18-53
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_git_unix/test/test__file_system.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__file_system.ml _build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__file_system.ml.corrected
diff --git a/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__file_system.ml b/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__file_system.ml.corrected
index a937bc9..5f7eb5b 100644
--- a/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__file_system.ml
+++ b/_build/.sandbox/1ca4e5b9b746c5d5c3201d67239497d3/default/lib/volgo_git_unix/test/test__file_system.ml.corrected
@@ -52,7 +52,7 @@ let%expect_test "read_dir" =
[%expect
{|
((context (Vcs.read_dir ((dir <REDACTED>))))
- (error (Sys_error "/non-existing: No such file or directory")))
+ (error (Sys_error "\\non-existing: No such file or directory")))
|}];
let () =
(* [Vcs.read_dir] errors out when called on an existing file rather than a
File "example/hello_vcs.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs.ml _build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs.ml.corrected
diff --git a/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs.ml b/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs.ml.corrected
index 8078c5c..325dd63 100644
--- a/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs.ml
+++ b/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs.ml.corrected
@@ -56,6 +56,34 @@ let%expect_test "hello commit" =
[%sexp
(Vcs.Or_error.show_file_at_rev vcs ~repo_root ~rev ~path:hello_file
: [ `Present of Vcs.File_contents.t | `Absent ] Or_error.t)];
- [%expect {| (Ok (Present "Hello World!\n")) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_example__Hello_vcs.(fun) in file "example/hello_vcs.ml", line 34, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "example/hello_git_cli.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_git_cli.ml _build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_git_cli.ml.corrected
diff --git a/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_git_cli.ml b/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_git_cli.ml.corrected
index 546b098..76d8e1f 100644
--- a/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_git_cli.ml
+++ b/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_git_cli.ml.corrected
@@ -57,12 +57,7 @@ let%expect_test "hello cli" =
~f:(fun { exit_code; stdout; stderr = _ } ->
print_endline (Printf.sprintf "exit code: %d" exit_code);
print_endline (Printf.sprintf "stdout:\n%s%s" stdout (String.make 15 '-')));
- [%expect
- {|
- exit code: 0
- stdout:
- Hello World!
- --------------- |}];
+ [%expect.unreachable];
(* Let's show also how to use the git cli in a case where we'd like to parse
its output, and how to do this with the non-raising API of Vcs. *)
let head_rev =
@@ -74,7 +69,7 @@ let%expect_test "hello cli" =
|> Or_error.ok_exn
in
require_equal [%here] (module Vcs.Rev) rev head_rev;
- [%expect {||}];
+ [%expect.unreachable];
(* Let's do one with [Vcs.Result.git]. *)
let abbrev_head =
match
@@ -88,7 +83,7 @@ let%expect_test "hello cli" =
| Error _ -> assert false
in
print_string abbrev_head;
- [%expect {| main |}];
+ [%expect.unreachable];
(* Cases where the command fails. *)
let () =
match
@@ -104,18 +99,7 @@ let%expect_test "hello cli" =
[%sexp (err : Err.t)]
~fields:[ "cwd"; "repo_root"; "stderr" ])
in
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse INVALID-REF))))
- ((prog git)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout INVALID-REF)
- (stderr <REDACTED>)))
- (error (Failure "Hello invalid exit code")))
- |}];
+ [%expect.unreachable];
let () =
match
Vcs.Or_error.git
@@ -134,18 +118,7 @@ let%expect_test "hello cli" =
[%sexp (error : Error.t)]
~fields:[ "cwd"; "repo_root"; "stderr" ])
in
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse INVALID-REF))))
- ((prog git)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout INVALID-REF)
- (stderr <REDACTED>)))
- (error "Hello invalid exit code"))
- |}];
+ [%expect.unreachable];
let () =
match
Vcs.Result.git vcs ~repo_root ~args:[ "rev-parse"; "INVALID-REF" ] ~f:(fun output ->
@@ -160,18 +133,7 @@ let%expect_test "hello cli" =
[%sexp (err : Err.t)]
~fields:[ "cwd"; "repo_root"; "stderr" ])
in
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse INVALID-REF))))
- ((prog git)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout INVALID-REF)
- (stderr <REDACTED>)))
- (error "Hello invalid exit code."))
- |}];
+ [%expect.unreachable];
let () =
match
Vcs.Rresult.git
@@ -190,18 +152,7 @@ let%expect_test "hello cli" =
[%sexp (err : Err.t)]
~fields:[ "cwd"; "repo_root"; "stderr" ])
in
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse INVALID-REF))))
- ((prog git)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout INVALID-REF)
- (stderr <REDACTED>)))
- (error "Hello invalid exit code."))
- |}];
+ [%expect.unreachable];
(* Here we characterize some unintended ways the API may be abused. *)
(* 1. [Vcs.git] is meant to be used with a raising helper. In this section we
show undesirable effect of using it with a non-raising helper [f]. *)
@@ -216,7 +167,7 @@ let%expect_test "hello cli" =
(* You may be tempted to think the setup is ok, based on the happy path
behavior. *)
print_s [%sexp (abbrev_ref "HEAD" : string Or_error.t)];
- [%expect {| (Ok main) |}];
+ [%expect.unreachable];
(* However, note that the call can still raise, despite its [Result] return type. *)
let () =
match abbrev_ref ~repo_root:(Vcs.Repo_root.v "/bogus") "HEAD" with
@@ -224,22 +175,11 @@ let%expect_test "hello cli" =
| exception Err.E err ->
print_s (Vcs_test_helpers.redact_sexp [%sexp (err : Err.t)] ~fields:[ "error" ])
in
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root /bogus) (args (rev-parse --abbrev-ref HEAD))))
- ((prog git)
- (args (rev-parse --abbrev-ref HEAD))
- (exit_status Unknown)
- (cwd /bogus/)
- (stdout "")
- (stderr "")))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
(* Another difference is that you do not get the context when the [f] helper
returns an error. *)
print_s [%sexp (abbrev_ref "/bogus" : string Or_error.t)];
- [%expect {| (Error "Expected exit code 0.") |}];
+ [%expect.unreachable];
(* If you are using a non-raising handler [f], you probably meant to use
[Vcs.Or_error.git]. The type of [abbrev_ref] is the same. *)
let abbrev_ref ?(repo_root = repo_root) ref_ =
@@ -252,26 +192,14 @@ let%expect_test "hello cli" =
in
(* The behavior is the same in the happy path. *)
print_s [%sexp (abbrev_ref "HEAD" : string Or_error.t)];
- [%expect {| (Ok main) |}];
+ [%expect.unreachable];
(* However, now the function will not raise. *)
print_s
(Vcs_test_helpers.redact_sexp
[%sexp
(abbrev_ref ~repo_root:(Vcs.Repo_root.v "/bogus") "HEAD" : string Or_error.t)]
~fields:[ "error" ]);
- [%expect
- {|
- (Error (
- (context
- (Vcs.git ((repo_root /bogus) (args (rev-parse --abbrev-ref HEAD))))
- ((prog git)
- (args (rev-parse --abbrev-ref HEAD))
- (exit_status Unknown)
- (cwd /bogus/)
- (stdout "")
- (stderr "")))
- (error <REDACTED>)))
- |}];
+ [%expect.unreachable];
(* And you do get the context when the helper returns an error. *)
let error_with_context =
match abbrev_ref "bogus" with
@@ -282,18 +210,7 @@ let%expect_test "hello cli" =
(Vcs_test_helpers.redact_sexp
error_with_context
~fields:[ "cwd"; "repo_root"; "stderr" ]);
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse --abbrev-ref bogus))))
- ((prog git)
- (args (rev-parse --abbrev-ref bogus))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout bogus)
- (stderr <REDACTED>)))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
(* 2. Let's look now at [Vcs.Or_error.git]. It is meant to be used with a
non-raising handler [f]. Let's see what happens when [f] raises. *)
let abbrev_ref ?(repo_root = repo_root) ref_ =
@@ -309,7 +226,7 @@ let%expect_test "hello cli" =
(* You may be tempted to think the setup is ok, based on the happy path
behavior. *)
print_s [%sexp (abbrev_ref "HEAD" : string Or_error.t)];
- [%expect {| (Ok main) |}];
+ [%expect.unreachable];
(* Some error condition will even correctly be turned into Errors, which may
further prevent you from hitting a raising case. *)
print_s
@@ -317,23 +234,11 @@ let%expect_test "hello cli" =
[%sexp
(abbrev_ref ~repo_root:(Vcs.Repo_root.v "/bogus") "HEAD" : string Or_error.t)]
~fields:[ "error" ]);
- [%expect
- {|
- (Error (
- (context
- (Vcs.git ((repo_root /bogus) (args (rev-parse --abbrev-ref HEAD))))
- ((prog git)
- (args (rev-parse --abbrev-ref HEAD))
- (exit_status Unknown)
- (cwd /bogus/)
- (stdout "")
- (stderr "")))
- (error <REDACTED>)))
- |}];
+ [%expect.unreachable];
(* However when your handler [f] raises, the function will raise too, and you
won't get the context in this case. *)
require_does_raise [%here] (fun () : string Or_error.t -> abbrev_ref "/bogus");
- [%expect {| (Failure "Unexpected error code") |}];
+ [%expect.unreachable];
(* If you use a raising handler [f], you probably meant to use [Vcs.git]. *)
let abbrev_ref ?(repo_root = repo_root) ref_ =
Vcs.git
@@ -347,7 +252,7 @@ let%expect_test "hello cli" =
in
(* You get a function that does not raise in the happy path. *)
print_s [%sexp (abbrev_ref "HEAD" : string)];
- [%expect {| main |}];
+ [%expect.unreachable];
(* And always raises [Err.E], with context, whether the error comes from your handler or not. *)
let abbrev_ref_does_raise ?repo_root ref_ ~redact_fields =
match abbrev_ref ?repo_root ref_ with
@@ -359,30 +264,36 @@ let%expect_test "hello cli" =
~repo_root:(Vcs.Repo_root.v "/bogus")
"HEAD"
~redact_fields:[ "cwd"; "error"; "repo_root"; "stderr" ];
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse --abbrev-ref HEAD))))
- ((prog git)
- (args (rev-parse --abbrev-ref HEAD))
- (exit_status Unknown)
- (cwd <REDACTED>)
- (stdout "")
- (stderr <REDACTED>)))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
abbrev_ref_does_raise "bogus" ~redact_fields:[ "cwd"; "repo_root"; "stderr" ];
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse --abbrev-ref bogus))))
- ((prog git)
- (args (rev-parse --abbrev-ref bogus))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout bogus)
- (stderr <REDACTED>)))
- (error (Failure "Unexpected error code")))
- |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_example__Hello_git_cli.(fun) in file "example/hello_git_cli.ml", line 31, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "example/hello_vcs_git_unix.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs_git_unix.ml _build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs_git_unix.ml.corrected
diff --git a/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs_git_unix.ml b/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs_git_unix.ml.corrected
index c8f13d4..58fcdc8 100644
--- a/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs_git_unix.ml
+++ b/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_vcs_git_unix.ml.corrected
@@ -56,7 +56,7 @@ let%expect_test "hello commit" =
[%sexp
(Vcs.Or_error.show_file_at_rev vcs ~repo_root ~rev ~path:hello_file
: [ `Present of Vcs.File_contents.t | `Absent ] Or_error.t)];
- [%expect {| (Ok (Present "Hello World!\n")) |}];
+ [%expect.unreachable];
(* Let's cover a case where the command fails. *)
let () =
match
@@ -70,18 +70,7 @@ let%expect_test "hello commit" =
| Error err ->
print_s (Vcs_test_helpers.redact_sexp (Err.sexp_of_t err) ~fields:[ "prog" ])
in
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root /invalid/path) (args ())))
- ((prog <REDACTED>)
- (args ())
- (exit_status Unknown)
- (cwd /invalid/path/)
- (stdout "")
- (stderr "")))
- (error ("Unix.Unix_error(Unix.ENOENT, \"chdir\", \"/invalid/path/\")")))
- |}];
+ [%expect.unreachable];
(* Let's also show a case where the command fails due to a user error. *)
let () =
match
@@ -97,18 +86,7 @@ let%expect_test "hello commit" =
(Err.sexp_of_t err)
~fields:[ "cwd"; "prog"; "repo_root"; "stderr" ])
in
- [%expect
- {|
- ((context
- (Vcs.git ((repo_root <REDACTED>) (args (rev-parse INVALID-REF))))
- ((prog <REDACTED>)
- (args (rev-parse INVALID-REF))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout INVALID-REF)
- (stderr <REDACTED>)))
- (error "Hello invalid exit code."))
- |}];
+ [%expect.unreachable];
(* Here we only use [Eio] to clean up the temporary repo, because [rmtree] is
a convenient function to use in this test. But the point is that the rest
of the test used a non-eio API. *)
@@ -116,4 +94,22 @@ let%expect_test "hello commit" =
@@ fun env ->
Eio.Path.rmtree Eio.Path.(Eio.Stdenv.fs env / Vcs.Repo_root.to_string repo_root);
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ((context
+ (Vcs.init
+ ((path
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\9d4e89f8a279933cee455df2727677fa\\default\\example\\vcse2a719test")))
+ ((prog git) (args (init .)) (exit_status Unknown)
+ (cwd
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\9d4e89f8a279933cee455df2727677fa\\default\\example\\vcse2a719test")
+ (stdout "") (stderr "")))
+ (error ("Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")")))
+ Raised at Volgo__Vcs0.of_result in file "lib/volgo/src/vcs0.ml", line 30, characters 17-83
+ Called from Vcs_test_helpers.init in file "lib/vcs_test_helpers/src/vcs_test_helpers.ml", line 23, characters 18-36
+ Called from Vcs_example__Hello_vcs_git_unix.(fun) in file "example/hello_vcs_git_unix.ml", line 36, characters 4-58
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "example/hello_error.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_error.ml _build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_error.ml.corrected
diff --git a/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_error.ml b/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_error.ml.corrected
index 5948e18..16347dc 100644
--- a/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_error.ml
+++ b/_build/.sandbox/9d4e89f8a279933cee455df2727677fa/default/example/hello_error.ml.corrected
@@ -38,70 +38,48 @@ let%expect_test "hello error" =
| _ -> assert false
| exception Err.E err -> print_s (redact_sexp [%sexp (err : Err.t)])
in
- [%expect
- {|
- ((context
- (Vcs.init ((path /invalid/path)))
- ((prog git)
- (args (init .))
- (exit_status Unknown)
- (cwd /invalid/path)
- (stdout "")
- (stderr "")))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
(* Let's do the same with the non-raising interfaces. *)
let () =
match Vcs.Or_error.init vcs ~path:invalid_path with
| Ok _ -> assert false
| Error err -> print_s (redact_sexp [%sexp (err : Error.t)])
in
- [%expect
- {|
- ((context
- (Vcs.init ((path /invalid/path)))
- ((prog git)
- (args (init .))
- (exit_status Unknown)
- (cwd /invalid/path)
- (stdout "")
- (stderr "")))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
let () =
match Vcs.Result.init vcs ~path:invalid_path with
| Ok _ -> assert false
| Error err -> print_s (redact_sexp [%sexp (err : Err.t)])
in
- [%expect
- {|
- ((context
- (Vcs.init ((path /invalid/path)))
- ((prog git)
- (args (init .))
- (exit_status Unknown)
- (cwd /invalid/path)
- (stdout "")
- (stderr "")))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
let () =
match Vcs.Rresult.init vcs ~path:invalid_path with
| Ok _ -> assert false
| Error err -> print_s (redact_sexp [%sexp (err : Vcs.Rresult.err)])
in
- [%expect
- {|
- (Vcs (
- (context
- (Vcs.init ((path /invalid/path)))
- ((prog git)
- (args (init .))
- (exit_status Unknown)
- (cwd /invalid/path)
- (stdout "")
- (stderr "")))
- (error <REDACTED>)))
- |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_example__Hello_error.(fun) in file "example/hello_error.ml", line 29, characters 12-37
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_base/test/test__repo_root.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__repo_root.ml _build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__repo_root.ml.corrected
diff --git a/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__repo_root.ml b/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__repo_root.ml.corrected
index c393045..3d5f667 100644
--- a/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__repo_root.ml
+++ b/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__repo_root.ml.corrected
@@ -25,34 +25,34 @@ let%expect_test "hash" =
Hash_test.run (module Vcs.Repo_root) (module Volgo_base.Vcs.Repo_root) values;
[%expect
{|
- (((value /tmp/foo))
- ((stdlib_hash 300202224)
- (vcs_hash 300202224)
- (vcs_base_hash 300202224)))
- (((value /tmp/foo)
+ (((value "\\tmp\\foo"))
+ ((stdlib_hash 825267538)
+ (vcs_hash 825267538)
+ (vcs_base_hash 825267538)))
+ (((value "\\tmp\\foo")
(seed 0))
- ((stdlib_hash 300202224)
- (vcs_hash 300202224)
- (vcs_base_hash 300202224)))
- (((value /tmp/foo)
+ ((stdlib_hash 825267538)
+ (vcs_hash 825267538)
+ (vcs_base_hash 825267538)))
+ (((value "\\tmp\\foo")
(seed 42))
- ((stdlib_hash 202387283)
- (vcs_hash 202387283)
- (vcs_base_hash 202387283)))
- (((value /home/user/dev/repo))
- ((stdlib_hash 793408912)
- (vcs_hash 793408912)
- (vcs_base_hash 793408912)))
- (((value /home/user/dev/repo)
+ ((stdlib_hash 38416907)
+ (vcs_hash 38416907)
+ (vcs_base_hash 38416907)))
+ (((value "\\home\\user\\dev\\repo"))
+ ((stdlib_hash 1015987434)
+ (vcs_hash 1015987434)
+ (vcs_base_hash 1015987434)))
+ (((value "\\home\\user\\dev\\repo")
(seed 0))
- ((stdlib_hash 793408912)
- (vcs_hash 793408912)
- (vcs_base_hash 793408912)))
- (((value /home/user/dev/repo)
+ ((stdlib_hash 1015987434)
+ (vcs_hash 1015987434)
+ (vcs_base_hash 1015987434)))
+ (((value "\\home\\user\\dev\\repo")
(seed 42))
- ((stdlib_hash 628866208)
- (vcs_hash 628866208)
- (vcs_base_hash 628866208)))
+ ((stdlib_hash 312693201)
+ (vcs_hash 312693201)
+ (vcs_base_hash 312693201)))
|}];
()
;;
File "lib/volgo_base/test/test__refs.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__refs.ml _build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__refs.ml.corrected
diff --git a/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__refs.ml b/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__refs.ml.corrected
index 325e79b..8252f1c 100644
--- a/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__refs.ml
+++ b/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__refs.ml.corrected
@@ -35,53 +35,39 @@ let%expect_test "parse_exn" =
; remote_branches =
(Vcs.Refs.remote_branches refs : Set.M(Vcs.Remote_branch_name).t)
}];
- [%expect
- {|
- ((tags (0.0.1 0.0.2 0.0.3 0.0.3-preview.1))
- (local_branches (gh-pages main subrepo))
- (remote_branches (
- ((remote_name origin) (branch_name 0.0.3-preview))
- ((remote_name origin) (branch_name gh-pages))
- ((remote_name origin) (branch_name main))
- ((remote_name origin) (branch_name progress-bar))
- ((remote_name origin) (branch_name progress-bar.2))))) |}];
+ [%expect.unreachable];
print_s [%sexp (Vcs.Refs.to_map refs : Vcs.Rev.t Map.M(Vcs.Ref_kind).t)];
- [%expect
- {|
- (((Local_branch (branch_name gh-pages))
- 7135b7f4790562e94d9122365478f0d39f5ffead)
- ((Local_branch (branch_name main)) 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- ((Local_branch (branch_name subrepo))
- 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- ((Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name 0.0.3-preview))))
- 8e0e6821261f8baaff7bf4d6820c41417bab91eb)
- ((Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name gh-pages))))
- 7135b7f4790562e94d9122365478f0d39f5ffead)
- ((Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name main))))
- 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- ((Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name progress-bar))))
- a2cc521adbc8dcbd4855968698176e8af54f6550)
- ((Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name progress-bar.2))))
- 7500919364fb176946e7598051ca7247addc3d15)
- ((Tag (tag_name 0.0.1)) 1892d4980ee74945eb98f67be26b745f96c0f482)
- ((Tag (tag_name 0.0.2)) 0d4750ff594236a4bd970e1c90b8bbad80fcadff)
- ((Tag (tag_name 0.0.3)) fc8e67fbc47302b7da682e9a7da626790bb59eaa)
- ((Tag (tag_name 0.0.3-preview.1)) 1887c81ebf9b84c548bc35038f7af82a18eb77bf))
- |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_base_test__Test__refs.(fun) in file "lib/volgo_base/test/test__refs.ml", line 28, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_base/test/test__path_in_repo.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__path_in_repo.ml _build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__path_in_repo.ml.corrected
diff --git a/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__path_in_repo.ml b/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__path_in_repo.ml.corrected
index 9ca86cf..0ea1fc0 100644
--- a/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__path_in_repo.ml
+++ b/_build/.sandbox/676c7be8fe12740f245b5c287f30151f/default/lib/volgo_base/test/test__path_in_repo.ml.corrected
@@ -39,20 +39,20 @@ let%expect_test "hash" =
((stdlib_hash 444099220)
(vcs_hash 444099220)
(vcs_base_hash 444099220)))
- (((value bar/baz.ml))
- ((stdlib_hash 615308050)
- (vcs_hash 615308050)
- (vcs_base_hash 615308050)))
- (((value bar/baz.ml)
+ (((value "bar\\baz.ml"))
+ ((stdlib_hash 852368698)
+ (vcs_hash 852368698)
+ (vcs_base_hash 852368698)))
+ (((value "bar\\baz.ml")
(seed 0))
- ((stdlib_hash 615308050)
- (vcs_hash 615308050)
- (vcs_base_hash 615308050)))
- (((value bar/baz.ml)
+ ((stdlib_hash 852368698)
+ (vcs_hash 852368698)
+ (vcs_base_hash 852368698)))
+ (((value "bar\\baz.ml")
(seed 42))
- ((stdlib_hash 922480314)
- (vcs_hash 922480314)
- (vcs_base_hash 922480314)))
+ ((stdlib_hash 599772413)
+ (vcs_hash 599772413)
+ (vcs_base_hash 599772413)))
|}];
()
;;
File "test/expect/small_graph.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/small_graph.ml _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/small_graph.ml.corrected
diff --git a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/small_graph.ml b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/small_graph.ml.corrected
index b6072c9..3c313d8 100644
--- a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/small_graph.ml
+++ b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/small_graph.ml.corrected
@@ -65,20 +65,7 @@ let%expect_test "small graph" =
(e |> Error.sexp_of_t)
~fields:[ "cwd"; "repo_root" ])
in
- [%expect
- {|
- ((context
- (Vcs.add (
- (repo_root <REDACTED>)
- (path unknown-file.txt)))
- ((prog git)
- (args (add unknown-file.txt))
- (exit_status (Exited 128))
- (cwd <REDACTED>)
- (stdout "")
- (stderr "fatal: pathspec 'unknown-file.txt' did not match any files")))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
let () =
match
Vcs.Or_error.commit
@@ -93,18 +80,7 @@ let%expect_test "small graph" =
(e |> Error.sexp_of_t)
~fields:[ "cwd"; "repo_root"; "stdout" ])
in
- [%expect
- {|
- ((context
- (Vcs.commit ((repo_root <REDACTED>)))
- ((prog git)
- (args (commit -m "Nothing to commit"))
- (exit_status (Exited 1))
- (cwd <REDACTED>)
- (stdout <REDACTED>)
- (stderr "")))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
let commit_file ~path ~file_contents =
let result =
let open Or_error.Let_syntax in
@@ -123,7 +99,7 @@ let%expect_test "small graph" =
let rev = commit_file ~path:hello_file ~file_contents:"Hello World!" in
let mock_rev = Vcs.Mock_revs.to_mock mock_revs ~rev in
print_s [%sexp (mock_rev : Vcs.Rev.t)];
- [%expect {| 1185512b92d612b25613f2e5b473e5231185512b |}];
+ [%expect.unreachable];
let result =
let%bind.Or_error () =
Vcs.Or_error.rename_current_branch vcs ~repo_root ~to_:(Vcs.Branch_name.v "branch")
@@ -131,26 +107,26 @@ let%expect_test "small graph" =
Vcs.Or_error.current_branch vcs ~repo_root
in
print_s [%sexp (result : Vcs.Branch_name.t Or_error.t)];
- [%expect {| (Ok branch) |}];
+ [%expect.unreachable];
Vcs.rename_current_branch vcs ~repo_root ~to_:Vcs.Branch_name.main;
let result =
let%map.Or_error rev = Vcs.Or_error.current_revision vcs ~repo_root in
Vcs.Mock_revs.to_mock mock_revs ~rev
in
print_s [%sexp (result : Vcs.Rev.t Or_error.t)];
- [%expect {| (Ok 1185512b92d612b25613f2e5b473e5231185512b) |}];
+ [%expect.unreachable];
let result = Vcs.Or_error.current_branch vcs ~repo_root in
print_s [%sexp (result : Vcs.Branch_name.t Or_error.t)];
- [%expect {| (Ok main) |}];
+ [%expect.unreachable];
let show_file_at_rev ~rev ~path =
Vcs.Or_error.show_file_at_rev vcs ~repo_root ~rev ~path
in
let result = show_file_at_rev ~rev ~path:hello_file in
print_s [%sexp (result : [ `Present of Vcs.File_contents.t | `Absent ] Or_error.t)];
- [%expect {| (Ok (Present "Hello World!")) |}];
+ [%expect.unreachable];
let result = show_file_at_rev ~rev ~path:(Vcs.Path_in_repo.v "absent-file.txt") in
print_s [%sexp (result : [ `Present of Vcs.File_contents.t | `Absent ] Or_error.t)];
- [%expect {| (Ok Absent) |}];
+ [%expect.unreachable];
let result =
(* We've characterized here that Git does not distinguish between a file
absent at a valid revision, and an unknown revision. *)
@@ -159,15 +135,15 @@ let%expect_test "small graph" =
~path:(Vcs.Path_in_repo.v "absent-file.txt")
in
print_s [%sexp (result : [ `Present of Vcs.File_contents.t | `Absent ] Or_error.t)];
- [%expect {| (Ok Absent) |}];
+ [%expect.unreachable];
let result =
Vcs.Or_error.load_file vcs ~path:(Vcs.Repo_root.append repo_root hello_file)
in
print_s [%sexp (result : Vcs.File_contents.t Or_error.t)];
- [%expect {| (Ok "Hello World!") |}];
+ [%expect.unreachable];
let result = Vcs.Or_error.ls_files vcs ~repo_root ~below:Vcs.Path_in_repo.root in
print_s [%sexp (result : Vcs.Path_in_repo.t list Or_error.t)];
- [%expect {| (Ok (hello.txt)) |}];
+ [%expect.unreachable];
let () =
(* Below must be an existing directory or [ls_files] returns an error. *)
match Vcs.Or_error.ls_files vcs ~repo_root ~below:(Vcs.Path_in_repo.v "dir") with
@@ -178,20 +154,7 @@ let%expect_test "small graph" =
(e |> Error.sexp_of_t)
~fields:[ "cwd"; "error"; "repo_root" ])
in
- [%expect
- {|
- ((context
- (Vcs.ls_files (
- (repo_root <REDACTED>)
- (below dir)))
- ((prog git)
- (args (ls-files --full-name))
- (exit_status Unknown)
- (cwd <REDACTED>)
- (stdout "")
- (stderr "")))
- (error <REDACTED>))
- |}];
+ [%expect.unreachable];
let foo_file = Vcs.Path_in_repo.v "foo.txt" in
let rev2 = commit_file ~path:foo_file ~file_contents:"Hello Foo!" in
let bar_file = Vcs.Path_in_repo.v "bar.txt" in
@@ -201,38 +164,22 @@ let%expect_test "small graph" =
Vcs.Or_error.name_status vcs ~repo_root ~changed:(Between { src = rev2; dst = rev3 })
in
print_s [%sexp (result : Vcs.Name_status.t Or_error.t)];
- [%expect {| (Ok ((Added bar.txt))) |}];
+ [%expect.unreachable];
let result =
Vcs.Or_error.name_status vcs ~repo_root ~changed:(Between { src = rev3; dst = rev4 })
in
print_s [%sexp (result : Vcs.Name_status.t Or_error.t)];
- [%expect {| (Ok ((Modified bar.txt))) |}];
+ [%expect.unreachable];
let result =
Vcs.Or_error.num_status vcs ~repo_root ~changed:(Between { src = rev2; dst = rev3 })
in
print_s [%sexp (result : Vcs.Num_status.t Or_error.t)];
- [%expect
- {|
- (Ok ((
- (key (One_file bar.txt))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 0)))))))
- |}];
+ [%expect.unreachable];
let result =
Vcs.Or_error.num_status vcs ~repo_root ~changed:(Between { src = rev3; dst = rev4 })
in
print_s [%sexp (result : Vcs.Num_status.t Or_error.t)];
- [%expect
- {|
- (Ok ((
- (key (One_file bar.txt))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 1)))))))
- |}];
+ [%expect.unreachable];
let () =
match Vcs.Or_error.log vcs ~repo_root with
| Error _ -> assert false
@@ -242,37 +189,46 @@ let%expect_test "small graph" =
ignore (map_sexp [%sexp (List.rev log : Vcs.Log.t)] : Sexp.t);
print_s (map_sexp [%sexp (log : Vcs.Log.t)])
in
- [%expect
- {|
- ((Commit (rev rev3) (parent rev2))
- (Commit (rev rev2) (parent rev1))
- (Commit (rev rev1) (parent rev0))
- (Root (rev rev0)))
- |}];
+ [%expect.unreachable];
let () =
match Vcs.Or_error.refs vcs ~repo_root with
| Error _ -> assert false
| Ok refs -> print_s (map_sexp [%sexp (refs : Vcs.Refs.t)])
in
- [%expect {| (((rev rev3) (ref_kind (Local_branch (branch_name main))))) |}];
+ [%expect.unreachable];
let () =
match Vcs.Or_error.graph vcs ~repo_root with
| Error _ -> assert false
| Ok graph -> print_s (map_sexp [%sexp (graph : Vcs.Graph.t)])
in
- [%expect
- {|
- ((nodes (
- (#3 (Commit (rev rev3) (parent #2)))
- (#2 (Commit (rev rev2) (parent #1)))
- (#1 (Commit (rev rev1) (parent #0)))
- (#0 (Root (rev rev0)))))
- (revs (
- (#3 rev3)
- (#2 rev2)
- (#1 rev1)
- (#0 rev0)))
- (refs ((#3 ((Local_branch (branch_name main)))))))
- |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_expect_tests__Small_graph.(fun) in file "test/expect/small_graph.ml", line 54, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "test/expect/git_exception_handler.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/git_exception_handler.ml _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/git_exception_handler.ml.corrected
diff --git a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/git_exception_handler.ml b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/git_exception_handler.ml.corrected
index a251e24..35e5f40 100644
--- a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/git_exception_handler.ml
+++ b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/git_exception_handler.ml.corrected
@@ -126,7 +126,7 @@ let%expect_test "eio" =
let runtime = Volgo_git_eio.Runtime.create ~env in
let test () = test_current_branch (module Volgo_git_eio.Impl.Git) runtime ~repo_root in
print_s [%sexp (test () : (Sexp.t, Err.t) Result.t)];
- [%expect {| (Ok ((current_branch main))) |}];
+ [%expect.unreachable];
let test_scenario handler_scenario =
(* We rename the current branch according to the scenario to test. *)
Vcs.rename_current_branch
@@ -140,37 +140,54 @@ let%expect_test "eio" =
match handler_scenario with
| Ok ->
print_s [%sexp (test () : (Sexp.t, Err.t) Result.t)];
- [%expect {| (Ok ()) |}]
+ [%expect.unreachable]
| Error ->
(match test () with
| Ok (_ : Sexp.t) -> assert false
| Error err ->
print_s (Vcs_test_helpers.redact_sexp (Err.sexp_of_t err) ~fields:[ "cwd" ]);
- [%expect
- {|
- ((context (
- (prog git)
- (args (rev-parse --abbrev-ref HEAD))
- (exit_status (Exited 0))
- (cwd <REDACTED>)
- (stdout error)
- (stderr "")))
- (error "Expected exit code 0."))
- |}])
+ [%expect.unreachable])
| Raise_failure ->
require_does_raise [%here] test;
- [%expect {| (Failure Raise_failure) |}]
+ [%expect.unreachable]
| Raise_invalid_argument ->
require_does_raise [%here] test;
- [%expect {| (Invalid_argument Raise_invalid_argument) |}]
+ [%expect.unreachable]
| Raise_custom_exception ->
require_does_raise [%here] test;
- [%expect
- {| (Vcs_expect_tests.Git_exception_handler.Handler_scenario.Custom_exception) |}]
+ [%expect.unreachable]
| Raise_vcs_exception ->
require_does_raise [%here] test;
- [%expect {| Raise_vcs_exception |}]);
+ [%expect.unreachable]);
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_expect_tests__Git_exception_handler.(fun) in file "test/expect/git_exception_handler.ml", line 123, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
let%expect_test "blocking" =
@@ -184,7 +201,7 @@ let%expect_test "blocking" =
let runtime = Volgo_git_unix.Runtime.create () in
let test () = test_current_branch (module Volgo_git_unix.Impl.Git) runtime ~repo_root in
print_s [%sexp (test () : (Sexp.t, Err.t) Result.t)];
- [%expect {| (Ok ((current_branch main))) |}];
+ [%expect.unreachable];
let test_scenario handler_scenario =
(* We rename the current branch according to the scenario to test. *)
Vcs.rename_current_branch
@@ -198,36 +215,53 @@ let%expect_test "blocking" =
match handler_scenario with
| Ok ->
print_s [%sexp (test () : (Sexp.t, Err.t) Result.t)];
- [%expect {| (Ok ()) |}]
+ [%expect.unreachable]
| Error ->
(match test () with
| Ok (_ : Sexp.t) -> assert false
| Error err ->
print_s
(Vcs_test_helpers.redact_sexp (Err.sexp_of_t err) ~fields:[ "cwd"; "prog" ]);
- [%expect
- {|
- ((context (
- (prog <REDACTED>)
- (args (rev-parse --abbrev-ref HEAD))
- (exit_status (Exited 0))
- (cwd <REDACTED>)
- (stdout error)
- (sderr "")))
- (error "Expected exit code 0."))
- |}])
+ [%expect.unreachable])
| Raise_failure ->
require_does_raise [%here] test;
- [%expect {| (Failure Raise_failure) |}]
+ [%expect.unreachable]
| Raise_invalid_argument ->
require_does_raise [%here] test;
- [%expect {| (Invalid_argument Raise_invalid_argument) |}]
+ [%expect.unreachable]
| Raise_custom_exception ->
require_does_raise [%here] test;
- [%expect
- {| (Vcs_expect_tests.Git_exception_handler.Handler_scenario.Custom_exception) |}]
+ [%expect.unreachable]
| Raise_vcs_exception ->
require_does_raise [%here] test;
- [%expect {| Raise_vcs_exception |}]);
+ [%expect.unreachable]);
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_expect_tests__Git_exception_handler.(fun) in file "test/expect/git_exception_handler.ml", line 181, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "test/expect/find_enclosing_repo_root.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_enclosing_repo_root.ml _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_enclosing_repo_root.ml.corrected
diff --git a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_enclosing_repo_root.ml b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_enclosing_repo_root.ml.corrected
index 64b8c7c..47c14d1 100644
--- a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_enclosing_repo_root.ml
+++ b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_enclosing_repo_root.ml.corrected
@@ -30,11 +30,11 @@ let%expect_test "find_enclosing_repo_root" =
let () =
let entries = Vcs.read_dir vcs ~dir:(Vcs.Repo_root.to_absolute_path repo_root) in
print_s [%sexp (entries : Fsegment.t list)];
- [%expect {| (.git) |}];
+ [%expect.unreachable];
(match Vcs.Result.read_dir vcs ~dir:(Vcs.Repo_root.to_absolute_path repo_root) with
| Error _ -> assert false
| Ok entries -> print_s [%sexp (entries : Fsegment.t list)]);
- [%expect {| (.git) |}]
+ [%expect.unreachable]
in
(* Find the root from the root itself. *)
let () =
@@ -46,7 +46,7 @@ let%expect_test "find_enclosing_repo_root" =
| None -> assert false
| Some repo_root2 ->
require_equal [%here] (module Vcs.Repo_root) repo_root repo_root2;
- [%expect {||}]
+ [%expect.unreachable]
in
(* Find the root from a subdirectory. *)
let () =
@@ -59,7 +59,7 @@ let%expect_test "find_enclosing_repo_root" =
| None -> assert false
| Some repo_root2 ->
require_equal [%here] (module Vcs.Repo_root) repo_root repo_root2;
- [%expect {||}]
+ [%expect.unreachable]
in
(* Stop before root (e.g. in a Mercurial repo). *)
let () =
@@ -79,7 +79,7 @@ let%expect_test "find_enclosing_repo_root" =
| None | Some (`Hg, _) -> assert false
| Some (`Git, repo_root2) ->
require_equal [%here] (module Vcs.Repo_root) repo_root repo_root2;
- [%expect {||}]);
+ [%expect.unreachable]);
(* 2. Non-raising [find_enclosing_repo_root]. *)
(match
Vcs.Result.find_enclosing_repo_root
@@ -90,19 +90,19 @@ let%expect_test "find_enclosing_repo_root" =
| Error _ | Ok None | Ok (Some (`Hg, _)) -> assert false
| Ok (Some (`Git, repo_root2)) ->
require_equal [%here] (module Vcs.Repo_root) repo_root repo_root2;
- [%expect {||}]);
+ [%expect.unreachable]);
(* 3. Raising [find_enclosing_git_repo_root]. *)
(match Vcs.find_enclosing_git_repo_root vcs ~from:subdir with
| None -> assert false
| Some repo_root2 ->
require_equal [%here] (module Vcs.Repo_root) repo_root repo_root2;
- [%expect {||}]);
+ [%expect.unreachable]);
(* 4. Non-raising [find_enclosing_git_repo_root]. *)
(match Vcs.Result.find_enclosing_git_repo_root vcs ~from:subdir with
| Error _ | Ok None -> assert false
| Ok (Some repo_root2) ->
require_equal [%here] (module Vcs.Repo_root) repo_root repo_root2;
- [%expect {||}]);
+ [%expect.unreachable]);
Eio.Path.save
~create:(`Or_truncate 0o666)
Eio.Path.(Eio.Stdenv.fs env / Absolute_path.to_string stop_at / ".hg")
@@ -117,7 +117,7 @@ let%expect_test "find_enclosing_repo_root" =
(module Vcs.Repo_root)
(Vcs.Repo_root.of_absolute_path stop_at)
repo_root2;
- [%expect {||}]
+ [%expect.unreachable]
in
(* Not found. This one is a bit more tricky to test because when running in
the dune environment, we are inside a Git repo. *)
@@ -125,7 +125,35 @@ let%expect_test "find_enclosing_repo_root" =
(match Vcs.find_enclosing_git_repo_root vcs ~from:Absolute_path.root with
| Some _ -> assert false
| None -> ());
- [%expect {||}]
+ [%expect.unreachable]
in
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_expect_tests__Find_enclosing_repo_root.(fun) in file "test/expect/find_enclosing_repo_root.ml", line 27, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "test/expect/user_config.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/user_config.ml _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/user_config.ml.corrected
diff --git a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/user_config.ml b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/user_config.ml.corrected
index 84d135a..d483360 100644
--- a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/user_config.ml
+++ b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/user_config.ml.corrected
@@ -53,9 +53,9 @@ let%expect_test "set-user-config" =
in
let mock_rev = Vcs.Mock_revs.to_mock mock_revs ~rev in
print_s [%sexp (mock_rev : Vcs.Rev.t)];
- [%expect {| 1185512b92d612b25613f2e5b473e5231185512b |}];
+ [%expect.unreachable];
show_commit_metadata vcs ~repo_root ~rev;
- [%expect {| "Test User <test@example.com>" |}];
+ [%expect.unreachable];
Vcs.set_user_name vcs ~repo_root ~user_name:(Vcs.User_name.v "Other User");
Vcs.set_user_email vcs ~repo_root ~user_email:(Vcs.User_email.v "other@other-user.org");
let rev =
@@ -67,7 +67,7 @@ let%expect_test "set-user-config" =
~commit_message:(Vcs.Commit_message.v "hello commit")
in
show_commit_metadata vcs ~repo_root ~rev;
- [%expect {| "Other User <other@other-user.org>" |}];
+ [%expect.unreachable];
let () =
Vcs.Result.set_user_name vcs ~repo_root ~user_name:(Vcs.User_name.v "Third User")
|> Stdlib.Result.get_ok
@@ -89,6 +89,34 @@ let%expect_test "set-user-config" =
~commit_message:(Vcs.Commit_message.v "a commit by a third user")
in
show_commit_metadata vcs ~repo_root ~rev;
- [%expect {| "Third User <third@third-user.org>" |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_expect_tests__User_config.(fun) in file "test/expect/user_config.ml", line 42, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "test/expect/find_ref.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_ref.ml _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_ref.ml.corrected
diff --git a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_ref.ml b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_ref.ml.corrected
index d7522a4..6c23b57 100644
--- a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_ref.ml
+++ b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/find_ref.ml.corrected
@@ -51,7 +51,7 @@ let%expect_test "find ref" =
in
let mock_rev = Vcs.Mock_revs.to_mock mock_revs ~rev in
print_s [%sexp (mock_rev : Vcs.Rev.t)];
- [%expect {| 1185512b92d612b25613f2e5b473e5231185512b |}];
+ [%expect.unreachable];
(* The head is the revision of the latest commit. *)
let head = Vcs.current_revision vcs ~repo_root in
require_equal
@@ -63,7 +63,7 @@ let%expect_test "find ref" =
Vcs.rename_current_branch vcs ~repo_root ~to_:Vcs.Branch_name.main;
let current_branch = Vcs.current_branch vcs ~repo_root in
print_s [%sexp (current_branch : Vcs.Branch_name.t)];
- [%expect {| main |}];
+ [%expect.unreachable];
(* We'll now create 2 diverging branches. *)
let create_branch branch_name =
Vcs.git vcs ~repo_root ~args:[ "branch"; branch_name ] ~f:Vcs.Git.exit0
@@ -85,11 +85,7 @@ let%expect_test "find ref" =
{ branch1 = (Vcs.Mock_revs.to_mock mock_revs ~rev:branch1_head : Vcs.Rev.t)
; branch2 = (Vcs.Mock_revs.to_mock mock_revs ~rev:branch2_head : Vcs.Rev.t)
}];
- [%expect
- {|
- ((branch1 dd5aabd331a75b90cd61725223964e47dd5aabd3)
- (branch2 f452a6f91ee8f448bd58bbd0f3330675f452a6f9))
- |}];
+ [%expect.unreachable];
(* Let's create 2 tags. On purpose, we create a confusing tag whose name
duplicates the name of a branch with a distinct head. This allows
monitoring that the vcs api allows for finding the correct revisions based
@@ -124,13 +120,7 @@ let%expect_test "find ref" =
lookup ~find_exn
in
print_s sexp1;
- [%expect
- {|
- ((branch1 dd5aabd331a75b90cd61725223964e47dd5aabd3)
- (branch2 f452a6f91ee8f448bd58bbd0f3330675f452a6f9)
- (tag1 dd5aabd331a75b90cd61725223964e47dd5aabd3)
- (tag2 f452a6f91ee8f448bd58bbd0f3330675f452a6f9))
- |}];
+ [%expect.unreachable];
(* Next we do the same lookups, this time using [Vcs.Graph.find_ref], and
verify that we find the same results. *)
let graph = Vcs.graph vcs ~repo_root in
@@ -143,7 +133,7 @@ let%expect_test "find ref" =
lookup ~find_exn
in
require_equal [%here] (module Sexp) sexp1 sexp2;
- [%expect {||}];
+ [%expect.unreachable];
(* Finally, we characterize some issue with [rev_parse].
Without more information to be able to distinguish between a tag and a
@@ -167,7 +157,7 @@ let%expect_test "find ref" =
|> String.strip
|> Vcs.Rev.v
in
- [%expect {| warning: refname 'branch1' is ambiguous. |}];
+ [%expect.unreachable];
let branch1_rev =
Map.find_exn refs (Local_branch { branch_name = Vcs.Branch_name.v "branch1" })
in
@@ -176,4 +166,32 @@ let%expect_test "find ref" =
[%here]
(List.exists [ branch1_rev; tag_rev ] ~f:(fun rev -> Vcs.Rev.equal ambiguous_rev rev));
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_expect_tests__Find_ref.(fun) in file "test/expect/find_ref.ml", line 40, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "test/expect/num_status_without_lines.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/num_status_without_lines.ml _build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/num_status_without_lines.ml.corrected
diff --git a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/num_status_without_lines.ml b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/num_status_without_lines.ml.corrected
index 92d7fce..9536663 100644
--- a/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/num_status_without_lines.ml
+++ b/_build/.sandbox/31ed3db859d3ee1e8e0bc10f5cdb62eb/default/test/expect/num_status_without_lines.ml.corrected
@@ -43,7 +43,7 @@ let%expect_test "num stat without lines" =
[%sexp
(Vcs.Or_error.show_file_at_rev vcs ~repo_root ~rev:rev1 ~path:hello_file
: [ `Present of Vcs.File_contents.t | `Absent ] Or_error.t)];
- [%expect {| (Ok (Present "Hello World!\n")) |}];
+ [%expect.unreachable];
let file1 = Vcs.Path_in_repo.v "file1.txt" in
let rev2 = commit_file ~path:file1 ~file_contents:"file1" in
let rev3 =
@@ -57,38 +57,40 @@ let%expect_test "num stat without lines" =
print_s [%sexp (num_status : Vcs.Num_status.t)]
in
print_status ~src:rev1 ~dst:rev2;
- [%expect
- {|
- ((
- (key (One_file file1.txt))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 0)))))) |}];
+ [%expect.unreachable];
print_status ~src:rev2 ~dst:rev3;
- [%expect
- {|
- ((
- (key (One_file hello.txt))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 0)))))) |}];
+ [%expect.unreachable];
print_status ~src:rev3 ~dst:rev4;
- [%expect {| (((key (One_file binary-file)) (num_stat Binary_file))) |}];
+ [%expect.unreachable];
print_status ~src:rev1 ~dst:rev4;
- [%expect
- {|
- (((key (One_file binary-file)) (num_stat Binary_file))
- ((key (One_file file1.txt))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 0)))))
- ((key (One_file hello.txt))
- (num_stat (
- Num_lines_in_diff (
- (insertions 1)
- (deletions 0)))))) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_git_eio.create_class in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 29, characters 35-53
+ Called from Volgo_git_eio.create in file "lib/volgo_git_eio/src/volgo_git_eio.ml", line 30, characters 29-48
+ Called from Vcs_expect_tests__Num_status_without_lines.(fun) in file "test/expect/num_status_without_lines.ml", line 30, characters 12-37
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_hg_eio/test/test__file_system.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/24a81fed53066cd4f463528e01e30057/default/lib/volgo_hg_eio/test/test__file_system.ml _build/.sandbox/24a81fed53066cd4f463528e01e30057/default/lib/volgo_hg_eio/test/test__file_system.ml.corrected
diff --git a/_build/.sandbox/24a81fed53066cd4f463528e01e30057/default/lib/volgo_hg_eio/test/test__file_system.ml b/_build/.sandbox/24a81fed53066cd4f463528e01e30057/default/lib/volgo_hg_eio/test/test__file_system.ml.corrected
index 61d3676..35fc238 100644
--- a/_build/.sandbox/24a81fed53066cd4f463528e01e30057/default/lib/volgo_hg_eio/test/test__file_system.ml
+++ b/_build/.sandbox/24a81fed53066cd4f463528e01e30057/default/lib/volgo_hg_eio/test/test__file_system.ml.corrected
@@ -35,6 +35,34 @@ let%expect_test "read_dir" =
let dir = Vcs.Repo_root.to_absolute_path repo_root in
let read_dir dir = print_s [%sexp (Vcs.read_dir vcs ~dir : Fsegment.t list)] in
read_dir dir;
- [%expect {| (.hg) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ (Failure "process operations not supported on Windows yet")
+ Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
+ Called from Volgo_git_eio__Make_runtime.create in file "lib/volgo_git_eio/src/make_runtime.ml", line 67, characters 7-33
+ Called from Volgo_hg_eio.create_class in file "lib/volgo_hg_eio/src/volgo_hg_eio.ml", line 29, characters 35-53
+ Called from Volgo_hg_eio.create in file "lib/volgo_hg_eio/src/volgo_hg_eio.ml", line 30, characters 29-48
+ Called from Volgo_hg_eio_test__Test__file_system.(fun) in file "lib/volgo_hg_eio/test/test__file_system.ml", line 31, characters 12-36
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_hg_unix/test/test__hello_cli.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_cli.ml _build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_cli.ml.corrected
diff --git a/_build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_cli.ml b/_build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_cli.ml.corrected
index 6b73700..3021b4d 100644
--- a/_build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_cli.ml
+++ b/_build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_cli.ml.corrected
@@ -39,14 +39,14 @@ let%expect_test "hello cli" =
Vcs.load_file vcs ~path:(Vcs.Repo_root.append repo_root hello_file)
in
print_string (Vcs.File_contents.to_string file_contents);
- [%expect {| Hello World! |}];
+ [%expect.unreachable];
Vcs.add vcs ~repo_root ~path:hello_file;
let rev =
Vcs.commit vcs ~repo_root ~commit_message:(Vcs.Commit_message.v "hello commit")
in
let mock_rev = Vcs.Mock_revs.to_mock mock_revs ~rev in
print_s [%sexp (mock_rev : Vcs.Rev.t)];
- [%expect {| 1185512b92d612b25613f2e5b473e5231185512b |}];
+ [%expect.unreachable];
let output =
Vcs.hg
vcs
@@ -59,7 +59,7 @@ let%expect_test "hello cli" =
~f:Vcs.Hg.exit0_and_stdout
in
print_endline output;
- [%expect {| Hello World! |}];
+ [%expect.unreachable];
let hg_rev =
match
Vcs.Result.hg
@@ -77,10 +77,10 @@ let%expect_test "hello cli" =
| Error _ -> assert false
in
require_equal [%here] (module Vcs.Rev) rev hg_rev;
- [%expect {||}];
+ [%expect.unreachable];
let mock_rev2 = Vcs.Mock_revs.to_mock mock_revs ~rev:hg_rev in
print_s [%sexp (mock_rev2 : Vcs.Rev.t)];
- [%expect {| 1185512b92d612b25613f2e5b473e5231185512b |}];
+ [%expect.unreachable];
let () =
match Vcs.hg vcs ~repo_root ~args:[ "bogus" ] ~f:Vcs.Hg.exit0 with
| _ -> assert false
@@ -90,18 +90,7 @@ let%expect_test "hello cli" =
[%sexp (err : Err.t)]
~fields:[ "cwd"; "prog"; "repo_root"; "stderr" ])
in
- [%expect
- {|
- ((context
- (Vcs.hg ((repo_root <REDACTED>) (args (bogus))))
- ((prog <REDACTED>)
- (args (bogus))
- (exit_status (Exited 255))
- (cwd <REDACTED>)
- (stdout "")
- (stderr <REDACTED>)))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
let () =
match Vcs.Result.hg vcs ~repo_root ~args:[ "bogus" ] ~f:Vcs.Hg.Result.exit0 with
| Ok _ -> assert false
@@ -111,17 +100,23 @@ let%expect_test "hello cli" =
[%sexp (err : Err.t)]
~fields:[ "cwd"; "prog"; "repo_root"; "stderr" ])
in
- [%expect
- {|
- ((context
- (Vcs.hg ((repo_root <REDACTED>) (args (bogus))))
- ((prog <REDACTED>)
- (args (bogus))
- (exit_status (Exited 255))
- (cwd <REDACTED>)
- (stdout "")
- (stderr <REDACTED>)))
- (error "Expected exit code 0."))
- |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ((context
+ (Vcs.init
+ ((path
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\26916eafe390a40121364678c34331b1\\default\\lib\\volgo_hg_unix\\test\\vcs_test8b4f58")))
+ ((prog hg) (args (init)) (exit_status Unknown)
+ (cwd
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\26916eafe390a40121364678c34331b1\\default\\lib\\volgo_hg_unix\\test\\vcs_test8b4f58")
+ (stdout "") (stderr "")))
+ (error ("Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")")))
+ Raised at Volgo__Vcs0.of_result in file "lib/volgo/src/vcs0.ml", line 30, characters 17-83
+ Called from Volgo_hg_unix_test__Test__hello_cli.(fun) in file "lib/volgo_hg_unix/test/test__hello_cli.ml", line 32, characters 18-45
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo_hg_unix/test/test__hello_commit.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_commit.ml _build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_commit.ml.corrected
diff --git a/_build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_commit.ml b/_build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_commit.ml.corrected
index 1f4f462..1797a39 100644
--- a/_build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_commit.ml
+++ b/_build/.sandbox/26916eafe390a40121364678c34331b1/default/lib/volgo_hg_unix/test/test__hello_commit.ml.corrected
@@ -39,14 +39,14 @@ let%expect_test "hello commit" =
Vcs.load_file vcs ~path:(Vcs.Repo_root.append repo_root hello_file)
in
print_string (Vcs.File_contents.to_string file_contents);
- [%expect {| Hello World! |}];
+ [%expect.unreachable];
Vcs.add vcs ~repo_root ~path:hello_file;
let rev =
Vcs.commit vcs ~repo_root ~commit_message:(Vcs.Commit_message.v "hello commit")
in
let mock_rev = Vcs.Mock_revs.to_mock mock_revs ~rev in
print_s [%sexp (mock_rev : Vcs.Rev.t)];
- [%expect {| 1185512b92d612b25613f2e5b473e5231185512b |}];
+ [%expect.unreachable];
let output =
Vcs.hg
vcs
@@ -59,6 +59,23 @@ let%expect_test "hello commit" =
~f:Vcs.Hg.exit0_and_stdout
in
print_endline output;
- [%expect {| Hello World! |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ((context
+ (Vcs.init
+ ((path
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\26916eafe390a40121364678c34331b1\\default\\lib\\volgo_hg_unix\\test\\vcs_testa250b3")))
+ ((prog hg) (args (init)) (exit_status Unknown)
+ (cwd
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\26916eafe390a40121364678c34331b1\\default\\lib\\volgo_hg_unix\\test\\vcs_testa250b3")
+ (stdout "") (stderr "")))
+ (error ("Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")")))
+ Raised at Volgo__Vcs0.of_result in file "lib/volgo/src/vcs0.ml", line 30, characters 17-83
+ Called from Volgo_hg_unix_test__Test__hello_commit.(fun) in file "lib/volgo_hg_unix/test/test__hello_commit.ml", line 32, characters 18-45
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo/test/test__trait.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__trait.ml _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__trait.ml.corrected
diff --git a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__trait.ml b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__trait.ml.corrected
index 75b0844..e0eb0c1 100644
--- a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__trait.ml
+++ b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__trait.ml.corrected
@@ -36,7 +36,7 @@ let%expect_test "unimplemented" =
{|
((context (
Vcs.add (
- (repo_root /path/to/repo)
+ (repo_root "\\path\\to\\repo")
(path foo))))
(error
"Trait [Vcs.Trait.add] method [add] is not available in this repository."))
@@ -47,7 +47,7 @@ let%expect_test "unimplemented" =
{|
((context (
Vcs.rename_current_branch (
- (repo_root /path/to/repo)
+ (repo_root "\\path\\to\\repo")
(to_ foo))))
(error
"Trait [Vcs.Trait.branch] method [rename_current_branch] is not available in this repository."))
@@ -56,7 +56,7 @@ let%expect_test "unimplemented" =
test (fun () -> Vcs.commit vcs ~repo_root ~commit_message:(Vcs.Commit_message.v "_"));
[%expect
{|
- ((context (Vcs.commit ((repo_root /path/to/repo))))
+ ((context (Vcs.commit ((repo_root "\\path\\to\\repo"))))
(error
"Trait [Vcs.Trait.commit] method [commit] is not available in this repository."))
|}];
@@ -66,7 +66,7 @@ let%expect_test "unimplemented" =
{|
((context (
Vcs.set_user_name (
- (repo_root /path/to/repo)
+ (repo_root "\\path\\to\\repo")
(user_name user1))))
(error
"Trait [Vcs.Trait.config] method [set_user_name] is not available in this repository."))
@@ -77,7 +77,7 @@ let%expect_test "unimplemented" =
{|
((context (
Vcs.set_user_email (
- (repo_root /path/to/repo)
+ (repo_root "\\path\\to\\repo")
(user_email user1@mail.com))))
(error
"Trait [Vcs.Trait.config] method [set_user_email] is not available in this repository."))
@@ -86,7 +86,7 @@ let%expect_test "unimplemented" =
test (fun () -> Vcs.load_file vcs ~path:(Absolute_path.v "/path/to/file"));
[%expect
{|
- ((context (Vcs.load_file ((path /path/to/file))))
+ ((context (Vcs.load_file ((path "\\path\\to\\file"))))
(error
"Trait [Vcs.Trait.file_system] method [load_file] is not available in this repository."))
|}];
@@ -97,14 +97,14 @@ let%expect_test "unimplemented" =
~file_contents:(Vcs.File_contents.create "Hello"));
[%expect
{|
- ((context (Vcs.save_file ((perms ()) (path /path/to/file))))
+ ((context (Vcs.save_file ((perms ()) (path "\\path\\to\\file"))))
(error
"Trait [Vcs.Trait.file_system] method [save_file] is not available in this repository."))
|}];
test (fun () -> Vcs.read_dir vcs ~dir:(Absolute_path.v "/path/to/dir"));
[%expect
{|
- ((context (Vcs.read_dir ((dir /path/to/dir))))
+ ((context (Vcs.read_dir ((dir "\\path\\to\\dir"))))
(error
"Trait [Vcs.Trait.file_system] method [read_dir] is not available in this repository."))
|}];
@@ -112,7 +112,7 @@ let%expect_test "unimplemented" =
test (fun () -> Vcs.git vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Git.exit0);
[%expect
{|
- ((context (Vcs.git ((repo_root /path/to/repo) (args (status)))))
+ ((context (Vcs.git ((repo_root "\\path\\to\\repo") (args (status)))))
(error
"Trait [Vcs.Trait.git] method [git] is not available in this repository."))
|}];
@@ -120,7 +120,7 @@ let%expect_test "unimplemented" =
test (fun () -> Vcs.hg vcs ~repo_root ~args:[ "status" ] ~f:Vcs.Hg.exit0);
[%expect
{|
- ((context (Vcs.hg ((repo_root /path/to/repo) (args (status)))))
+ ((context (Vcs.hg ((repo_root "\\path\\to\\repo") (args (status)))))
(error
"Trait [Vcs.Trait.hg] method [hg] is not available in this repository."))
|}];
@@ -128,7 +128,7 @@ let%expect_test "unimplemented" =
test (fun () -> Vcs.init vcs ~path:(Absolute_path.v "/path/to/dir"));
[%expect
{|
- ((context (Vcs.init ((path /path/to/dir))))
+ ((context (Vcs.init ((path "\\path\\to\\dir"))))
(error
"Trait [Vcs.Trait.init] method [init] is not available in this repository."))
|}];
@@ -136,7 +136,7 @@ let%expect_test "unimplemented" =
test (fun () -> Vcs.log vcs ~repo_root);
[%expect
{|
- ((context (Vcs.log ((repo_root /path/to/repo))))
+ ((context (Vcs.log ((repo_root "\\path\\to\\repo"))))
(error
"Trait [Vcs.Trait.log] method [all] is not available in this repository."))
|}];
@@ -146,8 +146,8 @@ let%expect_test "unimplemented" =
{|
((context (
Vcs.ls_files (
- (repo_root /path/to/repo)
- (below ./))))
+ (repo_root "\\path\\to\\repo")
+ (below ".\\"))))
(error
"Trait [Vcs.Trait.ls_files] method [ls_files] is not available in this repository."))
|}];
@@ -158,7 +158,7 @@ let%expect_test "unimplemented" =
{|
((context (
Vcs.name_status (
- (repo_root /path/to/repo)
+ (repo_root "\\path\\to\\repo")
(changed (
Between
(src 3e8f3b8084fe4864ab5ecf955a8cf5093e8f3b80)
@@ -173,7 +173,7 @@ let%expect_test "unimplemented" =
{|
((context (
Vcs.num_status (
- (repo_root /path/to/repo)
+ (repo_root "\\path\\to\\repo")
(changed (
Between
(src 3e8f3b8084fe4864ab5ecf955a8cf5093e8f3b80)
@@ -185,7 +185,7 @@ let%expect_test "unimplemented" =
test (fun () -> Vcs.refs vcs ~repo_root);
[%expect
{|
- ((context (Vcs.refs ((repo_root /path/to/repo))))
+ ((context (Vcs.refs ((repo_root "\\path\\to\\repo"))))
(error
"Trait [Vcs.Trait.refs] method [show_ref] is not available in this repository."))
|}];
@@ -193,14 +193,14 @@ let%expect_test "unimplemented" =
test (fun () -> Vcs.current_branch vcs ~repo_root);
[%expect
{|
- ((context (Vcs.current_branch ((repo_root /path/to/repo))))
+ ((context (Vcs.current_branch ((repo_root "\\path\\to\\repo"))))
(error
"Trait [Vcs.Trait.rev_parse] method [current_branch] is not available in this repository."))
|}];
test (fun () -> Vcs.current_revision vcs ~repo_root);
[%expect
{|
- ((context (Vcs.current_revision ((repo_root /path/to/repo))))
+ ((context (Vcs.current_revision ((repo_root "\\path\\to\\repo"))))
(error
"Trait [Vcs.Trait.rev_parse] method [current_revision] is not available in this repository."))
|}];
@@ -211,7 +211,7 @@ let%expect_test "unimplemented" =
{|
((context (
Vcs.show_file_at_rev (
- (repo_root /path/to/repo)
+ (repo_root "\\path\\to\\repo")
(rev 3e8f3b8084fe4864ab5ecf955a8cf5093e8f3b80)
(path foo))))
(error
File "lib/volgo/test/test__path_in_repo.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__path_in_repo.ml _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__path_in_repo.ml.corrected
diff --git a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__path_in_repo.ml b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__path_in_repo.ml.corrected
index efcce4a..1aee11f 100644
--- a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__path_in_repo.ml
+++ b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__path_in_repo.ml.corrected
@@ -28,21 +28,21 @@ let%expect_test "of_string" =
test "";
[%expect {| (Error (Msg "\"\": invalid path")) |}];
test ".";
- [%expect {| (Ok ./) |}];
+ [%expect {| (Ok ".\\") |}];
test "/";
- [%expect {| (Error (Msg "\"/\": not a relative path")) |}];
+ [%expect {| (Error (Msg "\"\\\\\": not a relative path")) |}];
test "/a/foo";
- [%expect {| (Error (Msg "\"/a/foo\": not a relative path")) |}];
+ [%expect {| (Error (Msg "\"\\\\a\\\\foo\": not a relative path")) |}];
test "a/foo/bar";
- [%expect {| (Ok a/foo/bar) |}];
+ [%expect {| (Ok "a\\foo\\bar") |}];
(* We do keep the trailing slashes if present syntactically. Although we do
not expect such paths to be computed by the [Vcs] library from files
present in the repo. *)
test "a/foo/bar/";
- [%expect {| (Ok a/foo/bar/) |}];
+ [%expect {| (Ok "a\\foo\\bar\\") |}];
test "file";
[%expect {| (Ok file) |}];
test "a/foo/bar/../sna";
- [%expect {| (Ok a/foo/sna) |}];
+ [%expect {| (Ok "a\\foo\\sna") |}];
()
;;
File "lib/volgo/test/test__repo_root.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__repo_root.ml _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__repo_root.ml.corrected
diff --git a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__repo_root.ml b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__repo_root.ml.corrected
index 3fafa83..46766b2 100644
--- a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__repo_root.ml
+++ b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__repo_root.ml.corrected
@@ -27,15 +27,15 @@ let%expect_test "of_string" =
test "";
[%expect {| (Error (Msg "\"\": invalid path")) |}];
test "/";
- [%expect {| (Ok /) |}];
+ [%expect {| (Ok \) |}];
test ".";
[%expect {| (Error (Msg "\".\": not an absolute path")) |}];
test "foo/bar";
- [%expect {| (Error (Msg "\"foo/bar\": not an absolute path")) |}];
+ [%expect {| (Error (Msg "\"foo\\\\bar\": not an absolute path")) |}];
test "/foo/bar";
- [%expect {| (Ok /foo/bar) |}];
+ [%expect {| (Ok "\\foo\\bar") |}];
test "/tmp/my-repo";
- [%expect {| (Ok /tmp/my-repo) |}];
+ [%expect {| (Ok "\\tmp\\my-repo") |}];
()
;;
@@ -44,16 +44,16 @@ let%expect_test "v" =
require_does_raise [%here] (fun () -> test "");
[%expect {| (Invalid_argument "\"\": invalid path") |}];
require_does_raise [%here] (fun () -> test "foo/bar");
- [%expect {| (Invalid_argument "\"foo/bar\": not an absolute path") |}];
+ [%expect {| (Invalid_argument "\"foo\\\\bar\": not an absolute path") |}];
test "/foo/bar";
- [%expect {| /foo/bar |}];
+ [%expect {| "\\foo\\bar" |}];
()
;;
let%expect_test "to_string" =
let test s = print_endline (Vcs.Repo_root.to_string (Vcs.Repo_root.v s)) in
test "/path/to/repo";
- [%expect {| /path/to/repo |}];
+ [%expect {| \path\to\repo |}];
()
;;
@@ -67,17 +67,17 @@ let%expect_test "relativize_exn" =
test "/not/in/the/repo";
[%expect {| (Error "not a prefix") |}];
test "/tmp/my-repo";
- [%expect {| ./ |}];
+ [%expect {| .\ |}];
test "/tmp/my-repo/";
- [%expect {| ./ |}];
+ [%expect {| .\ |}];
test "/tmp/my-repo/foo";
[%expect {| foo |}];
test "/tmp/my-repo/.foo";
[%expect {| .foo |}];
test "/tmp/my-repo/.foo/bar";
- [%expect {| .foo/bar |}];
+ [%expect {| .foo\bar |}];
test "/tmp/my-repo/foo/bar/../snafu";
- [%expect {| foo/snafu |}];
+ [%expect {| foo\snafu |}];
()
;;
@@ -88,10 +88,10 @@ let%expect_test "append" =
(Absolute_path.to_string (Vcs.Repo_root.append repo_root (Vcs.Path_in_repo.v abs)))
in
test ".";
- [%expect {| /tmp/my-repo/ |}];
+ [%expect {| \tmp\my-repo\ |}];
test ".foo";
- [%expect {| /tmp/my-repo/.foo |}];
+ [%expect {| \tmp\my-repo\.foo |}];
test "foo/bar/../sna";
- [%expect {| /tmp/my-repo/foo/sna |}];
+ [%expect {| \tmp\my-repo\foo\sna |}];
()
;;
File "lib/volgo/test/test__name_status.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__name_status.ml _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__name_status.ml.corrected
diff --git a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__name_status.ml b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__name_status.ml.corrected
index 725a945..b49b087 100644
--- a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__name_status.ml
+++ b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__name_status.ml.corrected
@@ -35,13 +35,39 @@ let%expect_test "parse_exn" =
|> Set.of_list (module Volgo_base.Vcs.Path_in_repo)
in
print_s [%sexp (Set.diff files_at_dst files_at_src : Set.M(Vcs.Path_in_repo).t)];
- [%expect
- {|
- (CHANGES.md
- lib/super_master_mind/src/import/dune
- lib/super_master_mind/src/import/super_master_mind_import.ml
- lib/super_master_mind/src/import/super_master_mind_import.mli) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_test__Test__name_status.(fun) in file "lib/volgo/test/test__name_status.ml", line 26, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
let%expect_test "files" =
File "lib/volgo/test/test__log.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__log.ml _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__log.ml.corrected
diff --git a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__log.ml b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__log.ml.corrected
index d7e3af6..f1df4b4 100644
--- a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__log.ml
+++ b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__log.ml.corrected
@@ -32,9 +32,37 @@ let%expect_test "parse_exn" =
in
let roots = Vcs.Log.roots log in
print_s [%sexp (roots : Vcs.Rev.t list)];
- [%expect
- {|
- (35760b109070be51b9deb61c8fdc79c0b2d9065d
- da46f0d60bfbb9dc9340e95f5625c10815c24af7) |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_test__Test__log.(fun) in file "lib/volgo/test/test__log.ml", line 28, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo/test/test__num_status.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__num_status.ml _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__num_status.ml.corrected
diff --git a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__num_status.ml b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__num_status.ml.corrected
index 071065d..0e95d11 100644
--- a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__num_status.ml
+++ b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__num_status.ml.corrected
@@ -27,6 +27,37 @@ let%expect_test "parse_exn" =
let lines = String.split_lines contents in
let num_status = Volgo_git_backend.Num_status.parse_lines_exn ~lines in
ignore (num_status : Vcs.Num_status.t);
- [%expect {||}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_test__Test__num_status.(fun) in file "lib/volgo/test/test__num_status.ml", line 26, characters 17-35
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
File "lib/volgo/test/test__graph.ml", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__graph.ml _build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__graph.ml.corrected
diff --git a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__graph.ml b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__graph.ml.corrected
index 6364410..917aeaa 100644
--- a/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__graph.ml
+++ b/_build/.sandbox/bbd809d745190db79380479e358b01ef/default/lib/volgo/test/test__graph.ml.corrected
@@ -36,10 +36,10 @@ let%expect_test "graph" =
in
let graph = Vcs.Graph.create () in
print_s [%sexp { node_count = (Vcs.Graph.node_count graph : int) }];
- [%expect {| ((node_count 0)) |}];
+ [%expect.unreachable];
Vcs.Graph.add_nodes graph ~log;
print_s [%sexp { node_count = (Vcs.Graph.node_count graph : int) }];
- [%expect {| ((node_count 180)) |}];
+ [%expect.unreachable];
List.iter refs ~f:(fun { rev; ref_kind } -> Vcs.Graph.set_ref graph ~rev ~ref_kind);
let refs = Vcs.Graph.refs graph in
List.iter refs ~f:(fun { rev; ref_kind } ->
@@ -53,129 +53,9 @@ let%expect_test "graph" =
in
print_s
[%sexp { ref_kind : Vcs.Ref_kind.t; rev : Vcs.Rev.t; parents : Vcs.Rev.t list }]);
- [%expect
- {|
- ((ref_kind (Local_branch (branch_name gh-pages)))
- (rev 7135b7f4790562e94d9122365478f0d39f5ffead)
- (parents (ad9e24e4ee719d71b07ce29597818461b38c9e4a)))
- ((ref_kind (Local_branch (branch_name main)))
- (rev 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- (parents (3820ba70563c65ee9f6d516b8e70eb5ea8173d45)))
- ((ref_kind (Local_branch (branch_name subrepo)))
- (rev 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- (parents (3820ba70563c65ee9f6d516b8e70eb5ea8173d45)))
- ((ref_kind (
- Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name 0.0.3-preview)))))
- (rev 8e0e6821261f8baaff7bf4d6820c41417bab91eb)
- (parents (1887c81ebf9b84c548bc35038f7af82a18eb77bf)))
- ((ref_kind (
- Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name gh-pages)))))
- (rev 7135b7f4790562e94d9122365478f0d39f5ffead)
- (parents (ad9e24e4ee719d71b07ce29597818461b38c9e4a)))
- ((ref_kind (
- Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name main)))))
- (rev 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- (parents (3820ba70563c65ee9f6d516b8e70eb5ea8173d45)))
- ((ref_kind (
- Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name progress-bar)))))
- (rev a2cc521adbc8dcbd4855968698176e8af54f6550)
- (parents (4fbe82806f16bac64c099fa28300efe4a3c7c478)))
- ((ref_kind (
- Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name progress-bar.2)))))
- (rev 7500919364fb176946e7598051ca7247addc3d15)
- (parents (ad01432770d3f696cf9312a6a45a559e3d2ac814)))
- ((ref_kind (Tag (tag_name 0.0.1)))
- (rev 1892d4980ee74945eb98f67be26b745f96c0f482)
- (parents (728e5a4ebfaa8564358b17fd754dacea9a6b0153)))
- ((ref_kind (Tag (tag_name 0.0.2)))
- (rev 0d4750ff594236a4bd970e1c90b8bbad80fcadff)
- (parents (11c7861ae090e2dc5e2400d4d8a90c74b0a37163)))
- ((ref_kind (Tag (tag_name 0.0.3)))
- (rev fc8e67fbc47302b7da682e9a7da626790bb59eaa)
- (parents (6e463fbe6765015b8427f004f856ee4d77cc9ccd)))
- ((ref_kind (Tag (tag_name 0.0.3-preview.1)))
- (rev 1887c81ebf9b84c548bc35038f7af82a18eb77bf)
- (parents (b258b0cde128083c4f05bcf276bcc1322f1d36a2))) |}];
+ [%expect.unreachable];
print_s [%sexp (Vcs.Graph.summary graph : Vcs.Graph.Summary.t)];
- [%expect
- {|
- ((refs (
- (7135b7f4790562e94d9122365478f0d39f5ffead refs/heads/gh-pages)
- (2e4fbeae154ec896262decf1ab3bee5687b93f21 refs/heads/main)
- (2e4fbeae154ec896262decf1ab3bee5687b93f21 refs/heads/subrepo)
- (8e0e6821261f8baaff7bf4d6820c41417bab91eb
- refs/remotes/origin/0.0.3-preview)
- (7135b7f4790562e94d9122365478f0d39f5ffead refs/remotes/origin/gh-pages)
- (2e4fbeae154ec896262decf1ab3bee5687b93f21 refs/remotes/origin/main)
- (a2cc521adbc8dcbd4855968698176e8af54f6550 refs/remotes/origin/progress-bar)
- (7500919364fb176946e7598051ca7247addc3d15
- refs/remotes/origin/progress-bar.2)
- (1892d4980ee74945eb98f67be26b745f96c0f482 refs/tags/0.0.1)
- (0d4750ff594236a4bd970e1c90b8bbad80fcadff refs/tags/0.0.2)
- (fc8e67fbc47302b7da682e9a7da626790bb59eaa refs/tags/0.0.3)
- (1887c81ebf9b84c548bc35038f7af82a18eb77bf refs/tags/0.0.3-preview.1)))
- (roots (
- da46f0d60bfbb9dc9340e95f5625c10815c24af7
- 35760b109070be51b9deb61c8fdc79c0b2d9065d))
- (leaves (
- (a2cc521adbc8dcbd4855968698176e8af54f6550 (
- refs/remotes/origin/progress-bar))
- (8e0e6821261f8baaff7bf4d6820c41417bab91eb (
- refs/remotes/origin/0.0.3-preview))
- (7500919364fb176946e7598051ca7247addc3d15 (
- refs/remotes/origin/progress-bar.2))
- (7135b7f4790562e94d9122365478f0d39f5ffead (
- refs/heads/gh-pages refs/remotes/origin/gh-pages))
- (2e4fbeae154ec896262decf1ab3bee5687b93f21 (
- refs/heads/main refs/heads/subrepo refs/remotes/origin/main))))
- (subgraphs (
- ((refs (
- (2e4fbeae154ec896262decf1ab3bee5687b93f21 refs/heads/main)
- (2e4fbeae154ec896262decf1ab3bee5687b93f21 refs/heads/subrepo)
- (8e0e6821261f8baaff7bf4d6820c41417bab91eb
- refs/remotes/origin/0.0.3-preview)
- (2e4fbeae154ec896262decf1ab3bee5687b93f21 refs/remotes/origin/main)
- (a2cc521adbc8dcbd4855968698176e8af54f6550
- refs/remotes/origin/progress-bar)
- (7500919364fb176946e7598051ca7247addc3d15
- refs/remotes/origin/progress-bar.2)
- (1892d4980ee74945eb98f67be26b745f96c0f482 refs/tags/0.0.1)
- (0d4750ff594236a4bd970e1c90b8bbad80fcadff refs/tags/0.0.2)
- (fc8e67fbc47302b7da682e9a7da626790bb59eaa refs/tags/0.0.3)
- (1887c81ebf9b84c548bc35038f7af82a18eb77bf refs/tags/0.0.3-preview.1)))
- (roots (da46f0d60bfbb9dc9340e95f5625c10815c24af7))
- (leaves (
- (2e4fbeae154ec896262decf1ab3bee5687b93f21 (
- refs/heads/main refs/heads/subrepo refs/remotes/origin/main))
- (7500919364fb176946e7598051ca7247addc3d15 (
- refs/remotes/origin/progress-bar.2))
- (8e0e6821261f8baaff7bf4d6820c41417bab91eb (
- refs/remotes/origin/0.0.3-preview))
- (a2cc521adbc8dcbd4855968698176e8af54f6550 (
- refs/remotes/origin/progress-bar)))))
- ((refs (
- (7135b7f4790562e94d9122365478f0d39f5ffead refs/heads/gh-pages)
- (7135b7f4790562e94d9122365478f0d39f5ffead refs/remotes/origin/gh-pages)))
- (roots (35760b109070be51b9deb61c8fdc79c0b2d9065d))
- (leaves ((
- 7135b7f4790562e94d9122365478f0d39f5ffead (
- refs/heads/gh-pages refs/remotes/origin/gh-pages))))))))
- |}];
+ [%expect.unreachable];
let main =
Vcs.Graph.find_ref
graph
@@ -214,37 +94,10 @@ let%expect_test "graph" =
{ node = (Vcs.Graph.rev graph ~node : Vcs.Rev.t)
; refs = (Vcs.Graph.node_refs graph ~node : Vcs.Ref_kind.t list)
}]);
- [%expect
- {|
- ((node 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- (refs (
- (Local_branch (branch_name main))
- (Local_branch (branch_name subrepo))
- (Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name main)))))))
- ((node 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- (refs (
- (Local_branch (branch_name main))
- (Local_branch (branch_name subrepo))
- (Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name main)))))))
- ((node a2cc521adbc8dcbd4855968698176e8af54f6550)
- (refs ((
- Remote_branch (
- remote_branch_name (
- (remote_name origin)
- (branch_name progress-bar)))))))
- ((node 1892d4980ee74945eb98f67be26b745f96c0f482)
- (refs ((Tag (tag_name 0.0.1)))))
- ((node 0d4750ff594236a4bd970e1c90b8bbad80fcadff)
- (refs ((Tag (tag_name 0.0.2))))) |}];
+ [%expect.unreachable];
(* Log. *)
print_s [%sexp (List.length (Vcs.Graph.log graph) : int)];
- [%expect {| 180 |}];
+ [%expect.unreachable];
(* Ancestor. *)
let is_ancestor ancestor descendant =
print_s
@@ -256,20 +109,11 @@ let%expect_test "graph" =
}]
in
is_ancestor tag_0_0_1 tag_0_0_2;
- [%expect
- {|
- ((is_ancestor_or_equal true)
- (is_strict_ancestor true)) |}];
+ [%expect.unreachable];
is_ancestor tag_0_0_2 tag_0_0_1;
- [%expect
- {|
- ((is_ancestor_or_equal false)
- (is_strict_ancestor false)) |}];
+ [%expect.unreachable];
is_ancestor main main;
- [%expect
- {|
- ((is_ancestor_or_equal true)
- (is_strict_ancestor false)) |}];
+ [%expect.unreachable];
let merge_node = Vcs.Rev.v "93280971041e0e6a64894400061392b1c702baa7" in
let root_node = Vcs.Rev.v "da46f0d60bfbb9dc9340e95f5625c10815c24af7" in
let tip = Vcs.Rev.v "2e4fbeae154ec896262decf1ab3bee5687b93f21" in
@@ -281,20 +125,11 @@ let%expect_test "graph" =
print_s [%sexp (line : Vcs.Log.Line.t)]
in
ref_kind tip;
- [%expect
- {|
- (Commit
- (rev 2e4fbeae154ec896262decf1ab3bee5687b93f21)
- (parent 3820ba70563c65ee9f6d516b8e70eb5ea8173d45)) |}];
+ [%expect.unreachable];
ref_kind merge_node;
- [%expect
- {|
- (Merge
- (rev 93280971041e0e6a64894400061392b1c702baa7)
- (parent1 735103d3d41b48b7425b5b5386f235c8940080af)
- (parent2 1eafed9e1737cd2ebbfe60ca787e622c7e0fc080)) |}];
+ [%expect.unreachable];
ref_kind root_node;
- [%expect {| (Root (rev da46f0d60bfbb9dc9340e95f5625c10815c24af7)) |}];
+ [%expect.unreachable];
(* parents. *)
let parents rev =
let node = node_exn rev in
@@ -304,14 +139,11 @@ let%expect_test "graph" =
print_s [%sexp (parents : Vcs.Rev.t list)]
in
parents tip;
- [%expect {| (3820ba70563c65ee9f6d516b8e70eb5ea8173d45) |}];
+ [%expect.unreachable];
parents merge_node;
- [%expect
- {|
- (735103d3d41b48b7425b5b5386f235c8940080af
- 1eafed9e1737cd2ebbfe60ca787e622c7e0fc080) |}];
+ [%expect.unreachable];
parents root_node;
- [%expect {| () |}];
+ [%expect.unreachable];
(* descendance. *)
let test r1 r2 =
print_s
@@ -320,17 +152,48 @@ let%expect_test "graph" =
: Vcs.Graph.Descendance.t)]
in
test tip tip;
- [%expect {| Same_node |}];
+ [%expect.unreachable];
test tip root_node;
- [%expect {| Strict_descendant |}];
+ [%expect.unreachable];
test root_node tip;
- [%expect {| Strict_ancestor |}];
+ [%expect.unreachable];
let gh_page_tip = Vcs.Rev.v "7135b7f4790562e94d9122365478f0d39f5ffead" in
test root_node gh_page_tip;
- [%expect {| Other |}];
+ [%expect.unreachable];
test gh_page_tip root_node;
- [%expect {| Other |}];
+ [%expect.unreachable];
()
+[@@expect.uncaught_exn {|
+ (* CR expect_test_collector: This test expectation appears to contain a backtrace.
+ This is strongly discouraged as backtraces are fragile.
+ Please change this test to not include a backtrace. *)
+ ("Unix.Unix_error(Unix.ENOENT, \"openat\", \"\")")
+ Raised by primitive operation at Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 30-117
+ Called from Eio_unix__Thread_pool.Free_pool.make_thread.(fun) in file "lib_eio/unix/thread_pool.ml", line 71, characters 21-28
+ Re-raised at Eio_unix__Thread_pool.run_in_systhread in file "lib_eio/unix/thread_pool.ml", line 134, characters 22-57
+ Called from Eio_windows__Low_level.openat.(fun) in file "lib_eio_windows/low_level.ml", line 214, characters 2-118
+ Called from Eio_windows__Fs.Dir.open_in in file "lib_eio_windows/fs.ml", line 99, characters 13-194
+ Called from Eio__Path.open_in in file "lib_eio/path.ml", line 70, characters 6-28
+ Called from Eio__Path.with_open_in.(fun) in file "lib_eio/path.ml", line 128, characters 50-68
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 133, characters 8-12
+ Re-raised at Eio__core__Switch.maybe_raise_exs in file "lib_eio/core/switch.ml", line 119, characters 21-56
+ Called from Eio__core__Switch.run_internal in file "lib_eio/core/switch.ml", line 149, characters 4-21
+ Called from Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 118, characters 8-12
+ Re-raised at Eio__core__Cancel.with_cc in file "lib_eio/core/cancel.ml", line 120, characters 50-58
+ Called from Volgo_test__Test__graph.(fun) in file "lib/volgo/test/test__graph.ml", line 27, characters 19-37
+ Called from Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 316, characters 8-12
+ Re-raised at Eio_windows__Sched.with_op in file "lib_eio_windows/sched.ml", line 322, characters 4-12
+ Called from Eio_windows__Sched.run.(fun) in file "lib_eio_windows/sched.ml", line 381, characters 29-47
+ Called from Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 108, characters 8-13
+ Re-raised at Eio_unix__Thread_pool.run in file "lib_eio/unix/thread_pool.ml", line 113, characters 4-39
+ Re-raised at Eio_windows__Sched.run.fork.(fun) in file "lib_eio_windows/sched.ml", line 337, characters 12-76
+ Called from Stdlib__Fun.protect in file "fun.ml", line 34, characters 8-15
+ Re-raised at Stdlib__Fun.protect in file "fun.ml", line 39, characters 6-52
+ Called from Eio_windows__Sched.run in file "lib_eio_windows/sched.ml", lines 376-383, characters 4-9
+ Called from Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 256, characters 8-12
+ Re-raised at Eio_windows__Sched.with_sched in file "lib_eio_windows/sched.ml", line 261, characters 4-39
+ Called from Ppx_expect_runtime__Test_block.Configured.dump_backtrace in file "runtime/test_block.ml", line 142, characters 10-28
+ |}]
;;
(* Additional tests to help covering corner cases. *)
File "test/cram/run-hg.t", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/1a84e392b60d51d48ad792abbad6abd2/default/test/cram/run-hg.t _build/.sandbox/1a84e392b60d51d48ad792abbad6abd2/default/test/cram/run-hg.t.corrected
diff --git a/_build/.sandbox/1a84e392b60d51d48ad792abbad6abd2/default/test/cram/run-hg.t b/_build/.sandbox/1a84e392b60d51d48ad792abbad6abd2/default/test/cram/run-hg.t.corrected
index d33dd34..07c43cd 100644
--- a/_build/.sandbox/1a84e392b60d51d48ad792abbad6abd2/default/test/cram/run-hg.t
+++ b/_build/.sandbox/1a84e392b60d51d48ad792abbad6abd2/default/test/cram/run-hg.t.corrected
@@ -2,6 +2,7 @@ First we need to setup a repo in a way that satisfies the test environment. This
includes specifics required by the GitHub Actions environment.
$ hg init 2> /dev/null
+ [127]
$ cat > hello << EOF
> Hello World
@@ -11,22 +12,39 @@ includes specifics required by the GitHub Actions environment.
Hello World
$ volgo-vcs add hello
+ Context:
+ (Vcs.add (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (path "1a84e392b60d51d48ad792abbad6abd2\\default\\test\\cram\\hello"))
+ ((prog git)
+ (args (add "1a84e392b60d51d48ad792abbad6abd2\\default\\test\\cram\\hello"))
+ (exit_status Unknown) (cwd "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ rev0=$(volgo-vcs commit -m "Initial commit")
+ Context: (Vcs.commit (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (commit -m "Initial commit")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
Rev-parse.
$ hg log -r . --template "{node}\n" 2> /dev/null | sed -e "s/$rev0/rev0/g"
- rev0
$ volgo-vcs current-revision | sed -e "s/$rev0/rev0/g"
- rev0
+ Context:
+ (Vcs.current_revision (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (rev-parse --verify HEAD^{commit})) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
$ volgo-vcs current-branch
Context:
- (Vcs.current_branch
- (repo_root
- $TESTCASE_ROOT))
- Error: Branches are not implemented in [vcs-hg].
+ (Vcs.current_branch (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (rev-parse --abbrev-ref HEAD)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
[123]
Adding a new file under a directory.
@@ -35,17 +53,45 @@ Adding a new file under a directory.
$ echo "New file" > dir/hello
$ volgo-vcs add dir/hello
+ Context:
+ (Vcs.add (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (path "1a84e392b60d51d48ad792abbad6abd2\\default\\test\\cram\\dir\\hello"))
+ ((prog git)
+ (args
+ (add "1a84e392b60d51d48ad792abbad6abd2\\default\\test\\cram\\dir\\hello"))
+ (exit_status Unknown) (cwd "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ rev1=$(volgo-vcs commit -m "Added dir/hello")
+ Context: (Vcs.commit (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (commit -m "Added dir/hello")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs ls-files
- dir/hello
- hello
+ Context:
+ (Vcs.ls_files (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (below ".\\"))
+ ((prog git) (args (ls-files --full-name)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox\\") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs ls-files --below dir
- dir/hello
+ Context:
+ (Vcs.ls_files (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (below "1a84e392b60d51d48ad792abbad6abd2\\default\\test\\cram\\dir"))
+ ((prog git) (args (ls-files --full-name)) (exit_status Unknown)
+ (cwd
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\1a84e392b60d51d48ad792abbad6abd2\\default\\test\\cram\\dir")
+ (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs ls-files --below /dir
- Error: Path is not in repo. (path /dir)
+ Error: Path is not in repo. (path "\\dir")
[123]
$ volgo-vcs ls-files --below foo 2> /dev/null
@@ -54,20 +100,17 @@ Adding a new file under a directory.
Vcs allows to run the git command line directly if the backend supports it.
$ volgo-vcs hg -- log -r . --template "{node}" 2> /dev/null | sed -e "s/$rev1/rev1/g"
- rev1
$ volgo-vcs hg invalid-command 2> /dev/null
- [255]
+ [123]
When running in a repository of a certain kind, some operations may not be
supported. Below we attempt to run an Mercurial command in this Git repository.
$ volgo-vcs git not-run
Context:
- (Vcs.git
- (repo_root
- $TESTCASE_ROOT)
- (args not-run))
- Error: Trait [Vcs.Trait.git] method [git] is not available in this
- repository.
+ (Vcs.git (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox") (args not-run))
+ ((prog git) (args not-run) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox\\") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
[123]
File "test/cram/run.t", line 1, characters 0-0:
C:\cygwin64\bin\git.exe --no-pager diff --no-index --color=always -u --ignore-cr-at-eol _build/.sandbox/afa59272259f719932834b2add7bdfd2/default/test/cram/run.t _build/.sandbox/afa59272259f719932834b2add7bdfd2/default/test/cram/run.t.corrected
diff --git a/_build/.sandbox/afa59272259f719932834b2add7bdfd2/default/test/cram/run.t b/_build/.sandbox/afa59272259f719932834b2add7bdfd2/default/test/cram/run.t.corrected
index c336b14..a8ef545 100644
--- a/_build/.sandbox/afa59272259f719932834b2add7bdfd2/default/test/cram/run.t
+++ b/_build/.sandbox/afa59272259f719932834b2add7bdfd2/default/test/cram/run.t.corrected
@@ -2,7 +2,24 @@ First we need to setup a repo in a way that satisfies the test environment. This
includes specifics required by the GitHub Actions environment.
$ volgo-vcs init -q .
+ Context:
+ (Vcs.init
+ (path
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\"))
+ ((prog git) (args (init .)) (exit_status Unknown)
+ (cwd
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\")
+ (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs set-user-config --user.name "Test User" --user.email "test@example.com"
+ Context:
+ (Vcs.set_user_name (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (user_name "Test User"))
+ ((prog git) (args (config user.name "Test User")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ cat > hello << EOF
> Hello World
@@ -12,46 +29,92 @@ includes specifics required by the GitHub Actions environment.
Hello World
$ volgo-vcs add hello
+ Context:
+ (Vcs.add (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (path "afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\hello"))
+ ((prog git)
+ (args (add "afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\hello"))
+ (exit_status Unknown) (cwd "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ rev0=$(volgo-vcs commit -m "Initial commit")
+ Context: (Vcs.commit (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (commit -m "Initial commit")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
Making sure the branch name is deterministic.
$ volgo-vcs rename-current-branch main
+ Context:
+ (Vcs.rename_current_branch
+ (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox") (to_ main))
+ ((prog git) (args (branch --move main)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
Rev-parse.
$ git rev-parse HEAD | sed -e "s/$rev0/rev0/g"
- rev0
+ fatal: invalid gitfile format: /cygdrive/c/Users/opam/src/_build/.sandbox/.git
$ volgo-vcs current-revision | sed -e "s/$rev0/rev0/g"
- rev0
+ Context:
+ (Vcs.current_revision (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (rev-parse --verify HEAD^{commit})) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
$ volgo-vcs current-branch
- main
+ Context:
+ (Vcs.current_branch (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (rev-pare --abbrev-ref HEAD)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs branch-revision | sed -e "s/$rev0/rev0/g"
- rev0
+ Context:
+ (Vcs.current_branch (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (rev-parse --abbrev-ref HEAD)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
$ volgo-vcs branch-revision main | sed -e "s/$rev0/rev0/g"
- rev0
+ Context: (Vcs.refs (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (show-ref --dereference)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
$ volgo-vcs branch-revision unknown-branch
- Error: Branch not found. (branch_name unknown-branch)
+ Context: (Vcs.refs (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (show-ref --dereference)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
[123]
Testing a successful file show with git and via vcs.
$ git show HEAD:hello
- Hello World
+ fatal: invalid gitfile format: /cygdrive/c/Users/opam/src/_build/.sandbox/.git
+ [128]
$ volgo-vcs show-file-at-rev hello -r $rev0
- Hello World
+ volgo-vcs: option '-r' needs an argument
+ Usage: volgo-vcs show-file-at-rev [--rev=REV] [OPTION]… FILE
+ Try 'volgo-vcs show-file-at-rev --help' or 'volgo-vcs --help' for more information.
+ [124]
Invalid path-in-repo.
$ volgo-vcs show-file-at-rev /hello -r $rev0
- Error: Path is not in repo. (path /hello)
- [123]
+ volgo-vcs: option '-r' needs an argument
+ Usage: volgo-vcs show-file-at-rev [--rev=REV] [OPTION]… FILE
+ Try 'volgo-vcs show-file-at-rev --help' or 'volgo-vcs --help' for more information.
+ [124]
File system operations.
@@ -59,10 +122,10 @@ File system operations.
Context:
(Vcs.read_dir
(dir
- $TESTCASE_ROOT/untracked))
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\untracked"))
Error:
(Sys_error
- "$TESTCASE_ROOT/untracked: No such file or directory")
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\untracked: No such file or directory")
[123]
$ mkdir -p untracked
@@ -79,10 +142,10 @@ File system operations.
Context:
(Vcs.read_dir
(dir
- $TESTCASE_ROOT/untracked/hello))
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\untracked\\hello"))
Error:
(Sys_error
- "$TESTCASE_ROOT/untracked/hello: Not a directory")
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\untracked\\hello: Invalid argument")
[123]
$ volgo-vcs load-file untracked/hello
@@ -90,14 +153,7 @@ File system operations.
$ chmod -r untracked
$ volgo-vcs read-dir untracked
- Context:
- (Vcs.read_dir
- (dir
- $TESTCASE_ROOT/untracked))
- Error:
- (Sys_error
- "$TESTCASE_ROOT/untracked: Permission denied")
- [123]
+ (hello)
$ rm untracked/hello
$ rmdir untracked
@@ -105,15 +161,16 @@ File system operations.
Find enclosing repo root.
$ (cd "/" && volgo-vcs current-revision)
- Error: Failed to locate enclosing repo root from directory. (from /)
+ Error:
+ Failed to locate enclosing repo root from directory. (from "C:\\cygwin64")
[123]
$ volgo-vcs find-enclosing-repo-root
- .git: $TESTCASE_ROOT
+ .git: C:\Users\opam\src\_build\.sandbox
$ mkdir subdir
$ volgo-vcs find-enclosing-repo-root --from subdir
- .git: $TESTCASE_ROOT
+ .git: C:\Users\opam\src\_build\.sandbox
$ volgo-vcs find-enclosing-repo-root --from "/"
@@ -121,10 +178,10 @@ Find enclosing repo root.
$ touch subdir/hg/.hg
$ volgo-vcs find-enclosing-repo-root --from subdir/hg/otherdir --store .git
- .git: $TESTCASE_ROOT
+ .git: C:\Users\opam\src\_build\.sandbox
$ volgo-vcs find-enclosing-repo-root --from subdir/hg/otherdir --store .hg
- .hg: $TESTCASE_ROOT/subdir/hg
+ .hg: C:\Users\opam\src\_build\.sandbox\afa59272259f719932834b2add7bdfd2\default\test\cram\subdir\hg
Adding a new file under a directory.
@@ -132,56 +189,90 @@ Adding a new file under a directory.
$ echo "New file" > dir/hello
$ volgo-vcs add dir/hello
+ Context:
+ (Vcs.add (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (path "afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\dir\\hello"))
+ ((prog git)
+ (args
+ (add "afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\dir\\hello"))
+ (exit_status Unknown) (cwd "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ rev1=$(volgo-vcs commit -m "Added dir/hello")
+ Context: (Vcs.commit (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (commit -m "Added dir/hello")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs ls-files
- dir/hello
- hello
+ Context:
+ (Vcs.ls_files (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (below ".\\"))
+ ((prog git) (args (ls-files --full-name)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox\\") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs ls-files --below dir
- dir/hello
+ Context:
+ (Vcs.ls_files (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (below "afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\dir"))
+ ((prog git) (args (ls-files --full-name)) (exit_status Unknown)
+ (cwd
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\dir")
+ (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs ls-files --below /dir
- Error: Path is not in repo. (path /dir)
+ Error: Path is not in repo. (path "\\dir")
[123]
$ volgo-vcs ls-files --below foo
Context:
- (Vcs.ls_files
- (repo_root
- $TESTCASE_ROOT)
- (below foo))
+ (Vcs.ls_files (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (below "afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\foo"))
((prog git) (args (ls-files --full-name)) (exit_status Unknown)
(cwd
- $TESTCASE_ROOT/foo)
+ "C:\\Users\\opam\\src\\_build\\.sandbox\\afa59272259f719932834b2add7bdfd2\\default\\test\\cram\\foo")
(stdout "") (stderr ""))
- Error:
- "Unix.Unix_error(Unix.ENOENT, \"chdir\", \"$TESTCASE_ROOT/foo\")"
+ Error: "Unix.Unix_error(Unix.EUNKNOWNERR -267, \"CreateProcess\", \"\")"
[123]
Testing an unsuccessful file show with git and via vcs.
$ git rm hello
- rm 'hello'
+ fatal: invalid gitfile format: /cygdrive/c/Users/opam/src/_build/.sandbox/.git
+ [128]
$ git commit -q -m "Removed hello"
+ fatal: invalid gitfile format: /cygdrive/c/Users/opam/src/_build/.sandbox/.git
+ [128]
$ rev2=$(git rev-parse HEAD)
+ fatal: invalid gitfile format: /cygdrive/c/Users/opam/src/_build/.sandbox/.git
+ [128]
$ volgo-vcs show-file-at-rev hello -r $rev2 2>&1 | sed -e "s/$rev2/rev2/g"
- Path 'hello' does not exist in 'rev2'
+ sed: -e expression #1, char 0: no previous regular expression
+ [1]
Name status.
$ volgo-vcs name-status $rev0 $rev2
- ((Added dir/hello) (Removed hello))
+ volgo-vcs: required arguments BASE, TIP are missing
+ Usage: volgo-vcs name-status [OPTION]… BASE TIP
+ Try 'volgo-vcs name-status --help' or 'volgo-vcs --help' for more information.
+ [124]
Num status.
$ volgo-vcs num-status $rev0 $rev2
- (((key (One_file dir/hello))
- (num_stat (Num_lines_in_diff ((insertions 1) (deletions 0)))))
- ((key (One_file hello))
- (num_stat (Num_lines_in_diff ((insertions 0) (deletions 1))))))
+ volgo-vcs: required arguments BASE, TIP are missing
+ Usage: volgo-vcs num-status [OPTION]… BASE TIP
+ Try 'volgo-vcs num-status --help' or 'volgo-vcs --help' for more information.
+ [124]
Stabilize output.
@@ -192,72 +283,100 @@ Stabilize output.
Refs.
$ volgo-vcs refs | stabilize_output
- (((rev $REV2)
- (ref_kind (Local_branch (branch_name main)))))
+ Context: (Vcs.refs (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (show-ref --dereference)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
Log.
$ volgo-vcs log | stabilize_output
- ((Commit (rev $REV2)
- (parent $REV1))
- (Commit (rev $REV1)
- (parent $REV0))
- (Root (rev $REV0)))
+ Context: (Vcs.log (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (log --all "--pretty=format:%H %P")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
Graph.
$ volgo-vcs graph | stabilize_output
- ((refs (($REV2 refs/heads/main)))
- (roots ($REV0))
- (leaves (($REV2 (refs/heads/main)))))
+ Context: (Vcs.graph (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (log --all "--pretty=format:%H %P")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
Greatest common ancestors.
$ volgo-vcs gca
- ()
+ Context: (Vcs.graph (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (log --all "--pretty=format:%H %P")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs gca $rev1 | stabilize_output
- ($REV1)
+ Context: (Vcs.graph (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (log --all "--pretty=format:%H %P")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
$ volgo-vcs gca $rev1 $rev2 | stabilize_output
- ($REV1)
+ Context: (Vcs.graph (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (log --all "--pretty=format:%H %P")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
$ volgo-vcs gca $rev1 2e9ab12edfe8e3a01cf2fa2b46210c042e9ab12e
- Error: Rev not found. (rev 2e9ab12edfe8e3a01cf2fa2b46210c042e9ab12e)
+ Context: (Vcs.graph (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox"))
+ ((prog git) (args (log --all "--pretty=format:%H %P")) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
[123]
Descendance.
$ volgo-vcs descendance $rev1 $rev1
- Same_node
+ volgo-vcs: required arguments REV, REV are missing
+ Usage: volgo-vcs descendance [OPTION]… REV REV
+ Try 'volgo-vcs descendance --help' or 'volgo-vcs --help' for more information.
+ [124]
$ volgo-vcs descendance $rev1 $rev2
- Strict_ancestor
+ volgo-vcs: required arguments REV, REV are missing
+ Usage: volgo-vcs descendance [OPTION]… REV REV
+ Try 'volgo-vcs descendance --help' or 'volgo-vcs --help' for more information.
+ [124]
$ volgo-vcs descendance $rev2 $rev1
- Strict_descendant
+ volgo-vcs: required arguments REV, REV are missing
+ Usage: volgo-vcs descendance [OPTION]… REV REV
+ Try 'volgo-vcs descendance --help' or 'volgo-vcs --help' for more information.
+ [124]
$ volgo-vcs descendance $rev1 2e9ab12edfe8e3a01cf2fa2b46210c042e9ab12e
- Error: Rev not found. (rev 2e9ab12edfe8e3a01cf2fa2b46210c042e9ab12e)
- [123]
+ volgo-vcs: required argument REV is missing
+ Usage: volgo-vcs descendance [OPTION]… REV REV
+ Try 'volgo-vcs descendance --help' or 'volgo-vcs --help' for more information.
+ [124]
Vcs allows to run the git command line directly if the backend supports it.
$ volgo-vcs git rev-parse HEAD | stabilize_output
- $REV2
+ Context:
+ (Vcs.git (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (args (rev-parse HEAD)))
+ ((prog git) (args (rev-parse HEAD)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox\\") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
$ volgo-vcs git invalid-command 2> /dev/null
- [1]
+ [123]
When running in a repository of a certain kind, some operations may not be
supported. Below we attempt to run an Mercurial command in this Git repository.
$ volgo-vcs hg id
Context:
- (Vcs.hg
- (repo_root
- $TESTCASE_ROOT)
- (args id))
+ (Vcs.hg (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox") (args id))
Error: Trait [Vcs.Trait.hg] method [hg] is not available in this repository.
[123]
@@ -268,15 +387,35 @@ revision.
$ mkdir .worktree
$ volgo-vcs git worktree add .worktree/rev1 $rev1 > /dev/null 2> /dev/null
+ [123]
$ (cd .worktree/rev1 ; volgo-vcs ls-files)
- dir/hello
- hello
+ /cygdrive/c/Users/opam/AppData/Local/Temp/dune_cram_af1b1c_.cram/68.sh: line 1: cd: .worktree/rev1: No such file or directory
+ Context:
+ (Vcs.ls_files (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (below ".\\"))
+ ((prog git) (args (ls-files --full-name)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox\\") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs ls-files
- dir/hello
+ Context:
+ (Vcs.ls_files (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (below ".\\"))
+ ((prog git) (args (ls-files --full-name)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox\\") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
$ volgo-vcs git worktree remove .worktree/rev1
+ Context:
+ (Vcs.git (repo_root "C:\\Users\\opam\\src\\_build\\.sandbox")
+ (args (worktree remove .worktree/rev1)))
+ ((prog git) (args (worktree remove .worktree/rev1)) (exit_status Unknown)
+ (cwd "C:\\Users\\opam\\src\\_build\\.sandbox\\") (stdout "") (stderr ""))
+ Error: "Unix.Unix_error(Unix.ENOENT, \"CreateProcess\", \"\")"
+ [123]
Vcs's help for review.
"cd /cygdrive/c/Users/opam/src && opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1
2025-06-10 21:11.08: Job failed: Failed: Build failed