unikernel/duniverse/dune_/otherlibs/stdune/test/filename_tests.ml

@@ -0,0 +1,73 @@
+open Stdune
+open Dune_tests_common
+
+let () = init ()
+let extension s = print (Pp.text (Filename.extension s))
+
+let%expect_test _ =
+  extension "toto.titi";
+  [%expect
+    {|
+.titi
+|}]
+;;
+
+let%expect_test _ =
+  extension "toto.";
+  [%expect
+    {|
+.
+|}]
+;;
+
+let%expect_test _ =
+  extension ".";
+  [%expect {| |}]
+;;
+
+let%expect_test _ =
+  extension ".titi";
+  [%expect {| |}]
+;;
+
+let%expect_test _ =
+  extension ".a";
+  [%expect {| |}]
+;;
+
+let%expect_test _ =
+  extension "a.";
+  [%expect
+    {|
+.
+|}]
+;;
+
+let%expect_test _ =
+  extension "a.a";
+  [%expect
+    {|
+.a
+|}]
+;;
+
+let%expect_test _ =
+  extension "truc/a.a";
+  [%expect
+    {|
+.a
+|}]
+;;
+
+let%expect_test _ =
+  extension "truc/.a";
+  [%expect {| |}]
+;;
+
+let%expect_test _ =
+  extension "truc/a.";
+  [%expect
+    {|
+.
+|}]
+;;