X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=ab61331b6f626b1717d0d5ef2e89fb3a7ca0cd47;hb=c18c02e07944ea56688b4fc350dbdab400f84fe1;hp=04012a73a494782be7238d30b2847b3ea3e779e6;hpb=f31c5912d3e308b77a0b6790298ed13d334377c9;p=lml.git

diff --git a/tests.lisp b/tests.lisp
index 04012a7..ab61331 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -7,7 +7,7 @@
 ;;;; 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
 ;;;;
@@ -41,14 +41,14 @@
 (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\" />")
 
@@ -56,14 +56,14 @@
   (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>")