File: fpath_tests.ml

package info (click to toggle)
ocaml-dune 3.20.2-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 33,564 kB
  • sloc: ml: 175,178; asm: 28,570; ansic: 5,251; sh: 1,096; lisp: 625; makefile: 148; python: 125; cpp: 48; javascript: 10
file content (13 lines) | stat: -rw-r--r-- 351 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
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 |}]
;;