Import Riece subtree

[packages] / xemacs-packages / riece / lisp / test / test-riece-eval.el

diff --git a/xemacs-packages/riece/lisp/test/test-riece-eval.el b/xemacs-packages/riece/lisp/test/test-riece-eval.el
new file mode 100644 (file)
index 0000000..d4ec193
--- /dev/null
+++ b/xemacs-packages/riece/lisp/test/test-riece-eval.el
@@ -0,0 +1,66 @@
+(require 'riece-eval)
+
+(luna-define-class test-riece-eval (lunit-test-case))
+
+(luna-define-method test-riece-eval-string ((case test-riece-eval))
+  (lunit-assert-2
+   case
+   (equal
+    (riece-eval-form "\"abc\"")
+    "abc"))
+  (lunit-assert-2
+   case
+   (equal
+    (riece-eval-form "(concat \"d\" \"e\" \"f\")")
+    "def")))
+
+(luna-define-method test-riece-eval-list ((case test-riece-eval))
+  (lunit-assert-2
+   case
+   (equal
+    (riece-eval-form "'(a b c)")
+    "(a b c)"))
+  (lunit-assert-2
+   case
+   (equal
+    (riece-eval-form "(cons 'd \"e\")")
+    "(d . \"e\")")))
+
+(luna-define-method test-riece-eval-number ((case test-riece-eval))
+  (lunit-assert-2
+   case
+   (equal
+    (riece-eval-form "123")
+    "123"))
+  (lunit-assert-2
+   case
+   (equal
+    (riece-eval-form "(+ 123 45.6)")
+    "168.6")))
+
+(luna-define-method test-riece-eval-nil ((case test-riece-eval))
+  (lunit-assert-2
+   case
+   (equal
+    (riece-eval-form "nil")
+    ""))
+  (lunit-assert-2
+   case
+   (equal
+    (riece-eval-form "'()")
+    "")))
+
+(luna-define-method test-riece-eval-error ((case test-riece-eval))
+  (let (riece-eval-ignore-error symbol)
+    (makunbound 'symbol)
+    (lunit-assert-2
+     case
+     (equal
+      (riece-eval-form "symbol")
+      "Error evaluating symbol: (void-variable symbol)"))
+    (setq riece-eval-ignore-error t)
+    (lunit-assert-2
+     case
+     (equal
+      (riece-eval-form "symbol")
+      nil))))