alpine-3.20-5.2_opam-2.2

2024-10-31 08:50.33: New job: test ocaml-multicore/eio https://github.com/ocaml-multicore/eio.git#refs/pull/772/head (953f3de3fd0b0cf0a53527a42c52f709ee30fab3) (linux-x86_64:alpine-3.20-5.2_opam-2.2)
Base: ocaml/opam:alpine-3.20-ocaml-5.2@sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3
Opam project build


To reproduce locally:


git clone --recursive "https://github.com/ocaml-multicore/eio.git" && cd "eio" && git fetch origin "refs/pull/772/head" && git reset --hard 953f3de3
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam:alpine-3.20-ocaml-5.2@sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3
# alpine-3.20-5.2_opam-2.2
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
WORKDIR /src
RUN sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam
RUN opam init --reinit -ni
RUN uname -rs && opam exec -- ocaml -version && opam --version
WORKDIR /src
RUN sudo chown opam /src
RUN cd ~/opam-repository && (git cat-file -e b876d7d37014df697368765c088aa86d24dc8b6b || git fetch origin master) && git reset -q --hard b876d7d37014df697368765c088aa86d24dc8b6b && git log --no-decorate -n1 --oneline && opam update -u
COPY --chown=1000:1000 eio_windows.opam eio_posix.opam eio_main.opam eio_linux.opam eio.opam ./
RUN opam pin add -yn eio_windows.dev './' && \
opam pin add -yn eio_posix.dev './' && \
opam pin add -yn eio_main.dev './' && \
opam pin add -yn eio_linux.dev './' && \
opam pin add -yn eio.dev './'
ENV DEPS="afl-persistent.1.4 alcotest.1.8.0 astring.0.8.5 backoff.0.1.1 base-bigarray.base base-bytes.base base-domains.base base-nnp.base base-threads.base base-unix.base bigstringaf.0.10.0 camlp-streams.5.0.1 cmdliner.1.3.0 containers.3.14 cppo.1.7.0 crowbar.0.2.1 csexp.1.5.2 cstruct.6.2.0 domain-local-await.1.0.1 domain-local-timeout.1.0.1 dscheck.0.5.0 dune.3.16.0 dune-configurator.3.16.0 either.1.0.0 fmt.0.9.0 hmap.0.8.1 host-arch-x86_64.1 host-system-other.1 iomux.0.3 kcas.0.7.0 logs.0.7.0 lwt-dllist.1.0.1 mdx.2.4.1 mtime.2.1.0 multicore-magic.2.3.0 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml-syntax-shims.1.0.0 ocaml-version.3.6.9 ocamlbuild.0.15.0 ocamlfind.1.9.6 ocplib-endian.1.2 optint.0.3.0 oseq.0.5.1 psq.0.2.1 re.1.12.0 result.1.5 seq.base stdlib-shims.0.3.0 thread-table.1.0.0 topkg.1.0.7 tsort.2.1.0 uring.0.9 uutf.1.0.3 yojson.2.2.2"
ENV CI="true"
ENV OCAMLCI="true"
RUN opam update --depexts && opam install --cli=2.2 --depext-only -y eio_windows.dev eio_posix.dev eio_main.dev eio_linux.dev eio.dev $DEPS
RUN opam install $DEPS
COPY --chown=1000:1000 . /src
RUN opam exec -- dune build @install @check @runtest && rm -rf _build


END-OF-DOCKERFILE
docker build .
END-REPRO-BLOCK


2024-10-31 08:50.33: Using cache hint "ocaml-multicore/eio-ocaml/opam:alpine-3.20-ocaml-5.2@sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3-alpine-3.20-5.2_opam-2.2-6fe78b3be14f8858307ce0c1b92bd107"
2024-10-31 08:50.33: Using OBuilder spec:
((from ocaml/opam:alpine-3.20-ocaml-5.2@sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3)
(comment alpine-3.20-5.2_opam-2.2)
(user (uid 1000) (gid 1000))
(env CLICOLOR_FORCE 1)
(env OPAMCOLOR always)
(workdir /src)
(run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam"))
(run (shell "opam init --reinit -ni"))
(run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
(workdir /src)
(run (shell "sudo chown opam /src"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e b876d7d37014df697368765c088aa86d24dc8b6b || git fetch origin master) && git reset -q --hard b876d7d37014df697368765c088aa86d24dc8b6b && git log --no-decorate -n1 --oneline && opam update -u"))
(copy (src eio_windows.opam eio_posix.opam eio_main.opam eio_linux.opam eio.opam)
(dst ./))
(run (network host)
(shell  "opam pin add -yn eio_windows.dev './' && \
\nopam pin add -yn eio_posix.dev './' && \
\nopam pin add -yn eio_main.dev './' && \
\nopam pin add -yn eio_linux.dev './' && \
\nopam pin add -yn eio.dev './'"))
(env DEPS "afl-persistent.1.4 alcotest.1.8.0 astring.0.8.5 backoff.0.1.1 base-bigarray.base base-bytes.base base-domains.base base-nnp.base base-threads.base base-unix.base bigstringaf.0.10.0 camlp-streams.5.0.1 cmdliner.1.3.0 containers.3.14 cppo.1.7.0 crowbar.0.2.1 csexp.1.5.2 cstruct.6.2.0 domain-local-await.1.0.1 domain-local-timeout.1.0.1 dscheck.0.5.0 dune.3.16.0 dune-configurator.3.16.0 either.1.0.0 fmt.0.9.0 hmap.0.8.1 host-arch-x86_64.1 host-system-other.1 iomux.0.3 kcas.0.7.0 logs.0.7.0 lwt-dllist.1.0.1 mdx.2.4.1 mtime.2.1.0 multicore-magic.2.3.0 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml-syntax-shims.1.0.0 ocaml-version.3.6.9 ocamlbuild.0.15.0 ocamlfind.1.9.6 ocplib-endian.1.2 optint.0.3.0 oseq.0.5.1 psq.0.2.1 re.1.12.0 result.1.5 seq.base stdlib-shims.0.3.0 thread-table.1.0.0 topkg.1.0.7 tsort.2.1.0 uring.0.9 uutf.1.0.3 yojson.2.2.2")
(env CI true)
(env OCAMLCI true)
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam update --depexts && opam install --cli=2.2 --depext-only -y eio_windows.dev eio_posix.dev eio_main.dev eio_linux.dev eio.dev $DEPS"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam install $DEPS"))
(copy (src .) (dst /src))
(run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build"))
)


2024-10-31 08:50.33: Waiting for resource in pool OCluster
2024-10-31 08:50.33: Waiting for worker…
2024-10-31 08:51.36: Got resource from pool OCluster
Building on x86-bm-c5.sw.ocaml.org
All commits already cached
HEAD is now at 953f3de Update fs.md


(from ocaml/opam:alpine-3.20-ocaml-5.2@sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3)
Unable to find image 'ocaml/opam:alpine-3.20-ocaml-5.2@sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3' locally
docker.io/ocaml/opam@sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3: Pulling from ocaml/opam
0633ffa89fe4: Pulling fs layer
0633ffa89fe4: Verifying Checksum
0633ffa89fe4: Download complete
0633ffa89fe4: Pull complete
Digest: sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3
Status: Downloaded newer image for ocaml/opam@sha256:71df2e5aaad72c8272f9ef429b10442e240e9e06c5c9cfd5b8afd74f0688abd3
2024-10-31 08:53.47 ---> saved as "9e024342dba2b0577baa3b159e17fee223c31f0c750d40466894a3b6f35c8915"


/: (comment alpine-3.20-5.2_opam-2.2)


/: (user (uid 1000) (gid 1000))


/: (env CLICOLOR_FORCE 1)


/: (env OPAMCOLOR always)


/: (workdir /src)


/src: (run (shell "sudo ln -f /usr/bin/opam-2.2 /usr/bin/opam"))
2024-10-31 08:53.47 ---> saved as "6e7d1d279a66d4da46d1af479ae8c5b5fd9684c3b059a94697cdf6e9e5d7d965"


/src: (run (shell "opam init --reinit -ni"))
Configuring from /home/opam/.opamrc and then from built-in defaults.
Checking for available remotes: rsync and local, git.
- you won't be able to use mercurial repositories unless you install the hg command on your system.
- you won't be able to use darcs repositories unless you install the darcs command on your system.


This development version of opam requires an update to the layout of /home/opam/.opam from version 2.0 to version 2.2, which can't be reverted.
You may want to back it up before going further.


Continue? [y/n] y
[NOTE] The 'jobs' option was reset, its value was 255 and its new value will vary according to the current number of cores on your machine. You can restore the fixed value using:
opam option jobs=255 --global
Format upgrade done.


<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
2024-10-31 08:55.14 ---> saved as "4a6bf24edc5172909fdaa7d432c6b0aa7c6ddad47b26133c17e731338c757617"


/src: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
Linux 5.15.0-122-generic
The OCaml toplevel, version 5.2.0
2.2.1
2024-10-31 08:55.15 ---> saved as "f925a37a0be7ea0e89f9b428a6059c2974a2a2e40dce3df77c9fb2b594ee414b"


/src: (workdir /src)


/src: (run (shell "sudo chown opam /src"))
2024-10-31 08:55.15 ---> saved as "6b67a6fc075d84b4fcc549d6001bd9c2ccf85fbb529576d8dc60ec7c1bb87be5"


/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e b876d7d37014df697368765c088aa86d24dc8b6b || git fetch origin master) && git reset -q --hard b876d7d37014df697368765c088aa86d24dc8b6b && git log --no-decorate -n1 --oneline && opam update -u"))
From https://github.com/ocaml/opam-repository
* branch                  master     -> FETCH_HEAD
75006f8c5e..d872638bdf  master     -> origin/master
b876d7d370 Merge pull request #26641 from polytypic/release-backoff-0.1.1


<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository


Everything as up-to-date as possible (run with --verbose to show unavailable upgrades).
However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages.
Nothing to do.
# Run eval $(opam env) to update the current shell environment
2024-10-31 08:56.51 ---> saved as "67ccd7275bd8022e6d799d386fff4409279407b9171ea40d5ab941a1e28b4d11"


/src: (copy (src eio_windows.opam eio_posix.opam eio_main.opam eio_linux.opam eio.opam)
(dst ./))
2024-10-31 08:56.51 ---> saved as "26869f6e45a260e2f762a1a95599a26e3d584a60af78a05469e18cbe44924a01"


/src: (run (network host)
(shell  "opam pin add -yn eio_windows.dev './' && \
\nopam pin add -yn eio_posix.dev './' && \
\nopam pin add -yn eio_main.dev './' && \
\nopam pin add -yn eio_linux.dev './' && \
\nopam pin add -yn eio.dev './'"))
[eio_windows.dev] synchronised (file:///src)
eio_windows is now pinned to file:///src (version dev)
[eio_posix.dev] synchronised (file:///src)
eio_posix is now pinned to file:///src (version dev)
[eio_main.dev] synchronised (file:///src)
eio_main is now pinned to file:///src (version dev)
[eio_linux.dev] synchronised (file:///src)
eio_linux is now pinned to file:///src (version dev)
[eio.dev] synchronised (file:///src)
eio is now pinned to file:///src (version dev)
2024-10-31 08:57.14 ---> saved as "fa524a0999ad29ec331237f4513f664948081c4fca737e1e0391120db8e74a3d"


/src: (env DEPS "afl-persistent.1.4 alcotest.1.8.0 astring.0.8.5 backoff.0.1.1 base-bigarray.base base-bytes.base base-domains.base base-nnp.base base-threads.base base-unix.base bigstringaf.0.10.0 camlp-streams.5.0.1 cmdliner.1.3.0 containers.3.14 cppo.1.7.0 crowbar.0.2.1 csexp.1.5.2 cstruct.6.2.0 domain-local-await.1.0.1 domain-local-timeout.1.0.1 dscheck.0.5.0 dune.3.16.0 dune-configurator.3.16.0 either.1.0.0 fmt.0.9.0 hmap.0.8.1 host-arch-x86_64.1 host-system-other.1 iomux.0.3 kcas.0.7.0 logs.0.7.0 lwt-dllist.1.0.1 mdx.2.4.1 mtime.2.1.0 multicore-magic.2.3.0 ocaml.5.2.0 ocaml-base-compiler.5.2.0 ocaml-config.3 ocaml-options-vanilla.1 ocaml-syntax-shims.1.0.0 ocaml-version.3.6.9 ocamlbuild.0.15.0 ocamlfind.1.9.6 ocplib-endian.1.2 optint.0.3.0 oseq.0.5.1 psq.0.2.1 re.1.12.0 result.1.5 seq.base stdlib-shims.0.3.0 thread-table.1.0.0 topkg.1.0.7 tsort.2.1.0 uring.0.9 uutf.1.0.3 yojson.2.2.2")


/src: (env CI true)


/src: (env OCAMLCI true)


/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam update --depexts && opam install --cli=2.2 --depext-only -y eio_windows.dev eio_posix.dev eio_main.dev eio_linux.dev eio.dev $DEPS"))
+ /usr/bin/sudo "apk" "update"
- fetch https://dl-cdn.alpinelinux.org/alpine/v3.20/main/x86_64/APKINDEX.tar.gz
- fetch https://dl-cdn.alpinelinux.org/alpine/v3.20/community/x86_64/APKINDEX.tar.gz
- fetch https://dl-cdn.alpinelinux.org/alpine/edge/main/x86_64/APKINDEX.tar.gz
- fetch https://dl-cdn.alpinelinux.org/alpine/edge/community/x86_64/APKINDEX.tar.gz
- fetch https://dl-cdn.alpinelinux.org/alpine/edge/testing/x86_64/APKINDEX.tar.gz
- v3.20.3-235-gcfe78cf5f7a [https://dl-cdn.alpinelinux.org/alpine/v3.20/main]
- v3.20.3-238-gec151eee3c7 [https://dl-cdn.alpinelinux.org/alpine/v3.20/community]
- v20240923-3253-gc08e20cfa1d [https://dl-cdn.alpinelinux.org/alpine/edge/main]
- v20240923-3255-g5ec870cdf56 [https://dl-cdn.alpinelinux.org/alpine/edge/community]
- v20240923-3248-g12374870a8f [https://dl-cdn.alpinelinux.org/alpine/edge/testing]
- OK: 55790 distinct packages available


<><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><>
[eio.dev] synchronised (no changes)
[eio_linux.dev] synchronised (no changes)
[eio_main.dev] synchronised (no changes)
[eio_posix.dev] synchronised (no changes)
[eio_windows.dev] synchronised (no changes)


[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 3).
[NOTE] Package ocaml-base-compiler is already installed (current version is 5.2.0).
[NOTE] Package ocaml is already installed (current version is 5.2.0).
[NOTE] Package host-system-other is already installed (current version is 1).
[NOTE] Package host-arch-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-domains is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).


The following system packages will first need to be installed:
linux-headers


<><> Handling external dependencies <><><><><><><><><><><><><><><><><><><><><><>


+ /usr/bin/sudo "apk" "add" "linux-headers"
- (1/1) Installing linux-headers (6.6-r0)
- OK: 301 MiB in 102 packages
2024-10-31 08:57.50 ---> saved as "fba4d0242989dd02521e51fcb6d670dbd2372c875bb62f7c39fa04de8a3339f8"


/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam install $DEPS"))
[NOTE] Package ocaml-options-vanilla is already installed (current version is 1).
[NOTE] Package ocaml-config is already installed (current version is 3).
[NOTE] Package ocaml-base-compiler is already installed (current version is 5.2.0).
[NOTE] Package ocaml is already installed (current version is 5.2.0).
[NOTE] Package host-system-other is already installed (current version is 1).
[NOTE] Package host-arch-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-domains is already installed (current version is base).
[NOTE] Package base-bigarray is already installed (current version is base).
The following actions will be performed:
=== install 46 packages
- install afl-persistent       1.4
- install alcotest             1.8.0
- install astring              0.8.5
- install backoff              0.1.1
- install base-bytes           base
- install bigstringaf          0.10.0
- install camlp-streams        5.0.1
- install cmdliner             1.3.0
- install containers           3.14
- install cppo                 1.7.0
- install crowbar              0.2.1
- install csexp                1.5.2
- install cstruct              6.2.0
- install domain-local-await   1.0.1
- install domain-local-timeout 1.0.1
- install dscheck              0.5.0
- install dune                 3.16.0
- install dune-configurator    3.16.0
- install either               1.0.0
- install fmt                  0.9.0
- install hmap                 0.8.1
- install iomux                0.3
- install kcas                 0.7.0
- install logs                 0.7.0
- install lwt-dllist           1.0.1
- install mdx                  2.4.1
- install mtime                2.1.0
- install multicore-magic      2.3.0
- install ocaml-syntax-shims   1.0.0
- install ocaml-version        3.6.9
- install ocamlbuild           0.15.0
- install ocamlfind            1.9.6
- install ocplib-endian        1.2
- install optint               0.3.0
- install oseq                 0.5.1
- install psq                  0.2.1
- install re                   1.12.0
- install result               1.5
- install seq                  base
- install stdlib-shims         0.3.0
- install thread-table         1.0.0
- install topkg                1.0.7
- install tsort                2.1.0
- install uring                0.9
- install uutf                 1.0.3
- install yojson               2.2.2


<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> retrieved afl-persistent.1.4  (cached)
-> retrieved astring.0.8.5  (cached)
-> retrieved backoff.0.1.1  (cached)
-> retrieved bigstringaf.0.10.0  (cached)
-> retrieved camlp-streams.5.0.1  (cached)
-> retrieved alcotest.1.8.0  (cached)
-> retrieved cmdliner.1.3.0  (cached)
-> retrieved containers.3.14  (cached)
-> retrieved cppo.1.7.0  (cached)
-> retrieved crowbar.0.2.1  (cached)
-> retrieved csexp.1.5.2  (cached)
-> retrieved domain-local-await.1.0.1  (cached)
-> retrieved domain-local-timeout.1.0.1  (cached)
-> retrieved dscheck.0.5.0  (cached)
-> retrieved cstruct.6.2.0  (cached)
-> retrieved either.1.0.0  (cached)
-> retrieved fmt.0.9.0  (cached)
-> retrieved hmap.0.8.1  (cached)
-> retrieved iomux.0.3  (cached)
-> retrieved kcas.0.7.0  (cached)
-> retrieved logs.0.7.0  (cached)
-> retrieved lwt-dllist.1.0.1  (cached)
-> retrieved mtime.2.1.0  (cached)
-> retrieved multicore-magic.2.3.0  (cached)
-> retrieved mdx.2.4.1  (cached)
-> retrieved ocaml-syntax-shims.1.0.0  (cached)
-> retrieved ocaml-version.3.6.9  (cached)
-> retrieved ocamlbuild.0.15.0  (cached)
-> retrieved ocamlfind.1.9.6  (cached)
-> retrieved ocplib-endian.1.2  (cached)
-> retrieved optint.0.3.0  (cached)
-> retrieved psq.0.2.1  (cached)
-> retrieved oseq.0.5.1  (cached)
-> retrieved result.1.5  (cached)
-> retrieved seq.base  (cached)
-> installed seq.base
-> retrieved stdlib-shims.0.3.0  (cached)
-> retrieved thread-table.1.0.0  (cached)
-> retrieved re.1.12.0  (cached)
-> retrieved tsort.2.1.0  (cached)
-> retrieved topkg.1.0.7  (cached)
-> retrieved uring.0.9  (cached)
-> retrieved uutf.1.0.3  (cached)
-> retrieved dune.3.16.0, dune-configurator.3.16.0  (cached)
-> retrieved yojson.2.2.2  (cached)
-> installed cmdliner.1.3.0
-> installed ocamlbuild.0.15.0
-> installed ocamlfind.1.9.6
-> installed base-bytes.base
-> installed topkg.1.0.7
-> installed hmap.0.8.1
-> installed uutf.1.0.3
-> installed fmt.0.9.0
-> installed mtime.2.1.0
-> installed astring.0.8.5
-> installed logs.0.7.0
-> installed dune.3.16.0
-> installed lwt-dllist.1.0.1
-> installed csexp.1.5.2
-> installed backoff.0.1.1
-> installed camlp-streams.5.0.1
-> installed cstruct.6.2.0
-> installed either.1.0.0
-> installed multicore-magic.2.3.0
-> installed ocaml-version.3.6.9
-> installed optint.0.3.0
-> installed cppo.1.7.0
-> installed oseq.0.5.1
-> installed psq.0.2.1
-> installed result.1.5
-> installed stdlib-shims.0.3.0
-> installed thread-table.1.0.0
-> installed ocaml-syntax-shims.1.0.0
-> installed tsort.2.1.0
-> installed afl-persistent.1.4
-> installed re.1.12.0
-> installed domain-local-timeout.1.0.1
-> installed ocplib-endian.1.2
-> installed domain-local-await.1.0.1
-> installed yojson.2.2.2
-> installed crowbar.0.2.1
-> installed kcas.0.7.0
-> installed alcotest.1.8.0
-> installed dune-configurator.3.16.0
-> installed bigstringaf.0.10.0
-> installed iomux.0.3
-> installed mdx.2.4.1
-> installed containers.3.14
-> installed uring.0.9
-> installed dscheck.0.5.0
Done.


<><> afl-persistent.1.4 installed successfully ><><><><><><><><><><><><><><><><>
=> afl-persistent is installed, but since the current OCaml compiler does
not enable AFL instrumentation by default, most packages will not be
instrumented and fuzzing with afl-fuzz may not be effective.


To globally enable AFL instrumentation, create an OCaml switch like:


opam switch create 5.2.0+afl ocaml-variants.5.2.0+options ocaml-option-afl
# Run eval $(opam env) to update the current shell environment
2024-10-31 08:59.53 ---> saved as "97bae6387cdfbd4189c8c59ab5f7d6e4fd47a6b02a3333a45cdef6a1bfb44176"


/src: (copy (src .) (dst /src))
2024-10-31 08:59.53 ---> saved as "c39c81aff81e11adc7c7d9b84c143658ac55f3f251032f16087d0456f3777ad9"


/src: (run (shell "opam exec -- dune build @install @check @runtest && rm -rf _build"))
(cd _build/default/fuzz && ./fuzz_inherit_fds.exe)
inherit_fds: PASS


(cd _build/default/fuzz && ./fuzz_buf_read.exe)
random ops: PASS


(cd _build/default/fuzz && ./fuzz_buf_write.exe)
random ops: PASS


File "lib_eio_linux/tests/dune", line 42, characters 7-11:
42 |  (name test)
^^^^
(cd _build/default/lib_eio_linux/tests && ./test.exe)
Testing `eio_linux'.
This run has ID `13XMJR14'.


[OK]          io          0   copy.
[OK]          io          1   direct_copy.
[OK]          io          2   poll_add.
[OK]          io          3   poll_add_busy.
[OK]          io          4   iovec.
[OK]          io          5   no_sqe.
[SKIP]        io          6   read_exact.
[OK]          io          7   expose_backend.
[OK]          io          8   statx.
[OK]          io          9   signal_race.
[FAIL]        io         10   alloc-fixed-or-wait.


┌──────────────────────────────────────────────────────────────────────────────┐
│ [FAIL]        io         10   alloc-fixed-or-wait.                           │
└──────────────────────────────────────────────────────────────────────────────┘
[failure] No fixed buffer available
Raised at Stdlib.failwith in file "stdlib.ml", line 29, characters 17-33
Called from Dune__exe__Test.test_alloc_fixed_or_wait.(fun) in file "lib_eio_linux/tests/test.ml", line 216, characters 14-56
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
Called from Eio_linux__Sched.run.(fun) in file "lib_eio_linux/sched.ml", line 468, characters 22-90
Re-raised at Eio_linux__Sched.run in file "lib_eio_linux/sched.ml", line 479, characters 22-57
Called from Eio_linux__Sched.with_eventfd in file "lib_eio_linux/sched.ml", line 506, characters 8-18
Re-raised at Eio_linux__Sched.with_eventfd in file "lib_eio_linux/sched.ml", line 511, characters 4-39
Called from Eio_linux__Sched.with_sched in file "lib_eio_linux/sched.ml", lines 543-545, characters 8-109
Re-raised at Eio_linux__Sched.with_sched in file "lib_eio_linux/sched.ml", line 556, characters 8-43
Called from Alcotest_engine__Core.Make.protect_test.(fun) in file "src/alcotest-engine/core.ml", line 186, characters 17-23
Called from Alcotest_engine__Monad.Identity.catch in file "src/alcotest-engine/monad.ml", line 24, characters 31-35


Logs saved to `/src/_build/default/lib_eio_linux/tests/_build/_tests/eio_linux/io.010.output'.
──────────────────────────────────────────────────────────────────────────────


Full test results in `/src/_build/default/lib_eio_linux/tests/_build/_tests/eio_linux'.
1 failure! in 0.043s. 10 tests run.
File "tests/fs.md", line 1, characters 0-0:
/usr/bin/git --no-pager diff --no-index --color=always -u _build/default/tests/fs.md _build/default/tests/.mdx/fs.md.corrected
diff --git a/_build/default/tests/fs.md b/_build/default/tests/.mdx/fs.md.corrected
index 6bde2a9..9e70c6d 100644
--- a/_build/default/tests/fs.md
+++ b/_build/default/tests/.mdx/fs.md.corrected
@@ -103,6 +103,16 @@ let try_chmod ~context ~follow ~perm path =
Eio.Std.traceln "@[<h>%a@]" Eio.Exn.pp ex


```
+```mdx-error
+Line 91, characters 7-48:
+Error: The function Eio.Path.chmod has type
+         follow:bool -> perm:int -> [> Eio__.Fs.dir_ty ] Eio.Path.t -> unit
+       It is applied to too many arguments
+Line 91, characters 28-30:
+  Hint: Did you forget a ';'?
+Line 91, characters 44-48:
+  This extra argument is not expected.
+```


# Basic test cases


@@ -113,16 +123,15 @@ Creating a file and reading it back:
let cwd = Eio.Stdenv.cwd env in
Path.save ~create:(`Exclusive 0o666) (cwd / "test-file") "my-data";
traceln "Got %S" @@ Path.load (cwd / "test-file");;
-+Got "my-data"
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Check the file got the correct permissions (subject to the umask set above):


```ocaml
# Printf.printf "Perm = %o\n" ((Unix.stat "test-file").st_perm);;
-Perm = 644
-- : unit = ()
+Exception: Unix.Unix_error(Unix.ENOENT, "stat", "test-file")
```


# Sandboxing
@@ -134,8 +143,8 @@ Trying to use cwd to access a file outside of that subtree fails:
let cwd = Eio.Stdenv.cwd env in
Path.save ~create:(`Exclusive 0o666) (cwd / "../test-file") "my-data";
failwith "Should have failed";;
-Exception: Eio.Io Fs Permission_denied _,
-  opening <cwd:../test-file>
+Line 1, characters 1-4:
+Error: Unbound value run
```


Trying to use cwd to access an absolute path fails:
@@ -145,8 +154,8 @@ Trying to use cwd to access an absolute path fails:
let cwd = Eio.Stdenv.cwd env in
Path.save ~create:(`Exclusive 0o666) (cwd / "/tmp/test-file") "my-data";
failwith "Should have failed";;
-Exception: Eio.Io Fs Permission_denied _,
-  opening <cwd:/tmp/test-file>
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Creation modes
@@ -159,8 +168,8 @@ Exclusive create fails if already exists:
Path.save ~create:(`Exclusive 0o666) (cwd / "test-file") "first-write";
Path.save ~create:(`Exclusive 0o666) (cwd / "test-file") "first-write";
failwith "Should have failed";;
-Exception: Eio.Io Fs Already_exists _,
-  opening <cwd:test-file>
+Line 1, characters 1-4:
+Error: Unbound value run
```


If-missing create succeeds if already exists:
@@ -172,8 +181,8 @@ If-missing create succeeds if already exists:
Path.save ~create:(`If_missing 0o666) test_file "1st-write-original";
Path.save ~create:(`If_missing 0o666) test_file "2nd-write";
traceln "Got %S" @@ Path.load test_file;;
-+Got "2nd-write-original"
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Truncate create succeeds if already exists, and truncates:
@@ -185,10 +194,10 @@ Truncate create succeeds if already exists, and truncates:
Path.save ~create:(`Or_truncate 0o666) test_file "1st-write-original";
Path.save ~create:(`Or_truncate 0o666) test_file "2nd-write";
traceln "Got %S" @@ Path.load test_file;;
-+Got "2nd-write"
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
# Unix.unlink "test-file";;
-- : unit = ()
+Exception: Unix.Unix_error(Unix.ENOENT, "unlink", "test-file")
```


Error if no create and doesn't exist:
@@ -199,8 +208,8 @@ Error if no create and doesn't exist:
let test_file = (cwd / "test-file") in
Path.save ~create:`Never test_file "1st-write-original";
traceln "Got %S" @@ Path.load test_file;;
-Exception: Eio.Io Fs Not_found _,
-  opening <cwd:test-file>
+Line 1, characters 1-4:
+Error: Unbound value run
```


Appending to an existing file:
@@ -212,10 +221,10 @@ Appending to an existing file:
Path.save ~create:(`Or_truncate 0o666) test_file "1st-write-original";
Path.save ~create:`Never ~append:true test_file "2nd-write";
traceln "Got %S" @@ Path.load test_file;;
-+Got "1st-write-original2nd-write"
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
# Unix.unlink "test-file";;
-- : unit = ()
+Exception: Unix.Unix_error(Unix.ENOENT, "unlink", "test-file")
```


# Mkdir
@@ -227,13 +236,12 @@ Appending to an existing file:
try_mkdir (cwd / "subdir/nested");
Path.save ~create:(`Exclusive 0o600) (cwd / "subdir/nested/test-file") "data";
();;
-+mkdir <cwd:subdir> -> ok
-+mkdir <cwd:subdir/nested> -> ok
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
# Unix.unlink "subdir/nested/test-file";
Unix.rmdir "subdir/nested";
Unix.rmdir "subdir";;
-- : unit = ()
+Exception: Unix.Unix_error(Unix.ENOENT, "unlink", "subdir/nested/test-file")
```


Creating directories with nesting, symlinks, etc:
@@ -251,13 +259,8 @@ Creating directories with nesting, symlinks, etc:
try_mkdir (cwd / "to-subdir");
try_mkdir (cwd / "dangle/foo");
();;
-+mkdir <cwd:subdir> -> ok
-+mkdir <cwd:to-subdir/nested> -> ok
-+Eio.Io Fs Permission_denied _, creating directory <cwd:to-root/tmp/foo>
-+Eio.Io Fs Permission_denied _, creating directory <cwd:../foo>
-+Eio.Io Fs Already_exists _, creating directory <cwd:to-subdir>
-+Eio.Io Fs Not_found _, creating directory <cwd:dangle/foo>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Split
@@ -266,40 +269,55 @@ Creating directories with nesting, symlinks, etc:
let fake_dir : Eio.Fs.dir_ty r = Eio.Resource.T ((), Eio.Resource.handler [])
let split path = Eio.Path.split (fake_dir, path) |> Option.map (fun ((_, dirname), basename) -> dirname, basename)
```
+```mdx-error
+Line 1, characters 30-31:
+Error: Unbound type constructor r
+```


```ocaml
# split "foo/bar";
-- : (string * string) option = Some ("foo", "bar")
+Line 1, characters 1-6:
+Error: Unbound value split


# split "/foo/bar";
-- : (string * string) option = Some ("/foo", "bar")
+Line 1, characters 1-6:
+Error: Unbound value split


# split "/foo/bar/baz";
-- : (string * string) option = Some ("/foo/bar", "baz")
+Line 1, characters 1-6:
+Error: Unbound value split


# split "/foo/bar//baz/";
-- : (string * string) option = Some ("/foo/bar", "baz")
+Line 1, characters 1-6:
+Error: Unbound value split


# split "bar";
-- : (string * string) option = Some ("", "bar")
+Line 1, characters 1-6:
+Error: Unbound value split


# split "/bar";
-- : (string * string) option = Some ("/", "bar")
+Line 1, characters 1-6:
+Error: Unbound value split


# split ".";
-- : (string * string) option = Some ("", ".")
+Line 1, characters 1-6:
+Error: Unbound value split


# split "./";
-- : (string * string) option = Some ("", ".")
+Line 1, characters 1-6:
+Error: Unbound value split


# split "";
-- : (string * string) option = None
+Line 1, characters 1-6:
+Error: Unbound value split


# split "/";
-- : (string * string) option = None
+Line 1, characters 1-6:
+Error: Unbound value split


# split "///";
-- : (string * string) option = None
+Line 1, characters 1-6:
+Error: Unbound value split
```


# Mkdirs
@@ -318,12 +336,8 @@ Recursively creating directories with `mkdirs`.
try_mkdirs one_more;
assert (Eio.Path.is_directory one_more);
try_mkdirs (cwd / ".." / "outside");
-+mkdirs <cwd:subdir1/subdir2/subdir3> -> ok
-+mkdirs <cwd:subdir1/subdir2/subdir3/subdir4> -> ok
-+mkdirs <cwd:subdir1/subdir2/subdir3/subdir4> -> ok
-+Eio.Io Fs Already_exists _, creating directory <cwd:subdir1/subdir2/subdir3/subdir4>
-+Eio.Io Fs Permission_denied _, examining <cwd:..>, creating directory <cwd:../outside>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Some edge cases for `mkdirs`.
@@ -337,11 +351,8 @@ Some edge cases for `mkdirs`.
try_mkdirs (cwd / lots_of_slashes);
assert (Eio.Path.is_directory (cwd / lots_of_slashes));
try_mkdirs (cwd / "..");;
-+Eio.Io Fs Already_exists _, creating directory <cwd:.>
-+Eio.Io Fs Already_exists _, creating directory <cwd:././>
-+mkdirs <cwd:./test//////////////test> -> ok
-+Eio.Io Fs Permission_denied _, creating directory <cwd:..>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Unlink
@@ -365,16 +376,8 @@ You can remove a file using unlink:
try_write_file ~create:(`Exclusive 0o600) (cwd / "subdir/file2") "data2";
try_unlink (cwd / "to-subdir/file2");
try_read_file (cwd / "subdir/file2");;
-+read <cwd:file> -> "data"
-+read <cwd:subdir/file2> -> "data2"
-+unlink <cwd:file> -> ok
-+unlink <cwd:subdir/file2> -> ok
-+Eio.Io Fs Not_found _, opening <cwd:file>
-+Eio.Io Fs Not_found _, opening <cwd:subdir/file2>
-+write <cwd:subdir/file2> -> ok
-+unlink <cwd:to-subdir/file2> -> ok
-+Eio.Io Fs Not_found _, opening <cwd:subdir/file2>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Removing something that doesn't exist or is out of scope:
@@ -387,11 +390,8 @@ Removing something that doesn't exist or is out of scope:
try_unlink (cwd / "../foo");
try_unlink (cwd / "to-subdir/foo");
try_unlink (cwd / "to-root/foo");;
-+Eio.Io Fs Not_found _, removing file <cwd:missing>
-+Eio.Io Fs Permission_denied _, removing file <cwd:../foo>
-+Eio.Io Fs Not_found _, removing file <cwd:to-subdir/foo>
-+Eio.Io Fs Permission_denied _, removing file <cwd:to-root/foo>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Reads and writes follow symlinks, but unlink operates on the symlink itself:
@@ -431,22 +431,8 @@ Reads and writes follow symlinks, but unlink operates on the symlink itself:
Path.unlink (cwd / "link1");
Path.unlink (cwd / "linkdir");
Path.unlink (cwd / "linkroot")
-+mkdir <cwd:dir1> -> ok
-+write <cwd:dir1/file1> -> ok
-+write <cwd:file2> -> ok
-+read <cwd:dir1/file1> -> "data1"
-+read <cwd:link1> -> "data1"
-+read <cwd:linkdir/file1> -> "data1"
-+<cwd:dir1/file1> -> regular file
-+<cwd:link1> -> symbolic link / regular file
-+<cwd:linkdir> -> symbolic link / directory
-+<cwd:linkroot> -> symbolic link / Fs Permission_denied _
-+<fs:linkroot> -> symbolic link / directory
-+chdir "dir1"
-+read <cwd:file1> -> "data1"
-+chdir ".."
-+read <cwd:file2> -> "data2"
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Rmdir
@@ -468,18 +454,8 @@ Similar to `unlink`, but works on directories:
try_mkdir (cwd / "subdir/d3");
try_rmdir (cwd / "to-subdir/d3");
try_read_dir (cwd / "subdir/d3");;
-+mkdir <cwd:d1> -> ok
-+mkdir <cwd:subdir/d2> -> ok
-+read_dir <cwd:d1> -> []
-+read_dir <cwd:subdir/d2> -> []
-+rmdir <cwd:d1> -> ok
-+rmdir <cwd:subdir/d2> -> ok
-+Eio.Io Fs Not_found _, reading directory <cwd:d1>
-+Eio.Io Fs Not_found _, reading directory <cwd:subdir/d2>
-+mkdir <cwd:subdir/d3> -> ok
-+rmdir <cwd:to-subdir/d3> -> ok
-+Eio.Io Fs Not_found _, reading directory <cwd:subdir/d3>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Removing something that doesn't exist or is out of scope:
@@ -492,11 +468,8 @@ Removing something that doesn't exist or is out of scope:
try_rmdir (cwd / "../foo");
try_rmdir (cwd / "to-subdir/foo");
try_rmdir (cwd / "to-root/foo");;
-+Eio.Io Fs Not_found _, removing directory <cwd:missing>
-+Eio.Io Fs Permission_denied _, removing directory <cwd:../foo>
-+Eio.Io Fs Not_found _, removing directory <cwd:to-subdir/foo>
-+Eio.Io Fs Permission_denied _, removing directory <cwd:to-root/foo>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Recursive removal
@@ -514,14 +487,8 @@ Removing something that doesn't exist or is out of scope:
try_rmtree ~missing_ok:true foo;
traceln "But not without:";
try_rmtree ~missing_ok:false foo;
-+mkdirs <cwd:foo/bar/baz> -> ok
-+write <cwd:foo/bar/file1> -> ok
-+rmtree <cwd:foo> -> ok
-+A second rmtree is OK with missing_ok:
-+rmtree <cwd:foo> -> ok
-+But not without:
-+Eio.Io Fs Not_found _, removing file <cwd:foo>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Limiting to a subdirectory
@@ -537,10 +504,8 @@ Create a sandbox, write a file with it, then read it from outside:
Path.save ~create:(`Exclusive 0o600) (subdir / "test-file") "data";
try_mkdir (subdir / "../new-sandbox");
traceln "Got %S" @@ Path.load (cwd / "sandbox/test-file");;
-+mkdir <cwd:sandbox> -> ok
-+Eio.Io Fs Permission_denied _, creating directory <sandbox:../new-sandbox>
-+Got "data"
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


```ocaml
@@ -570,17 +535,8 @@ Create a sandbox, write a file with it, then read it from outside:
Path.symlink ~link_to:"/" (cwd / "foo/root");
reject (cwd / "foo/root/..");
reject (cwd / "missing");
-+open_dir <cwd:foo/bar> -> OK
-+Eio.Io Fs Permission_denied _, opening directory <cwd:..>
-+open_dir <cwd:.> -> OK
-+Eio.Io Fs Permission_denied _, opening directory <cwd:/>
-+open_dir <cwd:foo/bar/..> -> OK
-+open_dir <fs:foo/bar> -> OK
-+open_dir <cwd:foo/up/foo/bar> -> OK
-+Eio.Io Fs Permission_denied _, opening directory <cwd:foo/up/../bar>
-+Eio.Io Fs Permission_denied _, opening directory <cwd:foo/root/..>
-+Eio.Io Fs Not_found _, opening directory <cwd:missing>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run


# Eio.Exn.Backend.show := false
- : unit = ()
@@ -605,14 +561,8 @@ Using `cwd` we can't access the parent, but using `fs` we can:
);
Unix.unlink "test-file";
Unix.rmdir "outside-cwd";;
-+mkdir <cwd:fs-test> -> ok
-+chdir "fs-test"
-+Eio.Io Fs Permission_denied _, creating directory <cwd:../outside-cwd>
-+Eio.Io Fs Permission_denied _, opening <cwd:../test-file>
-+mkdir <fs:../outside-cwd> -> ok
-+write <fs:../test-file> -> ok
-+chdir ".."
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Reading directory entries under `cwd` and outside of `cwd`.
@@ -631,16 +581,8 @@ Reading directory entries under `cwd` and outside of `cwd`.
try_read_dir (tmpdir / "test-3");
Path.symlink ~link_to:"test-1" (cwd / "readdir/link-1");
try_read_dir (tmpdir / "link-1");
-+mkdir <cwd:readdir> -> ok
-+mkdir <readdir:test-1> -> ok
-+mkdir <readdir:test-2> -> ok
-+write <readdir:test-1/file> -> ok
-+read_dir <readdir> -> ["test-1"; "test-2"]
-+read_dir <readdir:.> -> ["test-1"; "test-2"]
-+Eio.Io Fs Permission_denied _, reading directory <readdir:..>
-+Eio.Io Fs Not_found _, reading directory <readdir:test-3>
-+read_dir <readdir:link-1> -> ["file"]
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


An error from the underlying directory, not the sandbox:
@@ -648,14 +590,15 @@ An error from the underlying directory, not the sandbox:
```ocaml
# run ~clear:["test-no-access"] @@ fun env ->
Unix.mkdir "test-no-access" 0;;
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
# run @@ fun env ->
let cwd = Eio.Stdenv.cwd env in
try_read_dir (cwd / "test-no-access");;
-+Eio.Io Fs Permission_denied _, reading directory <cwd:test-no-access>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
# Unix.chmod "test-no-access" 0o700;;
-- : unit = ()
+Exception: Unix.Unix_error(Unix.ENOENT, "chmod", "test-no-access")
```


Can use `fs` to access absolute paths:
@@ -669,10 +612,8 @@ Can use `fs` to access absolute paths:
traceln "Read %S and got %S" Filename.null (Buffer.contents b);
traceln "Trying with cwd instead fails:";
Path.with_open_in (cwd / Filename.null) (fun flow -> Eio.Flow.copy flow (Eio.Flow.buffer_sink b));;;
-+Read "/dev/null" and got ""
-+Trying with cwd instead fails:
-Exception: Eio.Io Fs Permission_denied _,
-  opening <cwd:/dev/null>
+Line 1, characters 1-4:
+Error: Unbound value run
```


Symlinking and sandboxing:
@@ -688,14 +629,8 @@ Symlinking and sandboxing:
try_symlink ~link_to:"hello.txt" (cwd / "world.txt");
try_symlink ~link_to:"/" (cwd / "root");
try_read_dir (cwd / "root");;
-+Eio.Io Fs Permission_denied _, creating symlink <cwd:../world.txt> -> hello.txt
-+Eio.Io Fs Permission_denied _, creating symlink <cwd:/world.txt> -> hello.txt
-+symlink <cwd:world.txt> -> "hello.txt"
-+world.txt -> hello.txt: Hello World!
-+Eio.Io Fs Already_exists _, creating symlink <cwd:world.txt> -> hello.txt
-+symlink <cwd:root> -> "/"
-+Eio.Io Fs Permission_denied _, reading directory <cwd:root>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


## Streamling lines
@@ -707,10 +642,8 @@ Symlinking and sandboxing:
Path.with_lines (cwd / "test-data") (fun lines ->
Seq.iter (traceln "Line: %s") lines
);;
-+Line: one
-+Line: two
-+Line: three
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Unix interop
@@ -728,8 +661,8 @@ We can get the Unix FD from the flow and use it directly:
let got = Unix.read fd (Bytes.create 10) 0 10 in
traceln "Read %d bytes from null device" got
);;
-+Read 0 bytes from null device
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


We can also remove it from the flow completely and take ownership of it.
@@ -744,8 +677,8 @@ In that case, `with_open_in` will no longer close it on exit:
let got = Unix.read fd (Bytes.create 10) 0 10 in
traceln "Read %d bytes from null device" got;
Unix.close fd;;
-+Read 0 bytes from null device
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Use after close
@@ -756,8 +689,8 @@ In that case, `with_open_in` will no longer close it on exit:
try
failwith (Path.read_dir closed |> String.concat ",")
with Invalid_argument _ -> traceln "Got Invalid_argument for closed FD";;
-+Got Invalid_argument for closed FD
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Rename
@@ -776,35 +709,25 @@ let try_rename t =
try_rename (t / "../foo") (t / "foo");
Unix.chdir ".."
```
+```mdx-error
+Line 2, characters 5-14:
+Error: Unbound value try_mkdir
+```


Confined:


```ocaml
# run ~clear:["tmp"; "dir"; "foo"] @@ fun env -> try_rename env#cwd;;
-+mkdir <cwd:tmp> -> ok
-+rename <cwd:tmp> to <cwd:dir> -> ok
-+write <cwd:foo> -> ok
-+rename <cwd:foo> to <cwd:dir/bar> -> ok
-+read <cwd:dir/bar> -> "FOO"
-+rename <dir:bar> to <cwd:foo> -> ok
-+read <cwd:foo> -> "FOO"
-+Eio.Io Fs Permission_denied _, renaming <cwd:../foo> to <cwd:foo>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Unconfined:


```ocaml
# run @@ fun env -> try_rename env#fs;;
-+mkdir <fs:tmp> -> ok
-+rename <fs:tmp> to <fs:dir> -> ok
-+Eio.Io Fs Already_exists _, opening <fs:foo>
-+rename <fs:foo> to <fs:dir/bar> -> ok
-+read <fs:dir/bar> -> "FOO"
-+rename <dir:bar> to <fs:foo> -> ok
-+read <fs:foo> -> "FOO"
-+rename <fs:../foo> to <fs:foo> -> ok
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Stat
@@ -817,9 +740,8 @@ Unconfined:
assert (Eio.Path.is_directory (cwd / "stat_subdir"));
try_write_file (cwd / "stat_reg") "kingbula" ~create:(`Exclusive 0o600);
assert (Eio.Path.is_file (cwd / "stat_reg"));
-+mkdir <cwd:stat_subdir> -> ok
-+write <cwd:stat_reg> -> ok
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Fstatat:
@@ -840,16 +762,8 @@ Unconfined:
Path.symlink ~link_to:".." (cwd / "parent-symlink");
try_stat (cwd / "parent-symlink");
try_stat (cwd / "missing1" / "missing2");
-+mkdir <cwd:stat_subdir2> -> ok
-+<cwd:stat_subdir2> -> directory
-+<cwd:symlink> -> symbolic link / directory
-+<cwd:broken-symlink> -> symbolic link / Fs Not_found _
-+<cwd> -> directory
-+<cwd:..> -> Fs Permission_denied _
-+<cwd:stat_subdir2/..> -> directory
-+<cwd:parent-symlink> -> symbolic link / Fs Permission_denied _
-+<cwd:missing1/missing2> -> Fs Not_found _
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


@@ -866,12 +780,8 @@ Unconfined:
try_write_file (cwd / "file") "data" ~create:(`Exclusive 0o600);
try_read_link (cwd / "file");
try_read_link (cwd / "../unknown");
-+read_link <cwd:symlink> -> "file"
-+read_link <fs:symlink> -> "file"
-+write <cwd:file> -> ok
-+Eio.Io _, reading target of symlink <cwd:file>
-+Eio.Io Fs Permission_denied _, reading target of symlink <cwd:../unknown>
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# pread/pwrite
@@ -889,8 +799,8 @@ Check reading and writing vectors at arbitrary offsets:
let buf2 = Cstruct.create 4 in
Eio.File.pread_exact file ~file_offset:(Int63.of_int 1) [buf1; buf2];
traceln" %S/%S" (Cstruct.to_string buf1) (Cstruct.to_string buf2);;
-+ "-ab"/"c123"
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


Reading at the end of a file:
@@ -909,9 +819,8 @@ Reading at the end of a file:
assert false
with End_of_file ->
traceln "End-of-file";;
-+Read "abc"
-+End-of-file
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Cancelling while readable
@@ -927,7 +836,8 @@ Ensure reads can be cancelled promptly, even if there is no need to wait:
for _ = 1 to 10 do Eio.Flow.read_exact null buf done;
assert false)
(fun () -> failwith "Simulated error");;
-Exception: Failure "Simulated error".
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Native paths
@@ -960,19 +870,8 @@ Exception: Failure "Simulated error".
test (sub / ".");
test (sub / "..");
test (sub / "/etc/passwd");
-+<fs> -> Some .
-+<fs:/> -> Some /
-+<fs:/etc/hosts> -> Some /etc/hosts
-+<fs:.> -> Some .
-+<fs:foo/bar> -> Some ./foo/bar
-+<cwd> -> Some .
-+<cwd:..> -> Some ./..
-+<native-sub> -> Some ./native-sub/
-+<native-sub:foo.txt> -> Some ./native-sub/foo.txt
-+<native-sub:.> -> Some ./native-sub/.
-+<native-sub:..> -> Some ./native-sub/..
-+<native-sub:/etc/passwd> -> Some /etc/passwd
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Seek, truncate and sync
@@ -989,10 +888,8 @@ Exception: Failure "Simulated error".
let pos = Eio.File.seek file (Int63.of_int (-1)) `End in
traceln "seek from end: %a" Int63.pp pos;
Eio.File.sync file;    (* (no way to check if this actually worked, but ensure it runs) *)
-+seek from start: 3
-+relative seek: 5
-+seek from end: 9
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


# Extending paths
@@ -1010,15 +907,8 @@ Exception: Failure "Simulated error".
"", "bar";
"/", "";
]
-+"foo" / "bar" = "foo/bar"
-+"foo/" / "bar" = "foo/bar"
-+"foo" / "/bar" = "/bar"
-+"foo" / "" = "foo/"
-+"foo/" / "" = "foo/"
-+"" / "" = ""
-+"" / "bar" = "bar"
-+"/" / "" = "/"
-- : unit = ()
+Line 1, characters 1-4:
+Error: Unbound value run
```


```ocaml
@@ -1053,3 +943,7 @@ run ~clear:["stat_subdir2"; "symlink"; "broken-symlink"; "parent-symlink"] @@ fu
try_unlink (cwd / "parent-symlink");
();
```
+```mdx-error
+Line 1, characters 1-4:
+Error: Unbound value run
+```
"/usr/bin/env" "bash" "-c" "opam exec -- dune build @install @check @runtest && rm -rf _build" failed with exit status 1
2024-10-31 09:00.27: Job failed: Failed: Build failed