2021-02-08 07:46:24 +01:00
|
|
|
#!/usr/bin/env sh
|
|
|
|
|
exec guile -L . -s "$0" "$@"
|
|
|
|
|
!#
|
|
|
|
|
|
2021-02-11 11:55:40 +01:00
|
|
|
(use-modules (potato make)
|
2021-02-08 07:46:24 +01:00
|
|
|
(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")
|
|
|
|
|
|
