Login
7 branches 0 tags
Ben (X13/Arch) Simplified things a little 0643405 9 days ago 1260 Commits
nujel / tests / testsuite / module.nuj
(:unbound-variable (try car (test/count!)))
(:a (let ((mod (module (export a :a))))
                  (module/insert :test-suite-module mod)
                  (import a :test-suite-module)
                  a))
(3 (let ((mod (module (def counter 0)
                         (export count! (fn () (inc! counter))))))
                  (module/insert :test-suite-module mod)
                  (require :test-suite-module)
                  (test-suite-module/count!)
                  (test-suite-module/count!)
                  (test-suite-module/count!)))