unikernel/duniverse/dune_/test/expect-tests/dune_config_file/dune

@@ -0,0 +1,16 @@
+(library
+ (name dune_config_file_test)
+ (inline_tests)
+ (libraries
+  dune_tests_common
+  dune_lang
+  dune_config_file
+  stdune
+  ;; This is because of the (implicit_transitive_deps false)
+  ;; in dune-project
+  ppx_expect.config
+  ppx_expect.config_types
+  base
+  ppx_inline_test.config)
+ (preprocess
+  (pps ppx_expect)))

unikernel/duniverse/dune_/test/expect-tests/dune_config_file/dune_config_test.ml

@@ -0,0 +1,90 @@
+open Dune_lang
+open Dune_config_file
+
+let () = Printexc.record_backtrace false
+
+let parse s =
+  let ast = Parser.parse_string ~fname:"expect_test" ~mode:Parser.Mode.Single s in
+  let decode =
+    Dune_lang.Syntax.set Dune_lang.Stanza.syntax (Active (3, 0)) Dune_config.decode
+  in
+  Dune_lang.Decoder.parse decode Stdune.Univ_map.empty ast
+  |> Dune_config.(superpose default)
+  |> Dune_config.to_dyn
+  |> Dune_tests_common.print_dyn
+;;
+
+let%expect_test "cache-check-probability 0.1" =
+  parse "(cache-check-probability 0.1)";
+  [%expect
+    {|
+    { display = Simple { verbosity = Quiet; status_line = false }
+    ; concurrency = Fixed 1
+    ; terminal_persistence = Clear_on_rebuild
+    ; sandboxing_preference = []
+    ; cache_enabled = Enabled_except_user_rules
+    ; cache_reproducibility_check = Check_with_probability 0.1
+    ; cache_storage_mode = Some Hardlink
+    ; action_stdout_on_success = Print
+    ; action_stderr_on_success = Print
+    ; project_defaults =
+        { authors = Some [ "Author Name <author@example.com>" ]
+        ; maintainers = Some [ "Maintainer Name <maintainer@example.com>" ]
+        ; maintenance_intent = None
+        ; license = Some [ "LICENSE" ]
+        }
+    ; pkg_enabled = false
+    ; experimental = []
+    }
+    |}]
+;;
+
+let%expect_test "cache-storage-mode copy" =
+  parse "(cache-storage-mode copy)";
+  [%expect
+    {|
+    { display = Simple { verbosity = Quiet; status_line = false }
+    ; concurrency = Fixed 1
+    ; terminal_persistence = Clear_on_rebuild
+    ; sandboxing_preference = []
+    ; cache_enabled = Enabled_except_user_rules
+    ; cache_reproducibility_check = Skip
+    ; cache_storage_mode = Some Copy
+    ; action_stdout_on_success = Print
+    ; action_stderr_on_success = Print
+    ; project_defaults =
+        { authors = Some [ "Author Name <author@example.com>" ]
+        ; maintainers = Some [ "Maintainer Name <maintainer@example.com>" ]
+        ; maintenance_intent = None
+        ; license = Some [ "LICENSE" ]
+        }
+    ; pkg_enabled = false
+    ; experimental = []
+    }
+    |}]
+;;
+
+let%expect_test "cache-storage-mode hardlink" =
+  parse "(cache-storage-mode hardlink)";
+  [%expect
+    {|
+    { display = Simple { verbosity = Quiet; status_line = false }
+    ; concurrency = Fixed 1
+    ; terminal_persistence = Clear_on_rebuild
+    ; sandboxing_preference = []
+    ; cache_enabled = Enabled_except_user_rules
+    ; cache_reproducibility_check = Skip
+    ; cache_storage_mode = Some Hardlink
+    ; action_stdout_on_success = Print
+    ; action_stderr_on_success = Print
+    ; project_defaults =
+        { authors = Some [ "Author Name <author@example.com>" ]
+        ; maintainers = Some [ "Maintainer Name <maintainer@example.com>" ]
+        ; maintenance_intent = None
+        ; license = Some [ "LICENSE" ]
+        }
+    ; pkg_enabled = false
+    ; experimental = []
+    }
+    |}]
+;;