33 lines
619 B
Plaintext
33 lines
619 B
Plaintext
%%%% Starting test foreign-c-system
|
|
Group begin: foreign-c-system
|
|
Test begin:
|
|
source-file: "./test-r7rs"
|
|
source-line: 13
|
|
source-form: (test-assert
|
|
(= exit-code1
|
|
0))
|
|
Test end:
|
|
result-kind: pass
|
|
actual-value: #t
|
|
Test begin:
|
|
source-file: "./test-r7rs"
|
|
source-line: 23
|
|
source-form: (test-assert
|
|
(string=? text
|
|
"Hello"))
|
|
Test end:
|
|
result-kind: fail
|
|
actual-value: #f
|
|
Test begin:
|
|
source-file: "./test-r7rs"
|
|
source-line: 27
|
|
source-form: (test-assert
|
|
(> exit-code2
|
|
0))
|
|
Test end:
|
|
result-kind: pass
|
|
actual-value: #t
|
|
Group end: foreign-c-system
|
|
# of expected passes 2
|
|
# of unexpected failures 1
|