File: test_pos_all.ml

package info (click to toggle)
cmdliner 1.3.0-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 512 kB
  • sloc: ml: 3,659; makefile: 59
file content (11 lines) | stat: -rw-r--r-- 319 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
open Cmdliner

let pos_all all = print_endline (String.concat "\n" all)

let test_pos_all =
  let docv = "THEARG" in
  let all = Arg.(value & pos_all string [] & info [] ~docv) in
  let info = Cmd.info "test_pos_all" ~doc:"Test pos all" in
  Cmd.v info Term.(const pos_all $ all)

let () = exit (Cmd.eval test_pos_all)