hans/rash-coreutils
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tests corrected.

Browse Source
This commit is contained in:
Hans Dijkema
2026-08-22 13:50:03 +02:00
parent 201b8f189c
commit 7f66e09e9b
7 changed files with 25 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/coreutils.rkt
+7 -7
View File
@@ -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
tests/rash-smoke.rkt
+3 -3
View File
@@ -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)))
(λ ()