Tests corrected.

tests/coreutils.rkt

@@ -107,8 +107,8 @@
            (λ (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))
+     (check-equal? (path->string (car edit-call)) "one.txt")
+     (check-true (cadr edit-call))
 
      (set! edit-call #f)
      (parameterize
@@ -116,8 +116,8 @@
            (λ (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-equal? (path->string (car edit-call)) "one.txt")
+     (check-false (cadr edit-call))
 
      (check-exn
       exn:fail?
@@ -166,8 +166,8 @@
                    "abc\n")
      (check-equal? (capture-filter "a   b\n" coreutils-tr "-s" " ")
                    "a b\n")
-     (check-true (regexp-match? #rx"a[/\\]b"
-                                (capture-output coreutils-dirname "a/b/c.txt")))
+     (check-equal? (capture-output coreutils-dirname "a/b/c.txt")
+                   "a/b/\n")
 
      (define env-output
        (parameterize ([current-coreutils-command-runner
@@ -210,7 +210,7 @@
      (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$"
+       #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