Source file `test_part_completion.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
open! Core
open! Async

let arg_type = File_path.Part.arg_type

let%expect_test _ =
  let%bind () =
    Helpers_async.test_arg_type
      (module File_path.Part)
      ~expect_output:(fun () -> [%expect.output])
  in
  [%expect
    {|
    ""
    Choose: ".fe", "app", "home", "lib", "libmap.sexp"

    "."
    Choose: "", ".", "..", ".fe"

    ".f"
    ".fe"
    Finish: ".fe"

    "a"
    "ap"
    "app"
    Finish: "app"

    "h"
    "ho"
    "hom"
    "home"
    Finish: "home"

    "l"
    "li"
    Extend: "lib"

    "lib"
    Choose: "", "lib", "libmap.sexp"

    "libm"
    "libma"
    ...
    "libmap.sex"
    "libmap.sexp"
    Finish: "libmap.sexp" |}];
  return ()
;;