unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/build-info.t/run.t

@@ -0,0 +1,125 @@
+Jsoo and build-info
+
+  $ echo "(lang dune 3.17)" > dune-project
+  $ dune build
+  Warning [missing-debug-event]: '--source-map' is enabled but the bytecode program was compiled with no debugging information.
+  Warning: Consider passing '-g' option to ocamlc.
+  $ node _build/default/src/main.bc.wasm.js
+  unknown
+  $ dune install --prefix _install --display short 2>&1 | sed 's/-[a-f0-9]*[.]wasm/.wasm/'
+  Installing _install/lib/main/META
+  Installing _install/lib/main/dune-package
+  Installing _install/lib/main/opam
+  Installing _install/bin/main
+  Installing _install/bin/main.bc.wasm.assets/build_info.wasm
+  Installing _install/bin/main.bc.wasm.assets/build_info.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/build_info__Build_info_data.wasm
+  Installing _install/bin/main.bc.wasm.assets/build_info__Build_info_data.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm
+  Installing _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/prelude.wasm
+  Installing _install/bin/main.bc.wasm.assets/runtime.wasm
+  Installing _install/bin/main.bc.wasm.assets/start.wasm
+  Installing _install/bin/main.bc.wasm.assets/std_exit.wasm
+  Installing _install/bin/main.bc.wasm.assets/std_exit.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/stdlib.wasm
+  Installing _install/bin/main.bc.wasm.assets/stdlib.wasm.map
+  Installing _install/bin/main.bc.wasm.js
+  $ node _install/bin/main.bc.wasm.js
+  unknown
+  $ git init -q
+  $ touch README
+  $ git add README
+  $ git commit -m "initial" -q
+  $ git tag v1 -am "V1"
+  $ git commit -m "empty2" --allow-empty -q
+  $ echo "HELLO" > README
+  $ dune build
+  Warning [missing-debug-event]: '--source-map' is enabled but the bytecode program was compiled with no debugging information.
+  Warning: Consider passing '-g' option to ocamlc.
+  $ node _build/default/src/main.bc.wasm.js
+  unknown
+  $ dune install --prefix _install --display short 2>&1 | sed 's/-[a-f0-9]*[.]wasm/.wasm/'
+  Deleting _install/lib/main/META
+  Installing _install/lib/main/META
+  Deleting _install/lib/main/dune-package
+  Installing _install/lib/main/dune-package
+  Deleting _install/lib/main/opam
+  Installing _install/lib/main/opam
+  Deleting _install/bin/main
+  Installing _install/bin/main
+  Deleting _install/bin/main.bc.wasm.assets/build_info.wasm
+  Installing _install/bin/main.bc.wasm.assets/build_info.wasm
+  Deleting _install/bin/main.bc.wasm.assets/build_info.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/build_info.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/build_info__Build_info_data.wasm
+  Installing _install/bin/main.bc.wasm.assets/build_info__Build_info_data.wasm.map
+  Deleting _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm
+  Installing _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm
+  Deleting _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm.map
+  Deleting _install/bin/main.bc.wasm.assets/prelude.wasm
+  Installing _install/bin/main.bc.wasm.assets/prelude.wasm
+  Deleting _install/bin/main.bc.wasm.assets/runtime.wasm
+  Installing _install/bin/main.bc.wasm.assets/runtime.wasm
+  Deleting _install/bin/main.bc.wasm.assets/start.wasm
+  Installing _install/bin/main.bc.wasm.assets/start.wasm
+  Deleting _install/bin/main.bc.wasm.assets/std_exit.wasm
+  Installing _install/bin/main.bc.wasm.assets/std_exit.wasm
+  Deleting _install/bin/main.bc.wasm.assets/std_exit.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/std_exit.wasm.map
+  Deleting _install/bin/main.bc.wasm.assets/stdlib.wasm
+  Installing _install/bin/main.bc.wasm.assets/stdlib.wasm
+  Deleting _install/bin/main.bc.wasm.assets/stdlib.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/stdlib.wasm.map
+  Deleting _install/bin/main.bc.wasm.js
+  Installing _install/bin/main.bc.wasm.js
+  Installing _install/doc/main/README
+  $ node _install/bin/main.bc.wasm.js
+  v1-1-xxxxx-dirty
+  $ echo "(name main)" >> dune-project
+  $ echo "(version 0.2.0)" >> dune-project
+  $ dune build
+  Warning [missing-debug-event]: '--source-map' is enabled but the bytecode program was compiled with no debugging information.
+  Warning: Consider passing '-g' option to ocamlc.
+  $ node _build/default/src/main.bc.wasm.js
+  0.2.0
+  $ dune install --prefix _install --display short 2>&1 | sed 's/-[a-f0-9]*[.]wasm/.wasm/'
+  Deleting _install/lib/main/META
+  Installing _install/lib/main/META
+  Deleting _install/lib/main/dune-package
+  Installing _install/lib/main/dune-package
+  Deleting _install/lib/main/opam
+  Installing _install/lib/main/opam
+  Deleting _install/bin/main
+  Installing _install/bin/main
+  Deleting _install/bin/main.bc.wasm.assets/build_info.wasm
+  Installing _install/bin/main.bc.wasm.assets/build_info.wasm
+  Deleting _install/bin/main.bc.wasm.assets/build_info.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/build_info.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/build_info__Build_info_data.wasm
+  Installing _install/bin/main.bc.wasm.assets/build_info__Build_info_data.wasm.map
+  Deleting _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm
+  Installing _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm
+  Deleting _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/dune__exe__Main.wasm.map
+  Deleting _install/bin/main.bc.wasm.assets/prelude.wasm
+  Installing _install/bin/main.bc.wasm.assets/prelude.wasm
+  Deleting _install/bin/main.bc.wasm.assets/runtime.wasm
+  Installing _install/bin/main.bc.wasm.assets/runtime.wasm
+  Deleting _install/bin/main.bc.wasm.assets/start.wasm
+  Installing _install/bin/main.bc.wasm.assets/start.wasm
+  Deleting _install/bin/main.bc.wasm.assets/std_exit.wasm
+  Installing _install/bin/main.bc.wasm.assets/std_exit.wasm
+  Deleting _install/bin/main.bc.wasm.assets/std_exit.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/std_exit.wasm.map
+  Deleting _install/bin/main.bc.wasm.assets/stdlib.wasm
+  Installing _install/bin/main.bc.wasm.assets/stdlib.wasm
+  Deleting _install/bin/main.bc.wasm.assets/stdlib.wasm.map
+  Installing _install/bin/main.bc.wasm.assets/stdlib.wasm.map
+  Deleting _install/bin/main.bc.wasm.js
+  Installing _install/bin/main.bc.wasm.js
+  Deleting _install/doc/main/README
+  Installing _install/doc/main/README
+  $ node _build/default/src/main.bc.wasm.js
+  0.2.0

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/build-info.t/src/dune

@@ -0,0 +1,12 @@
+(executable
+ (name main)
+ (public_name main)
+ (modes wasm byte)
+ (modules main)
+ (package main)
+ (libraries dune-build-info))
+
+(install
+ (section bin)
+ (files main.bc.wasm.js)
+ (dirs main.bc.wasm.assets))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/wasmoo/build-info.t/src/main.ml

@@ -0,0 +1,9 @@
+let version =
+  match Build_info.V1.version () with
+  | None -> "unknown"
+  | Some v -> Build_info.V1.Version.to_string v
+
+let () = match String.split_on_char '-' version with
+  | [tag; plus; _commit; dirty] -> Printf.printf "%s-%s-%s-%s" tag plus "xxxxx" dirty
+  | [ x ] -> print_endline x
+  | _ -> print_endline "unexpected"