tests/variable.scm.in

   1 (set! %load-compiled-path (cons "@abs_top_builddir@/lisp" %load-compiled-path))
   2 (primitive-load "@abs_builddir@/testing-common.scm")
   3
   4 (use-modules (gnu bash))
   5
   6 (with-srfi-64-test
   7  (for-each
   8   (lambda (env-var)
   9     (test-equal (getenv env-var)
  10                 (get-string-value env-var)))
  11   (environ))
  12  ;; ;; Test short syntax
  13  (test-equal (getenv "HOME") ($ 'HOME))
  14  (set! #$HOME "BAR")
  15  (test-equal ($ 'HOME) "BAR")
  16  (set! ($ " _var") "value")
  17  (test-equal "value" ($ " _var"))
  18  (set! #$? 1)
  19  (test-equal #$? 1))