28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
(ducttape-color-mode #f)
)
(define (reset-ducttape-with-cmdline-list cmdline-list)
(reset-ducttape)
(command-line-arguments cmdline-list)
(process-command-line)
)
(define (direct-iputs-test)
(ducttape-color-mode #f)
(ierr "I'm an error")
(iwarn "I'm a warning")
|
|
|
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
(ducttape-color-mode #f)
)
(define (reset-ducttape-with-cmdline-list cmdline-list)
(reset-ducttape)
(command-line-arguments cmdline-list)
(ducttape-process-command-line)
)
(define (direct-iputs-test)
(ducttape-color-mode #f)
(ierr "I'm an error")
(iwarn "I'm a warning")
|
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
(let-values (((ec o e) (isys "/bin/ls /zzzzz")))
(let ((expected-code
(if (equal? systype "Darwin") 1 2))
(expected-err
(if (equal? systype "Darwin")
"ls: /zzzzz: No such file or directory"
"/bin/ls: cannot access /zzzzz: No such file or directory"))
)
(test "isys: /bin/ls /zzzzz should have exit code 2" expected-code ec)
(test "isys: /bin/ls /zzzzz should have empty stdout" "" o)
(test
"isys: /bin/ls /zzzzz should have stderr"
expected-err
|
|
|
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
(let-values (((ec o e) (isys "/bin/ls /zzzzz")))
(let ((expected-code
(if (equal? systype "Darwin") 1 2))
(expected-err
(if (equal? systype "Darwin")
"ls: /zzzzz: No such file or directory"
"/bin/ls: .* /zzzzz: No such file or directory"))
)
(test "isys: /bin/ls /zzzzz should have exit code 2" expected-code ec)
(test "isys: /bin/ls /zzzzz should have empty stdout" "" o)
(test
"isys: /bin/ls /zzzzz should have stderr"
expected-err
|