fix unportable tests

  Previously the tests implicitly assumed that EVAL does macroexpansion
  at runtime -- which is legal, but not required.

  Add explicit EVAL calls to tests requiring that.

1 files changed, 9 insertions, 9 deletions

diff --git a/test/simple b/test/simple
index 6fa48e5..96686a1 100644
--- a/test/simple
+++ b/test/simple
@@ -105,8 +105,8 @@
 
 ;;; 11
 (string= (let ((*prologue* "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\">"))
-           (with-html-output-to-string (out nil :prologue t)
-             (:apply (:factorial) (:cn "3"))))
+           (eval `(with-html-output-to-string (out nil :prologue t)
+                    (:apply (:factorial) (:cn "3")))))
          "<!DOCTYPE math SYSTEM \"http://www.w3.org/Math/DTD/mathml1/mathml.dtd\">
 <apply><factorial></factorial><cn>3</cn></apply>")
 
@@ -231,16 +231,16 @@
          "<p></p>")
 
 ;;; 19
-(string= (let ((*html-empty-tag-aware-p* nil))
-           (with-html-output-to-string (out)
-             (:p)))
+(string= (let ((cl-who:*html-empty-tag-aware-p* nil))
+           (eval `(with-html-output-to-string (out)
+                    (:p))))
          "<p />")
 
 ;;; 20
 (string= (let ((*html-empty-tag-aware-p* t)
                (*html-empty-tags* '(:p)))
-           (with-html-output-to-string (out)
-             (:p)))
+           (eval `(with-html-output-to-string (out)
+                    (:p))))
          "<p />")
 
 ;;; 21
@@ -250,8 +250,8 @@
 
 ;;; 22
 (string= (let ((*downcase-tokens-p* nil))
-           (with-html-output-to-string (out)
-             (:|Foo| :bar 42)))
+           (eval `(with-html-output-to-string (out)
+                    (:|Foo| :bar 42))))
          "<Foo BAR='42'></Foo>")
 
 ;;; 23