3 (luna-define-class test-riece-eval (lunit-test-case))
5 (luna-define-method test-riece-eval-string ((case test-riece-eval))
9 (riece-eval-form "\"abc\"")
14 (riece-eval-form "(concat \"d\" \"e\" \"f\")")
17 (luna-define-method test-riece-eval-list ((case test-riece-eval))
21 (riece-eval-form "'(a b c)")
26 (riece-eval-form "(cons 'd \"e\")")
29 (luna-define-method test-riece-eval-number ((case test-riece-eval))
33 (riece-eval-form "123")
38 (riece-eval-form "(+ 123 45.6)")
41 (luna-define-method test-riece-eval-nil ((case test-riece-eval))
45 (riece-eval-form "nil")
50 (riece-eval-form "'()")
53 (luna-define-method test-riece-eval-error ((case test-riece-eval))
54 (let (riece-eval-ignore-error symbol)
59 (riece-eval-form "symbol")
60 "Error evaluating symbol: (void-variable symbol)"))
61 (setq riece-eval-ignore-error t)
65 (riece-eval-form "symbol")