2024-05-17 10:57.40: New job: test dinosaure/multipart_form https://github.com/dinosaure/multipart_form.git#refs/heads/miou (c1bdd2f79f887df1314c2aa429ae91efa65a8832) (linux-x86_64:(lint-fmt))
Base: ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb
ocamlformat version: version 0.25.1 (from opam)
To reproduce locally:
git clone --recursive "https://github.com/dinosaure/multipart_form.git" -b "miou" && cd "multipart_form" && git reset --hard c1bdd2f7
cat > Dockerfile <<'END-OF-DOCKERFILE'
FROM ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb
USER 1000:1000
RUN cd ~/opam-repository && (git cat-file -e 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b || git fetch origin master) && git reset -q --hard 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b && git log --no-decorate -n1 --oneline && opam update -u
RUN opam depext -i dune
WORKDIR /src
RUN opam depext -i ocamlformat=0.25.1
COPY --chown=1000:1000 . /src/
RUN opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2)
END-OF-DOCKERFILE
docker build .
END-REPRO-BLOCK
2024-05-17 10:57.40: Using cache hint "dinosaure/multipart_form-ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb-debian-12-4.08_opam-2.1-ocamlformat-307e33d08fc4ccc1ea453ab45b0ead8ed574b97b"
2024-05-17 10:57.40: Using OBuilder spec:
((from ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb)
(user (uid 1000) (gid 1000))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b || git fetch origin master) && git reset -q --hard 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b && git log --no-decorate -n1 --oneline && opam update -u"))
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam depext -i dune"))
(workdir /src)
(run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam depext -i ocamlformat=0.25.1"))
(copy (src .) (dst /src/))
(run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)"))
)
2024-05-17 10:57.40: Waiting for resource in pool OCluster
2024-05-17 10:57.40: Waiting for worker…
2024-05-17 13:10.53: Got resource from pool OCluster
Building on doris.caelum.ci.dev
All commits already cached
HEAD is now at c1bdd2f Better API for Multipart_form_miou.Bounded_stream
(from ocaml/opam@sha256:fda21a992c5df0e509393861bcf1b40849d544491656742979043a148fbba8bb)
2024-05-17 13:10.35 ---> using "e0805034d9e735da2cb99f3eb2cde6a7473dabe8bd1020b5bf9a6e9f3a9991fe" from cache
/: (user (uid 1000) (gid 1000))
/: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "cd ~/opam-repository && (git cat-file -e 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b || git fetch origin master) && git reset -q --hard 307e33d08fc4ccc1ea453ab45b0ead8ed574b97b && git log --no-decorate -n1 --oneline && opam update -u"))
From https://github.com/ocaml/opam-repository
* branch master -> FETCH_HEAD
eb2dcab0d8..ec28f29e7d master -> origin/master
307e33d08f @dra27 and @Octachron maintain the 4.08+ packages
<><> Updating package repositories ><><><><><><><><><><><><><><><><><><><><><><>
[default] synchronised from file:///home/opam/opam-repository
default (at file:///home/opam/opam-repository):
[INFO] opam 2.1 includes many performance improvements over 2.0; please consider upgrading (https://opam.ocaml.org/doc/Install.html)
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-05-17 13:11.17 ---> saved as "7a9e50f2cda6a477fecf9feb19820cff5cf752694490b969013ec5cc497c2763"
/: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam depext -i dune"))
# Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian
# No extra OS packages requirements found.
# All required OS packages found.
# Now letting opam install the packages
The following actions will be performed:
- install dune 3.15.2
<><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
[dune.3.15.2] found in cache
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> installed dune.3.15.2
Done.
# Run eval $(opam env) to update the current shell environment
2024-05-17 13:11.44 ---> saved as "da0ef2a22593619ca89bdb7c851c410681f2b8fe60d8d94466f5cedadddd8593"
/: (workdir /src)
/src: (run (cache (opam-archives (target /home/opam/.opam/download-cache)))
(network host)
(shell "opam depext -i ocamlformat=0.25.1"))
# Detecting depexts using vars: arch=x86_64, os=linux, os-distribution=debian, os-family=debian
# No extra OS packages requirements found.
# All required OS packages found.
# Now letting opam install the packages
The following actions will be performed:
- install sexplib0 v0.14.0 [required by base]
- install ocamlbuild 0.14.3 [required by fpath, astring, uuseg]
- install menhirCST 20231231 [required by menhir]
- install either 1.0.0 [required by ocamlformat-lib]
- install cmdliner 1.2.0 [required by ocamlformat]
- install menhirSdk 20231231 [required by ocamlformat-lib]
- install ocamlfind 1.9.6 [required by ocp-indent, astring, fpath, uuseg]
- install menhirLib 20231231 [required by ocamlformat-lib]
- install result 1.5 [required by ocamlformat-lib]
- install seq base [required by re]
- install csexp 1.5.2 [required by ocamlformat-lib]
- install ocaml-version 3.6.7 [required by ocamlformat-lib]
- install camlp-streams 5.0.1 [required by ocamlformat-lib]
- install dune-build-info 3.15.2 [required by ocamlformat-lib]
- install fix 20230505 [required by ocamlformat-lib]
- install topkg 1.0.7 [required by fpath, astring, uuseg]
- install base-bytes base [required by ocp-indent]
- install menhir 20231231 [required by ocamlformat-lib]
- install re 1.11.0 [required by ocamlformat]
- install dune-configurator 3.15.2 [required by base]
- install uutf 1.0.3 [required by ocamlformat-lib]
- install astring 0.8.5 [required by ocamlformat-lib]
- install ocp-indent 1.8.1 [required by ocamlformat-lib]
- install base v0.14.3 [required by ocamlformat-lib]
- install uucp 15.0.0 [required by uuseg]
- install fpath 0.7.3 [required by ocamlformat-lib]
- install stdio v0.14.0 [required by ocamlformat-lib]
- install uuseg 15.0.0 [required by ocamlformat-lib]
- install ocamlformat-lib 0.25.1 [required by ocamlformat]
- install ocamlformat 0.25.1
===== 30 to install =====
<><> Gathering sources ><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
[astring.0.8.5] found in cache
[base.v0.14.3] found in cache
[camlp-streams.5.0.1] found in cache
[cmdliner.1.2.0] found in cache
[csexp.1.5.2] found in cache
[dune-build-info.3.15.2] found in cache
[dune-configurator.3.15.2] found in cache
[either.1.0.0] found in cache
[fix.20230505] found in cache
[fpath.0.7.3] found in cache
[menhir.20231231] found in cache
[menhirCST.20231231] found in cache
[menhirLib.20231231] found in cache
[menhirSdk.20231231] found in cache
[ocaml-version.3.6.7] found in cache
[ocamlbuild.0.14.3] found in cache
[ocamlfind.1.9.6] found in cache
[ocamlformat.0.25.1] found in cache
[ocamlformat-lib.0.25.1] found in cache
[ocp-indent.1.8.1] found in cache
[re.1.11.0] found in cache
[result.1.5] found in cache
[sexplib0.v0.14.0] found in cache
[stdio.v0.14.0] found in cache
[topkg.1.0.7] found in cache
[uucp.15.0.0] found in cache
[uuseg.15.0.0] found in cache
[uutf.1.0.3] found in cache
<><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><>
-> installed seq.base
-> installed camlp-streams.5.0.1
-> installed csexp.1.5.2
-> installed cmdliner.1.2.0
-> installed either.1.0.0
-> installed fix.20230505
-> installed menhirCST.20231231
-> installed menhirLib.20231231
-> installed menhirSdk.20231231
-> installed ocaml-version.3.6.7
-> installed result.1.5
-> installed sexplib0.v0.14.0
-> installed re.1.11.0
-> installed dune-build-info.3.15.2
-> installed dune-configurator.3.15.2
-> installed ocamlfind.1.9.6
-> installed base-bytes.base
-> installed ocamlbuild.0.14.3
-> installed ocp-indent.1.8.1
-> installed base.v0.14.3
-> installed topkg.1.0.7
-> installed stdio.v0.14.0
-> installed uutf.1.0.3
-> installed astring.0.8.5
-> installed fpath.0.7.3
-> installed menhir.20231231
-> installed uucp.15.0.0
-> installed uuseg.15.0.0
-> installed ocamlformat-lib.0.25.1
-> installed ocamlformat.0.25.1
Done.
<><> ocp-indent.1.8.1 installed successfully ><><><><><><><><><><><><><><><><><>
=> This package requires additional configuration for use in editors. Install package 'user-setup', or manually:
* for Emacs, add these lines to ~/.emacs:
(add-to-list 'load-path "/home/opam/.opam/4.08/share/emacs/site-lisp")
(require 'ocp-indent)
* for Vim, add this line to ~/.vimrc:
set rtp^="/home/opam/.opam/4.08/share/ocp-indent/vim"
# Run eval $(opam env) to update the current shell environment
2024-05-17 13:12.40 ---> saved as "49965d0d1587d5f3b453991a3c2dabc74d6caf94c518d36fc49964ae5af30965"
/src: (copy (src .) (dst /src/))
2024-05-17 13:12.40 ---> saved as "fbe95ccd4950b29e1350f8d291879cb87fc220498dc4a2fbbf5db0d4b45b0b8d"
/src: (run (shell "opam exec -- dune build @fmt --ignore-promoted-rules || (echo \"dune build @fmt failed\"; exit 2)"))
File "lib_miou/lib/multipart_form_miou.ml", line 1, characters 0-0:
diff --git a/_build/default/lib_miou/lib/multipart_form_miou.ml b/_build/default/lib_miou/lib/.formatted/multipart_form_miou.ml
index 88d4719..cfc97c7 100644
--- a/_build/default/lib_miou/lib/multipart_form_miou.ml
+++ b/_build/default/lib_miou/lib/.formatted/multipart_form_miou.ml
@@ -64,8 +64,9 @@ module Bounded_stream = struct
let of_list vs =
let size = List.length vs + 1 in
let stream = create size in
- List.iter (put stream) (List.map Option.some vs);
- put stream None; stream
+ List.iter (put stream) (List.map Option.some vs) ;
+ put stream None ;
+ stream
end
let stream ?(bounds = 10) ~identify stream content_type =
File "test/test_lwt.ml", line 1, characters 0-0:
diff --git a/_build/default/test/test_lwt.ml b/_build/default/test/.formatted/test_lwt.ml
index 991c08d..bfbc16c 100644
--- a/_build/default/test/test_lwt.ml
+++ b/_build/default/test/.formatted/test_lwt.ml
@@ -18,20 +18,48 @@ let () = Logs.set_reporter (reporter Fmt.stderr)
let () = Logs.set_level ~all:true (Some Logs.Debug)
let truncated_request01 =
- {|--------------------------eb790219f130e103|}^"\r"^{|
-Content-Disposition: form-data; name="text"|}^"\r"^{|
-|}^"\r"^{|
-default|}^"\r"^{|
---------------------------eb790219f130e103|}^"\r"^{|
-Content-Disposition: form-data; name="file1"; filename="a.html"|}^"\r"^{|
-Content-Type: text/html|}^"\r"^{|
-|}^"\r"^{|
-<!DOCTYPE html><title>Content of a.html.</title>|}^"\r"^{|
-|}^"\r"^{|
---------------------------eb790219f130e103|}^"\r"^{|
-Content-Disposition: form-data; name="file2"; filename="a.txt"|}^"\r"^{|
-Content-Type: text/plain|}^"\r"^{|
-|}^"\r"^{|
+ {|--------------------------eb790219f130e103|}
+ ^ "\r"
+ ^ {|
+Content-Disposition: form-data; name="text"|}
+ ^ "\r"
+ ^ {|
+|}
+ ^ "\r"
+ ^ {|
+default|}
+ ^ "\r"
+ ^ {|
+--------------------------eb790219f130e103|}
+ ^ "\r"
+ ^ {|
+Content-Disposition: form-data; name="file1"; filename="a.html"|}
+ ^ "\r"
+ ^ {|
+Content-Type: text/html|}
+ ^ "\r"
+ ^ {|
+|}
+ ^ "\r"
+ ^ {|
+<!DOCTYPE html><title>Content of a.html.</title>|}
+ ^ "\r"
+ ^ {|
+|}
+ ^ "\r"
+ ^ {|
+--------------------------eb790219f130e103|}
+ ^ "\r"
+ ^ {|
+Content-Disposition: form-data; name="file2"; filename="a.txt"|}
+ ^ "\r"
+ ^ {|
+Content-Type: text/plain|}
+ ^ "\r"
+ ^ {|
+|}
+ ^ "\r"
+ ^ {|
Conten|}
let truncated_request02 =
File "test/test_miou.ml", line 1, characters 0-0:
diff --git a/_build/default/test/test_miou.ml b/_build/default/test/.formatted/test_miou.ml
index c8017f8..09ce965 100644
--- a/_build/default/test/test_miou.ml
+++ b/_build/default/test/.formatted/test_miou.ml
@@ -95,8 +95,7 @@ let test01 =
| Error (`Msg err) -> failwith err in
let body = Bounded_stream.of_list [ truncated_request01 ] in
let `Parse prm, _ =
- Multipart_form_miou.stream ~identify:(always ()) body
- content_type in
+ Multipart_form_miou.stream ~identify:(always ()) body content_type in
match Miou.await_exn prm with
| Ok _ -> Alcotest.(check pass) "Truncated request" () ()
| Error (`Msg err) -> Alcotest.failf "Unexpected error: %s" err
@@ -114,8 +113,7 @@ let test02 =
let body = Bounded_stream.of_list [ truncated_request02 ] in
Bounded_stream.put body None ;
let `Parse prm, _ =
- Multipart_form_miou.stream ~identify:(always ()) body
- content_type in
+ Multipart_form_miou.stream ~identify:(always ()) body content_type in
match Miou.await_exn prm with
| Ok _ -> Alcotest.fail "Unexpected valid input"
| Error (`Msg "Invalid multipart/form") ->
File "test/test.ml", line 1, characters 0-0:
diff --git a/_build/default/test/test.ml b/_build/default/test/.formatted/test.ml
index 38535da..6cb8a7a 100644
--- a/_build/default/test/test.ml
+++ b/_build/default/test/.formatted/test.ml
@@ -29,50 +29,124 @@ let parser ~emitters =
* echo "<!DOCTYPE html><title>Content of a.html.</title>" > a.html
* curl -F "text=default" -F "file1=@a.html" -F "file2=@a.txt" localhost:8000 *)
let simple =
- {html|Host: localhost:8000|html}^"\r"^{html|
-User-Agent: curl/7.47.0|html}^"\r"^{html|
-Accept: */*|html}^"\r"^{html|
-Content-Length: 489|html}^"\r"^{html|
-Expect: 100-continue|html}^"\r"^{html|
-Content-Type: multipart/form-data; boundary=------------------------eb790219f130e103|html}^"\r"^{html|
-|html}^"\r"^{html|
---------------------------eb790219f130e103|html}^"\r"^{html|
-Content-Disposition: form-data; name="text"|html}^"\r"^{html|
-|html}^"\r"^{html|
-default|html}^"\r"^{html|
---------------------------eb790219f130e103|html}^"\r"^{html|
-Content-Disposition: form-data; name="file1"; filename="a.html"|html}^"\r"^{html|
-Content-Type: text/html|html}^"\r"^{html|
-|html}^"\r"^{html|
+ {html|Host: localhost:8000|html}
+ ^ "\r"
+ ^ {html|
+User-Agent: curl/7.47.0|html}
+ ^ "\r"
+ ^ {html|
+Accept: */*|html}
+ ^ "\r"
+ ^ {html|
+Content-Length: 489|html}
+ ^ "\r"
+ ^ {html|
+Expect: 100-continue|html}
+ ^ "\r"
+ ^ {html|
+Content-Type: multipart/form-data; boundary=------------------------eb790219f130e103|html}
+ ^ "\r"
+ ^ {html|
+|html}
+ ^ "\r"
+ ^ {html|
+--------------------------eb790219f130e103|html}
+ ^ "\r"
+ ^ {html|
+Content-Disposition: form-data; name="text"|html}
+ ^ "\r"
+ ^ {html|
+|html}
+ ^ "\r"
+ ^ {html|
+default|html}
+ ^ "\r"
+ ^ {html|
+--------------------------eb790219f130e103|html}
+ ^ "\r"
+ ^ {html|
+Content-Disposition: form-data; name="file1"; filename="a.html"|html}
+ ^ "\r"
+ ^ {html|
+Content-Type: text/html|html}
+ ^ "\r"
+ ^ {html|
+|html}
+ ^ "\r"
+ ^ {html|
<!DOCTYPE html><title>Content of a.html.</title>
-|html}^"\r"^{html|
---------------------------eb790219f130e103|html}^"\r"^{html|
-Content-Disposition: form-data; name="file2"; filename="a.txt"|html}^"\r"^{html|
-Content-Type: text/plain|html}^"\r"^{html|
-|html}^"\r"^{html|
+|html}
+ ^ "\r"
+ ^ {html|
+--------------------------eb790219f130e103|html}
+ ^ "\r"
+ ^ {html|
+Content-Disposition: form-data; name="file2"; filename="a.txt"|html}
+ ^ "\r"
+ ^ {html|
+Content-Type: text/plain|html}
+ ^ "\r"
+ ^ {html|
+|html}
+ ^ "\r"
+ ^ {html|
Content of a.txt.
-|html}^"\r"^{html|
---------------------------eb790219f130e103--|html}^"\r"^{html|
+|html}
+ ^ "\r"
+ ^ {html|
+--------------------------eb790219f130e103--|html}
+ ^ "\r"
+ ^ {html|
|html}
let simple_without_header =
- {html|--------------------------eb790219f130e103|html}^"\r"^{html|
-Content-Disposition: form-data; name="text"|html}^"\r"^{html|
-|html}^"\r"^{html|
-default|html}^"\r"^{html|
---------------------------eb790219f130e103|html}^"\r"^{html|
-Content-Disposition: form-data; name="file1"; filename="a.html"|html}^"\r"^{html|
-Content-Type: text/html|html}^"\r"^{html|
-|html}^"\r"^{html|
+ {html|--------------------------eb790219f130e103|html}
+ ^ "\r"
+ ^ {html|
+Content-Disposition: form-data; name="text"|html}
+ ^ "\r"
+ ^ {html|
+|html}
+ ^ "\r"
+ ^ {html|
+default|html}
+ ^ "\r"
+ ^ {html|
+--------------------------eb790219f130e103|html}
+ ^ "\r"
+ ^ {html|
+Content-Disposition: form-data; name="file1"; filename="a.html"|html}
+ ^ "\r"
+ ^ {html|
+Content-Type: text/html|html}
+ ^ "\r"
+ ^ {html|
+|html}
+ ^ "\r"
+ ^ {html|
<!DOCTYPE html><title>Content of a.html.</title>
-|html}^"\r"^{html|
---------------------------eb790219f130e103|html}^"\r"^{html|
-Content-Disposition: form-data; name="file2"; filename="a.txt"|html}^"\r"^{html|
-Content-Type: text/plain|html}^"\r"^{html|
-|html}^"\r"^{html|
+|html}
+ ^ "\r"
+ ^ {html|
+--------------------------eb790219f130e103|html}
+ ^ "\r"
+ ^ {html|
+Content-Disposition: form-data; name="file2"; filename="a.txt"|html}
+ ^ "\r"
+ ^ {html|
+Content-Type: text/plain|html}
+ ^ "\r"
+ ^ {html|
+|html}
+ ^ "\r"
+ ^ {html|
Content of a.txt.
-|html}^"\r"^{html|
---------------------------eb790219f130e103--|html}^"\r"^{html|
+|html}
+ ^ "\r"
+ ^ {html|
+--------------------------eb790219f130e103--|html}
+ ^ "\r"
+ ^ {html|
|html}
module Map = Map.Make (String)
@@ -262,22 +336,53 @@ let content_type_2 =
Rresult.R.get_ok value
let contents =
- "\r"^{multipart|
------------------------------11410681503802810592492044004|multipart}^"\r"^{multipart|
-Content-Disposition: form-data; name="dream.csrf"|multipart}^"\r"^{multipart|
-|multipart}^"\r"^{multipart|
-foobar|multipart}^"\r"^{multipart|
------------------------------11410681503802810592492044004|multipart}^"\r"^{multipart|
-Content-Disposition: form-data; name="files"; filename="a b.txt"|multipart}^"\r"^{multipart|
-Content-Type: text/plain|multipart}^"\r"^{multipart|
-|multipart}^"\r"^{multipart|
-1234|multipart}^"\r"^{multipart|
------------------------------11410681503802810592492044004|multipart}^"\r"^{multipart|
-Content-Disposition: form-data; name="files"; filename="a b.txt"|multipart}^"\r"^{multipart|
-Content-Type: text/plain|multipart}^"\r"^{multipart|
-|multipart}^"\r"^{multipart|
-4321|multipart}^"\r"^{multipart|
------------------------------11410681503802810592492044004--|multipart}^"\r"^{multipart|
+ "\r"
+ ^ {multipart|
+-----------------------------11410681503802810592492044004|multipart}
+ ^ "\r"
+ ^ {multipart|
+Content-Disposition: form-data; name="dream.csrf"|multipart}
+ ^ "\r"
+ ^ {multipart|
+|multipart}
+ ^ "\r"
+ ^ {multipart|
+foobar|multipart}
+ ^ "\r"
+ ^ {multipart|
+-----------------------------11410681503802810592492044004|multipart}
+ ^ "\r"
+ ^ {multipart|
+Content-Disposition: form-data; name="files"; filename="a b.txt"|multipart}
+ ^ "\r"
+ ^ {multipart|
+Content-Type: text/plain|multipart}
+ ^ "\r"
+ ^ {multipart|
+|multipart}
+ ^ "\r"
+ ^ {multipart|
+1234|multipart}
+ ^ "\r"
+ ^ {multipart|
+-----------------------------11410681503802810592492044004|multipart}
+ ^ "\r"
+ ^ {multipart|
+Content-Disposition: form-data; name="files"; filename="a b.txt"|multipart}
+ ^ "\r"
+ ^ {multipart|
+Content-Type: text/plain|multipart}
+ ^ "\r"
+ ^ {multipart|
+|multipart}
+ ^ "\r"
+ ^ {multipart|
+4321|multipart}
+ ^ "\r"
+ ^ {multipart|
+-----------------------------11410681503802810592492044004--|multipart}
+ ^ "\r"
+ ^ {multipart|
|multipart}
let filename_with_space =
dune build @fmt failed
"/usr/bin/env" "bash" "-c" "opam exec -- dune build @fmt --ignore-promoted-rules || (echo "dune build @fmt failed"; exit 2)" failed with exit status 2
2024-05-17 13:12.41: Job failed: Failed: Build failed