(define-test-module (test module sph cli)
  (import
    (sph cli))

  (define test-env-cli-config
    (list #:name "test-interface"
      #:options
      (q
        ( (input #:names (#\i "input")
            #:required? #t
            #:value-required? #t
            #:type integer #:description "this option can be used for specifying input files")
          (test #:names #\t) ((output-file input-file ...) #:required? #t)))
      #:version (q (0 1))
      #:help "test help" #:about "-my-custom-about-text-" #:missing-arguments-handler #f))

  (define test-env-cli (apply cli-create test-env-cli-config))
  (define-test (general inp) (test-env-cli (list "a" "b" "c" "-i" "1")))

  (define-test (required)
    (assert-and
      (assert-true "named"
        (catch (q missing-arguments) (nullary (test-env-cli (list)))
          (l (key count missing) (equal? (q (input)) missing)))))
    (assert-true "unnamed"
      (catch (q missing-arguments) (nullary (test-env-cli (list "-i" "1")))
        (l (key count missing) (eqv? 1 count)))))

  (test-execute-procedures-lambda
    (general #t ((output-file . "a") (input-file "b" "c") (input . 1))) (required)))