From 9078ffa62e030f4419cd465ee604da81750da11b Mon Sep 17 00:00:00 2001
From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 9 Apr 2012 12:08:33 +0300
Subject: 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.
---
 test/simple | 18 +++++++++---------
 1 file 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
-- 
cgit v1.2.3