swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
unikernel/duniverse/dune_/otherlibs/stdune/test/fpath_tests.ml Normal file
View file

@ -0,0 +1,13 @@
open Stdune
let%expect_test "is_root" =
[ ""; "."; "/"; "foo/bar"; "/foo" ]
|> List.iter ~f:(fun path -> printfn "Fpath.is_root %S = %b" path (Fpath.is_root path));
[%expect
{|
Fpath.is_root "" = false
Fpath.is_root "." = true
Fpath.is_root "/" = true
Fpath.is_root "foo/bar" = false
Fpath.is_root "/foo" = false |}]
;;