;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
-;;;; $Id: tests.lisp,v 1.1 2003/06/07 02:26:07 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
(deftest lml.3
(with-output-to-string (s)
(let ((*html-output* s)
- (a 5.5d0))
+ (a 5.5d0))
(p a)))
"<p>5.5d0</p>")
(deftest lml.4
(with-output-to-string (s)
(let ((*html-output* s)
- (a 0.75))
+ (a 0.75))
(img "http://localhost/test.png" :width a)))
"<img src=\"http://localhost/test.png\" width=\"0.75\" />")
(with-output-to-string (s)
(let ((*html-output* s))
(div "Start"
- (p "Testing"))))
+ (p "Testing"))))
"<div>Start<p>Testing</p></div>")
(deftest lml.6
(with-output-to-string (s)
(let ((*html-output* s))
(div :style "font-weight:bold"
- "Start"
- (p-c a_class "Testing"))))
+ "Start"
+ (p-c a_class "Testing"))))
"<div style=\"font-weight:bold\">Start<p class=\"a_class\">Testing</p></div>")