[bpt/guile.git] / test-suite / standalone / test-extensions

#!/bin/sh
exec guile -q -s "$0" "$@"
!#

(load-extension (string-append (getenv "builddir") "/libtest-extensions")
                "libtest_extensions_init")
(load-extension (string-append (getenv "builddir") "/libtest-extensions")
                "libtest_extensions_init2")

(or (= init2-count 1)
    (error "init2 called more or less than one time"))


;; Local Variables:
;; mode: scheme
;; End:
Commit	Line	Data
a44c4336 AW	1	#!/bin/sh
	2	exec guile -q -s "$0" "$@"
	3	!#
	4
5b98517a LC	5	(load-extension (string-append (getenv "builddir") "/libtest-extensions")
	6	"libtest_extensions_init")
	7	(load-extension (string-append (getenv "builddir") "/libtest-extensions")
	8	"libtest_extensions_init2")
a44c4336 AW	9
	10	(or (= init2-count 1)
	11	(error "init2 called more or less than one time"))
	12
	13
	14	;; Local Variables:
	15	;; mode: scheme
	16	;; End: