Permalink
Browse files

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.
  • Loading branch information...
1 parent 9bb6ab1 commit 9078ffa62e030f4419cd465ee604da81750da11b @nikodemus committed Apr 9, 2012
Showing with 9 additions and 9 deletions.
  1. +9 −9 test/simple
View
@@ -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

0 comments on commit 9078ffa

Please sign in to comment.