Aded extended commands and editor

tests/coreutils.rkt

@@ -9,6 +9,7 @@
          "../private/dispatcher.rkt"
          "../private/help.rkt"
          "../private/racket-tools.rkt"
+         "../private/editor.rkt"
          "../private/env-support.rkt")
 
 (define (capture-output procedure . args)
@@ -95,8 +96,36 @@
      (check-equal? (coreutils-help-search-term 'directory-list)
                    "directory-list")
      (check-equal? (coreutils-help-search-term 'raco) "rash-coreutils-raco")
+     (check-equal? (coreutils-help-search-term 'edit) "rash-coreutils-edit")
      (check-true (path? (find-raco-executable)))
      (check-true (procedure? coreutils-raco))
+     (check-true (procedure? (current-coreutils-editor)))
+
+     (define edit-call #f)
+     (parameterize
+         ([current-coreutils-editor
+           (λ (filename #:wait? [wait? #f])
+             (set! edit-call (list filename wait?)))])
+       (dispatch-coreutils-command 'edit '--wait "one.txt"))
+     (check-equal? (path->string (first edit-call)) "one.txt")
+     (check-true (second edit-call))
+
+     (set! edit-call #f)
+     (parameterize
+         ([current-coreutils-editor
+           (λ (filename #:wait? [wait? #f])
+             (set! edit-call (list filename wait?)))])
+       (dispatch-coreutils-command 'edit "one.txt"))
+     (check-equal? (path->string (first edit-call)) "one.txt")
+     (check-false (second edit-call))
+
+     (check-exn
+      exn:fail?
+      (λ ()
+        (parameterize
+            ([current-coreutils-editor
+              (λ (filename #:wait? [wait? #f]) (void))])
+          (dispatch-coreutils-command 'edit "one.txt" "two.txt"))))
 
      (call-with-output-file "lines.txt"
        #:exists 'truncate
@@ -106,6 +135,27 @@
                    "one\ntwo\n")
      (check-equal? (capture-output coreutils-tail "-n" "1" "lines.txt")
                    "three\n")
+
+     ;; A long physical line must not force head or tail to materialize that
+     ;; line in memory. The 64 KiB internal block size is crossed many times.
+     (define long-lines-path (build-path test-root "long-lines.txt"))
+     (define long-chunk (make-bytes (* 64 1024) 120))
+     (call-with-output-file long-lines-path
+       #:exists 'truncate
+       (λ (out)
+         (display "first\n" out)
+         (for ([i (in-range 64)])
+           (write-bytes long-chunk out))
+         (display "\nlast-one\nlast-two\n" out)))
+     (check-equal? (capture-output coreutils-head "-n" "1" long-lines-path)
+                   "first\n")
+     (check-equal? (capture-output coreutils-tail "-n" "2" long-lines-path)
+                   "last-one\nlast-two\n")
+     (call-with-input-file long-lines-path
+       (λ (in)
+         (parameterize ([current-input-port in])
+           (check-equal? (capture-output coreutils-tail "-n" "2")
+                         "last-one\nlast-two\n"))))
      (check-equal? (capture-output coreutils-wc "-l" "lines.txt")
                    "3\n")
      (check-equal? (capture-output coreutils-basename "a/b/c.txt")
@@ -146,6 +196,23 @@
      (check-true (regexp-match? #px"[0-9]{4}-[0-9]{2}-[0-9]{2}T"
                                 (capture-output coreutils-date "--iso")))
 
+
+     ;; time writes measurements to stderr without contaminating command output.
+     (define time-error (open-output-string))
+     (define timed-output
+       (parameterize ([current-error-port time-error])
+         (capture-output
+          dispatch-coreutils-command
+          'time
+          'echo
+          'timed)))
+     (check-equal? timed-output "timed\n")
+     (define time-output (get-output-string time-error))
+     (check-true
+      (regexp-match?
+       #px"^real\\t[0-9]+[.][0-9]{3}s\ncpu\\t[0-9]+[.][0-9]{3}s\ngc\\t[0-9]+[.][0-9]{3}s\n$"
+       time-output))
+
      (check-exn
       exn:fail?
       (λ ()