(import (edward ed cmd)
        (edward ed posix)
        (edward ed addr)
        (edward ed editor))

(define (test-parse-cmd desc expected input)
  (test desc expected
        (let* ((cmd-input (string-append input "\n"))
               (cmd-pair  (%test-parse (parse-cmd) cmd-input))
               (cmd-addr  (car cmd-pair))
               (cmd-args  (cmd-args (cdr cmd-pair))))
          (append (list cmd-addr) cmd-args))))

(define (test-cmd-error desc expected input)
  (test-parse-error desc expected (parse-cmd) input))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(test-group "append command"
  (test-parse-cmd "no arguments"
    (list #f '()) "a\n.")
  (test-parse-cmd "preceeding whitespaces"
    (list #f '()) "  a\n.")
  (test-parse-cmd "custom address without offset"
    (list
      (addr->range (make-addr '(nth-line . 2342)))
      '())
    "2342    a\n.")
  (test-parse-cmd "custom address with offset"
    (list
      (addr->range (make-addr '(last-line . ()) '(42)))
      '())
    "$+42 a\n."))

(test-group "read command"
  (test-parse-cmd "no arguments"
    (list
      #f
      "") "r")

  (test-parse-cmd "custom address"
    (list
      (addr->range (make-addr '(nth-line . 42)))
      "") "42r")

  (test-parse-cmd "custom address and file"
    (list
      (addr->range (make-addr '(regex-backward . "foo") '(23 -42)))
      "foobar") "?foo? +23 -42 r foobar")

  (test-cmd-error "filename w/o whitespace" "expected newline" "rfoo"))

(test-group "write command"
  (test-parse-cmd "no arguments"
    (list
      #f
      "") "w")

  (test-parse-cmd "custom address and offset, no whitespaces"
    (list
      (make-range
        (make-addr '(current-line))
        (make-addr '(current-line) '(10)))
      "foobar") ".,.+10w foobar")

  (test-cmd-error "filename w/o whitespace" "expected newline" "wfoo"))

(test-group "shell command"
  (test-parse-cmd "no replacements"
    (list #f (list "echo foobar")) "!echo foobar")
  (test-parse-cmd "command with replacement"
    (list #f (list "echo " 'current-file)) "!echo %")
  (test-parse-cmd "previous command"
    (list #f '(previous-command)) "!!")
  (test-parse-cmd "previous command appended"
    (list #f '(previous-command "foobar")) "!!foobar")
  (test-parse-cmd "previous command syntax not start"
    (list #f '("foobar !! barfoo")) "!foobar !! barfoo")
  (test-parse-cmd "escaped replacement"
    (list #f (list "echo %")) "!echo \\%")
  (test-parse-cmd "multiple replacements"
    (list #f (list "echo " 'current-file " " 'current-file)) "!echo % %"))

(test-group "global command"
  (test-parse-cmd "single command no newline"
    (list
      (make-range
        (make-addr '(nth-line . 1))
        (make-addr '(last-line)))
      "foo"
      "p\n") "1,$g/foo/p")

  (test-parse-cmd "empty command-list"
    (list
      #f
      "bar"
      "p\n") "g/bar/")

  (test-parse-cmd "single trailing whitespace"
    (list
      (make-range
        (make-addr '(nth-line . 1))
        (make-addr '(last-line)))
      "foobar"
      "p \n") "1,$g/foobar/p ")

  (test-parse-cmd "single command no newline"
    (list
      (make-range
        (make-addr '(nth-line . 23))
        (make-addr '(nth-line . 42)))
      "test"
      "p \np\n") "23,42g/test/p \\\np")

  (test-cmd-error "missing regex" "expected regex" "1,$gp"))

(test-group "miscellaneous"
  (test-parse-cmd "parse command with trailing blanks"
    (list (addr->range (make-addr '(nth-line . 2342)))
          '())
    "2342a     \n.")

  (test-parse-cmd "append command with suffixed printing command"
    (list (addr->range (make-addr '(nth-line . 42)))
          '())
     "42an\n.")

  (test-cmd-error "unknown command character" "unknown command" "X")
  (test-cmd-error "quit command with argument" "expected newline" "Qn")
  (test-cmd-error "append command with argument" "expected newline" "a n"))