You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
gnucash/bindings/guile/test/test-load-app-utils-module.scm

21 lines
566 B

(define exit-code 0)
(setenv "GNC_UNINSTALLED" "1")
(use-modules (gnucash app-utils))
(cond
((defined? 'gnc:apply-with-error-handling)
(display "Procedure gnc:apply-with-error-handling found\n"))
(else
(display "Failed - procedure gnc:apply-with-error-handling not found\n")
(set! exit-code -1)))
(cond
((defined? 'gnc-default-currency)
(display "Procedure gnc-default-currency found\n"))
(else
(display "Failed - procedure gnc-default-currency not found\n")
(set! exit-code -1)))
(exit exit-code)