Login
7 branches 0 tags
Ben (X13/Arch) Fixed 32-bit platforms (hopefully!) 383aed4 2 years ago 1105 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!)))