artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

tests: string-join: Be noisy.

Browse source 
* scaffold/boot/50-string-join.scm ("string-join\n"): Avoid exit 0
without output.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-12-30 18:45:18 +01:00
parent d79b5edb4f
commit 99adc7efdc
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scaffold/boot/50-string-join.scm
View file

@ -45,6 +45,7 @@
(if (null? (cdr lst)) (car lst) (if (null? (cdr lst)) (car lst)
(string-append (car lst) infix (string-join (cdr lst) infix)))) (string-append (car lst) infix (string-join (cdr lst) infix))))
(core:display "string-join\n")
(if (string=? (string-join '("foo" "bar") "/") "foo/bar") (if (string=? (string-join '("foo" "bar") "/") "foo/bar")
(exit 0)) (exit 0))
(exit 1) (exit 1)