Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit 9078ffa62e030f4419cd465ee604da81750da11b 1 parent 9bb6ab1
@nikodemus authored
Showing with 9 additions and 9 deletions.
  1. +9 −9 test/simple
View
18 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
Please sign in to comment.
Something went wrong with that request. Please try again.