18 lines
334 B
Scheme
18 lines
334 B
Scheme
|
#!/usr/bin/env sh
|
||
|
|
exec guile -L . -s "$0" "$@"
|
||
|
|
!#
|
||
|
|
|
||
|
|
(use-modules (studious-potato)
|
||
|
|
(srfi srfi-1)
|
||
|
|
(srfi srfi-64))
|
||
|
|
|
||
|
|
(test-begin "initialization")
|
||
|
|
|
||
|
|
(test-assert "initialize doesn't set verbose flag"
|
||
|
|
(begin
|
||
|
|
(initialize #:arguments '() #:environ #f)
|
||
|
|
(not (%opt-verbose?))))
|
||
|
|
|
||
|
|
(test-end "initialization")
|
||
|
|
|