Tests corrected.

2026-08-22 13:50:03 +02:00
parent 201b8f189c
commit 7f66e09e9b
7 changed files with 25 additions and 17 deletions
@@ -50,15 +50,15 @@
   (define error-text (get-output-string errors))
   (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$"
     error-text))
   (define text (get-output-string output))
   (check-true (regexp-match? #rx"hello from rash-coreutils" text))
   (check-true (regexp-match? #rx"info[.]rkt" text))
   (check-true (regexp-match? #rx"42" text))
   (check-true (regexp-match? #rx"timed" text))
-   (check-equal? (path->string (first edited)) "info.rkt")
-   (check-true (second edited))
+   (check-equal? (path->string (car edited)) "info.rkt")
+   (check-true (cadr edited))
   (check-true (regexp-match? #rx"\n3\n" text))
   (check-true (regexp-match? #px"[0-9]{4}-[0-9]{2}-[0-9]{2}T" text)))
 (λ ()