2024-11-04 11:29.51: New job: test ocaml-multicore/eio https://github.com/ocaml-multicore/eio.git#refs/pull/772/head (c56d8ce79252c5338823f189a63d19c8724b0379) (freebsd-x86_64:freebsd-5.2_opam-2.2)
Base: freebsd-ocaml-5.2
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 c56d8ce7
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM freebsd-ocaml-5.2
# freebsd-5.2_opam-2.2
USER 1000:1000
ENV CLICOLOR_FORCE="1"
ENV OPAMCOLOR="always"
WORKDIR /src
RUN sudo ln -f /usr/local/bin/opam-2.2 /usr/local/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 371a52f4a8b5c88dc9de4f5a5f6375fb0963297a || git fetch origin master) && git reset -q --hard 371a52f4a8b5c88dc9de4f5a5f6375fb0963297a && 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.1 dune-configurator.3.16.1 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 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.dev $DEPS
RUN opam install $DEPS
COPY --chown=1000:1000 . /src
RUN opam exec -- dune build --only-packages=eio_windows,eio_posix,eio_main,eio @install @check @runtest && rm -rf _build
END-OF-DOCKERFILE
docker build .
END-REPRO-BLOCK
2024-11-04 11:29.51: Using cache hint "ocaml-multicore/eio-freebsd-ocaml-5.2-freebsd-5.2_opam-2.2-2051717c6c09d3483437cfad11146ea9"
2024-11-04 11:29.51: Using OBuilder spec:
((from freebsd-ocaml-5.2)
(comment freebsd-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/local/bin/opam-2.2 /usr/local/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 371a52f4a8b5c88dc9de4f5a5f6375fb0963297a || git fetch origin master) && git reset -q --hard 371a52f4a8b5c88dc9de4f5a5f6375fb0963297a && 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.1 dune-configurator.3.16.1 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 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.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 --only-packages=eio_windows,eio_posix,eio_main,eio @install @check @runtest && rm -rf _build"))
)
2024-11-04 11:29.51: Waiting for resource in pool OCluster
2024-11-04 11:29.52: Waiting for worker…
2024-11-04 11:31.33: Got resource from pool OCluster
Building on spring
HEAD is now at 15fa8b1 following the comments
HEAD is now at c56d8ce Update fs.md
(from freebsd-ocaml-5.2)
2024-11-04 11:21.12 ---> using "3515bf58445883216685df527c06fc8b9b7799700694ffa335d1401da4433261" from cache
/: (comment freebsd-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/local/bin/opam-2.2 /usr/local/bin/opam"))
2024-11-04 11:21.13 ---> using "ce5d446dcad4679490c4842006d3847ab79c5b03f27c64107dd9b4b693f9227b" from cache
/src: (run (shell "opam init --reinit -ni"))
No configuration file found, using 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 version of opam requires an update to the layout of /home/opam/.opam from version 2.1 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 1 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=1 --global
Format upgrade done.
<><> Updating repositories ><><><><><><><><><><><><><><><><><><><><><><><><><><>
[default] no changes from git+file:///home/opam/opam-repository
2024-11-04 11:21.13 ---> using "315f104d2431f3f8513b249e297f5cd9ab00e87e07651779a2c033f75790f186" from cache
/src: (run (shell "uname -rs && opam exec -- ocaml -version && opam --version"))
FreeBSD 14.0-RELEASE-p11
The OCaml toplevel, version 5.2.0
2.2.1
2024-11-04 11:21.14 ---> using "122bbc3ca2d5d079e67c62df055dfe2029bb1467ac0b82961d95a877a82d7ad7" from cache
/src: (workdir /src)
/src: (run (shell "sudo chown opam /src"))
2024-11-04 11:21.14 ---> using "ea3d067661d07cb941931c0bd3d63b7212a0090aedfda056edf38cb8ce4f84dc" from cache
/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 371a52f4a8b5c88dc9de4f5a5f6375fb0963297a || git fetch origin master) && git reset -q --hard 371a52f4a8b5c88dc9de4f5a5f6375fb0963297a && git log --no-decorate -n1 --oneline && opam update -u"))
From https://github.com/ocaml/opam-repository
* branch master -> FETCH_HEAD
5e7a27da27..9048aac630 master -> origin/master
371a52f4a8 Merge pull request #26816 from maiste/release-dune-3.16.1
<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from git+file:///home/opam/opam-repository
Everything as up-to-date as possible (run with --verbose to show unavailable upgrades).
The following packages are not being upgraded because the new versions conflict with other installed packages:
- ocaml.5.4.0
However, you may "opam upgrade" these packages explicitly, which will ask permission to downgrade or uninstall the conflicting packages.
Nothing to do.
2024-11-04 11:21.14 ---> using "c7fce4c7849fb2bd75cebff2262c34ebff4792f35569d64a5566a69362c39b61" from cache
/src: (copy (src eio_windows.opam eio_posix.opam eio_main.opam eio_linux.opam eio.opam)
(dst ./))
2024-11-04 11:21.15 ---> saved as "dceb14014b628ac5f6c53ef77f9238e667b130ad66a380bc4f19bddc7e1a7e55"
/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-11-04 11:21.22 ---> saved as "8167a91a89ac30293b0f374c9d2d9b09acd26490f02232a3677f43d0e0edbec4"
/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.1 dune-configurator.3.16.1 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 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.dev $DEPS"))
[WARNING] Unknown update command for bsd, skipping system update
<><> Synchronising pinned packages ><><><><><><><><><><><><><><><><><><><><><><>
[eio_posix.dev] synchronised (no changes)
[eio.dev] synchronised (no changes)
[eio_main.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).
2024-11-04 11:21.48 ---> saved as "517acbe8d0f8ea47bb9283bd4d4fba28fbbcde1c4a205debda02e2613c3ba664"
/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 45 packages
∗ afl-persistent 1.4
∗ alcotest 1.8.0
∗ astring 0.8.5
∗ backoff 0.1.1
∗ base-bytes 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.1
∗ dune-configurator 3.16.1
∗ either 1.0.0
∗ fmt 0.9.0
∗ hmap 0.8.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-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
∗ uutf 1.0.3
∗ 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 cmdliner.1.3.0 (cached)
⬇ retrieved cppo.1.7.0 (cached)
⬇ retrieved containers.3.14 (cached)
⬇ retrieved csexp.1.5.2 (cached)
⬇ retrieved crowbar.0.2.1 (cached)
⬇ retrieved cstruct.6.2.0 (cached)
⬇ retrieved domain-local-await.1.0.1 (cached)
⬇ retrieved domain-local-timeout.1.0.1 (cached)
⬇ retrieved dscheck.0.5.0 (cached)
⬇ retrieved alcotest.1.8.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 ocamlfind.1.9.6 (cached)
⬇ retrieved ocplib-endian.1.2 (cached)
⬇ retrieved ocamlbuild.0.15.0 (cached)
⬇ retrieved optint.0.3.0 (cached)
⬇ retrieved oseq.0.5.1 (cached)
⬇ retrieved psq.0.2.1 (cached)
⬇ retrieved re.1.12.0 (cached)
⬇ retrieved seq.base (cached)
∗ installed seq.base
⬇ retrieved stdlib-shims.0.3.0 (cached)
⬇ retrieved result.1.5 (cached)
⬇ retrieved thread-table.1.0.0 (cached)
⬇ retrieved tsort.2.1.0 (cached)
⬇ retrieved topkg.1.0.7 (cached)
⬇ retrieved uutf.1.0.3 (cached)
⬇ retrieved dune.3.16.1, dune-configurator.3.16.1 (cached)
⬇ retrieved yojson.2.2.2 (cached)
∗ installed cmdliner.1.3.0
∗ installed ocamlfind.1.9.6
∗ installed base-bytes.base
∗ installed ocamlbuild.0.15.0
∗ installed topkg.1.0.7
∗ installed hmap.0.8.1
∗ installed uutf.1.0.3
∗ installed mtime.2.1.0
∗ installed astring.0.8.5
∗ installed fmt.0.9.0
∗ installed logs.0.7.0
∗ installed dune.3.16.1
∗ installed backoff.0.1.1
∗ installed camlp-streams.5.0.1
∗ installed lwt-dllist.1.0.1
∗ installed csexp.1.5.2
∗ installed afl-persistent.1.4
∗ installed ocaml-version.3.6.9
∗ installed ocaml-syntax-shims.1.0.0
∗ installed multicore-magic.2.3.0
∗ installed either.1.0.0
∗ installed cstruct.6.2.0
∗ installed cppo.1.7.0
∗ installed optint.0.3.0
∗ installed stdlib-shims.0.3.0
∗ installed psq.0.2.1
∗ installed result.1.5
∗ installed tsort.2.1.0
∗ installed thread-table.1.0.0
∗ installed ocplib-endian.1.2
∗ installed re.1.12.0
∗ installed domain-local-timeout.1.0.1
∗ installed crowbar.0.2.1
∗ installed domain-local-await.1.0.1
∗ installed yojson.2.2.2
∗ installed oseq.0.5.1
∗ installed dune-configurator.3.16.1
∗ installed bigstringaf.0.10.0
∗ installed kcas.0.7.0
∗ installed alcotest.1.8.0
∗ installed mdx.2.4.1
∗ installed iomux.0.3
∗ installed containers.3.14
∗ 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
2024-11-04 11:25.38 ---> saved as "09bfc59f5f72dca38f1948e16df7afab41fbf0a57c33134a46b47fcee84cb5d9"
/src: (copy (src .) (dst /src))
2024-11-04 11:25.44 ---> saved as "845e91a1df80dc4383352bb5f6e2ab97a1d12e4c03ea0940843135abe4d1b4db"
/src: (run (shell "opam exec -- dune build --only-packages=eio_windows,eio_posix,eio_main,eio @install @check @runtest && rm -rf _build"))
(cd _build/default/fuzz && ./fuzz_buf_write.exe)
random ops: PASS
(cd _build/default/fuzz && ./fuzz_inherit_fds.exe)
inherit_fds: PASS
(cd _build/default/fuzz && ./fuzz_buf_read.exe)
random ops: PASS
File "tests/fs.md", line 1, characters 0-0:
/usr/local/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 5b58c74..36e3a52 100644
--- a/_build/default/tests/fs.md
+++ b/_build/default/tests/.mdx/fs.md.corrected
@@ -106,6 +106,10 @@ let try_chmod ~follow ~perm path =
Exn.reraise_with_context ex bt "Error applying chmod on %a with permissions %o" Eio.Path.pp path perm
```
+```mdx-error
+Line 95, characters 7-13:
+Error: Unbound module Exn
+```
# Basic test cases
@@ -116,16 +120,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
@@ -137,8 +140,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:
@@ -148,8 +151,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
@@ -162,8 +165,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:
@@ -175,8 +178,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:
@@ -188,10 +191,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:
@@ -202,8 +205,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:
@@ -215,10 +218,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
@@ -230,13 +233,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:
@@ -254,13 +256,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
@@ -269,40 +266,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
@@ -321,12 +333,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`.
@@ -340,11 +348,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
@@ -368,16 +373,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:
@@ -390,11 +387,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:
@@ -434,22 +428,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
@@ -471,18 +451,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:
@@ -495,11 +465,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
@@ -517,14 +484,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
@@ -540,10 +501,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
@@ -573,17 +532,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 = ()
@@ -608,14 +558,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`.
@@ -634,16 +578,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:
@@ -651,14 +587,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:
@@ -672,10 +609,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:
@@ -691,14 +626,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
@@ -710,10 +639,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
@@ -731,8 +658,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.
@@ -747,8 +674,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
@@ -759,8 +686,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
@@ -779,35 +706,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
@@ -820,9 +737,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:
@@ -844,16 +760,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
```
# read_link
@@ -869,12 +777,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
@@ -892,8 +796,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:
@@ -912,9 +816,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
@@ -930,7 +833,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
@@ -963,19 +867,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
@@ -992,10 +885,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
@@ -1013,15 +904,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
@@ -1047,4 +931,6 @@ Exception: Failure "Simulated error".
Eio.Path.unlink file_path;
traceln "+unlink <cwd:test-file> -> ok";
()
-```
\ No newline at end of file
+Line 1, characters 1-4:
+Error: Unbound value run
+```
jail: /usr/bin/su -l opam -c cd '/src' && env OCAMLCI='true' CI='true' 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.1 dune-configurator.3.16.1 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 uutf.1.0.3 yojson.2.2.2' OPAMCOLOR='always' CLICOLOR_FORCE='1' '/usr/bin/env' 'bash' '-c' 'opam exec -- dune build --only-packages=eio_windows,eio_posix,eio_main,eio @install @check @runtest && rm -rf _build': failed
"jail" "-c" "name=obuilder_40930_35055" "mount.devfs" "path=/obuilder/result/9d22cd4483a4eee8cec3d799259ee13f2ca5910ae79dad3a7751f09b11fd1007/rootfs" "vnet" "exec.start=/sbin/ifconfig lo0 127.0.0.1/8" "command=/usr/bin/su" "-l" "opam" "-c" "cd '/src' && env OCAMLCI='true' CI='true' 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.1 dune-configurator.3.16.1 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 uutf.1.0.3 yojson.2.2.2' OPAMCOLOR='always' CLICOLOR_FORCE='1' '/usr/bin/env' 'bash' '-c' 'opam exec -- dune build --only-packages=eio_windows,eio_posix,eio_main,eio @install @check @runtest && rm -rf _build'" failed with exit status 1
2024-11-04 11:36.58: Job failed: Failed: Build failed