mirror of
https://github.com/Gnucash/gnucash.git
synced 2026-09-03 20:53:02 -05:00
* src/gnc-module/test/test-scm-multi: turned into guile script
invoked via /bin/sh. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5908 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
@@ -1,11 +1,18 @@
|
||||
#! /bin/sh
|
||||
guile -c "(use-modules (gnucash gnc-module))
|
||||
(gnc:module-system-init)
|
||||
(gnc:module-load \"gnucash/foo\" 0)
|
||||
(foo:hello)
|
||||
(foo:scheme-hello)
|
||||
(gnc:module-load \"gnucash/bar\" 0)
|
||||
(foo:hello)
|
||||
(foo:scheme-hello)
|
||||
(bar:hello)
|
||||
(bar:scheme-hello)"
|
||||
exec guile -s $0 "$@"
|
||||
!#
|
||||
|
||||
(use-modules (gnucash gnc-module))
|
||||
(gnc:module-system-init)
|
||||
(gnc:module-load "gnucash/foo" 0)
|
||||
(foo:hello)
|
||||
(foo:scheme-hello)
|
||||
(gnc:module-load "gnucash/bar" 0)
|
||||
(foo:hello)
|
||||
(foo:scheme-hello)
|
||||
(bar:hello)
|
||||
(bar:scheme-hello)
|
||||
|
||||
;; Local Variables:
|
||||
;; mode: scheme
|
||||
;; End:
|
||||
|
||||
Reference in New Issue
Block a user