unikernel/duniverse/dune_/test/blackbox-tests/test-cases/findlib-dynload.t/main.ml

@@ -0,0 +1,12 @@
+let () = print_endline "m: init"
+
+let () =
+  for i = 1 to (Array.length Sys.argv - 1); do
+    try
+      Fl_dynload.load_packages [Sys.argv.(i)]
+    with
+    | Fl_package_base.No_such_package(pkg, _) ->
+      Printf.printf "The package %S can't be found.\n%!" pkg
+    | Dynlink.Error error ->
+      Printf.printf "Error during dynlink: %s\n%!" (Dynlink.error_message error)
+  done