test-suite/standalone/test-extensions

   1 #!/bin/sh
   2 exec guile -q -s "$0" "$@"
   3 !#
   4
   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")
   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: