tests/alias.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 (with-srfi-64-test
   6  (for-each
   7   (lambda (key value)
   8     (add-alias key value)
   9     (test-equal "set/get" value (get-alias-value key))
  10     (test-equal "expand"  value (alias-expand key)))
  11   '("foo" "*bar" "**unknow" "!!bar")
  12   '("cat" "cat"  "cat"      "cat"))
  13  (test-equal 4 (length (all-aliases)))
  14  (delete-all-aliases)
  15  (test-equal '() (all-aliases))
  16  (add-alias #:some-alias #:some-value)
  17  (test-equal "some-value" (get-alias-value 'some-alias))
  18  (delete-all-aliases)
  19  (add-alias "the-alias" "some expansion"))