The unpac monorepo manager self-hosting as a monorepo using unpac
dune build @fmt
+11
-9
+2
-1
vendor/opam/base64/bench/benchmarks.ml
+2
-1
vendor/opam/base64/bench/benchmarks.ml
···
101
101
102
102
let args = [ 0; 10; 50; 100; 500; 1000; 2500; 5000 ]
103
103
104
-
let test_b64 = Bench.Test.create_indexed ~name:"Base64" ~args b64_encode_and_decode
104
+
let test_b64 =
105
+
Bench.Test.create_indexed ~name:"Base64" ~args b64_encode_and_decode
105
106
106
107
let test_old = Bench.Test.create_indexed ~name:"Old" ~args old_encode_and_decode
107
108
+2
-1
vendor/opam/base64/bench/dune
+2
-1
vendor/opam/base64/bench/dune
+4
-2
vendor/opam/base64/fuzz/dune
+4
-2
vendor/opam/base64/fuzz/dune
···
1
1
(executable
2
2
(name fuzz_rfc2045)
3
-
(enabled_if (= %{profile} fuzz))
3
+
(enabled_if
4
+
(= %{profile} fuzz))
4
5
(modules fuzz_rfc2045)
5
6
(libraries astring crowbar fmt base64.rfc2045))
6
7
7
8
(executable
8
9
(name fuzz_rfc4648)
9
-
(enabled_if (= %{profile} fuzz))
10
+
(enabled_if
11
+
(= %{profile} fuzz))
10
12
(modules fuzz_rfc4648)
11
13
(libraries astring crowbar fmt base64))
+1
-1
vendor/opam/base64/fuzz/fuzz_rfc4648.ml
+1
-1
vendor/opam/base64/fuzz/fuzz_rfc4648.ml
···
82
82
83
83
let canonic alphabet =
84
84
let dmap = Array.make 256 (-1) in
85
-
String.iteri (fun i x -> dmap.(Char.code x) <- i) (Base64.alphabet alphabet);
85
+
String.iteri (fun i x -> dmap.(Char.code x) <- i) (Base64.alphabet alphabet) ;
86
86
fun (input, off, len) ->
87
87
let real_len = String.length input in
88
88
let input_len = len in
+2
-4
vendor/opam/base64/test/test.ml
+2
-4
vendor/opam/base64/test/test.ml
···
269
269
let test_strict_with_malformed_input_rfc2045 =
270
270
List.mapi
271
271
(fun i (has, _) ->
272
-
Alcotest.test_case (Fmt.str "strict rfc2045 - %02d" i) `Quick
273
-
@@ fun () ->
272
+
Alcotest.test_case (Fmt.str "strict rfc2045 - %02d" i) `Quick @@ fun () ->
274
273
try
275
274
let _ = strict_base64_rfc2045_of_string has in
276
275
Alcotest.failf "Strict parser valids malformed input: %S" has
···
280
279
let test_strict_rfc2045 =
281
280
List.mapi
282
281
(fun i (has, expect) ->
283
-
Alcotest.test_case (Fmt.str "strict rfc2045 - %02d" i) `Quick
284
-
@@ fun () ->
282
+
Alcotest.test_case (Fmt.str "strict rfc2045 - %02d" i) `Quick @@ fun () ->
285
283
try
286
284
let res0 = strict_base64_rfc2045_of_string has in
287
285
let res1 = strict_base64_rfc2045_to_string res0 in