home: hub: zuo

Info • Files • Log

ref: 1cc4a95509e9b17b4141d9eed6c6a04b525a7d3a
dir: /tests/variable.zuo/

#lang zuo

(require "harness.zuo")

(alert "variables")

(check (variable? (variable 'alice)))
(check (not (variable? 'alice)))

(check-fail (variable-ref (variable 'alice)) "undefined: alice")
(check-fail (variable-ref 'alice) "not a variable")

(check (let ([a (variable 'alice)])
         (variable-set! a 'home)
         (list (variable-ref a) (variable-ref a)))
       '(home home))
(check-fail (let ([a (variable 'alice)])
              (variable-set! a 'home)
              (variable-set! a 'home))
            "variable already has a value")
(check-fail (variable-set! 'alice 'home) "not a variable")

(check-arg-fail (variable 10) "not a symbol")