X-Git-Url: http://git.kpe.io/?p=lml2.git;a=blobdiff_plain;f=tests.lisp;h=5efcd47caedb9abb1cd73d42793b8cf30deb8d03;hp=6116688e52899b91d5cde8e96d02b2dbd6fc8ce2;hb=cd7657d502de822c899ad08d7e37dd6e778f3d26;hpb=be1b61b9a1a19ea618b9cd854d6539957c4efd57

diff --git a/tests.lisp b/tests.lisp
index 6116688..5efcd47 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -2,69 +2,21 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:          lml-tests.lisp
-;;;; Purpose:       lml tests file
+;;;; Name:          tests.lisp
+;;;; Purpose:       tests file
 ;;;; Author:        Kevin M. Rosenberg
-;;;; Date Started:  Apr 2003
+;;;; Date Started:  Oct 2006
 ;;;;
-;;;; $Id: tests.lisp,v 1.2 2003/07/12 17:54:05 kevin Exp $
-;;;;
-;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg.
-;;;; Rights of modification and redistribution are in the LICENSE file.
+;;;; $Id$
 ;;;;
+;;;; Copyright (c) 2006 by Kevin Rosenberg.
 ;;;; *************************************************************************
 
 (in-package #:cl)
-(defpackage #:lml-tests
-  (:use #:lml #:cl #:rtest))
-(in-package #:lml-tests)
+(defpackage #:lml2-tests
+  (:use #:lml2 #:cl #:regression-test))
+(in-package #:lml2-tests)
 
 (rem-all-tests)
 
-(deftest lml.0
-  (with-output-to-string (s)
-    (let ((*html-output* s))
-      (div)))
-  "<div></div>")
-
-(deftest lml.1
-  (with-output-to-string (s)
-    (let ((*html-output* s))
-      (span-c foo "Foo Bar")))
-  "<span class=\"foo\">Foo Bar</span>")
-
-(deftest lml.2
-  (with-output-to-string (s)
-    (let ((*html-output* s))
-      (table-c foo :style "width:80%" "Foo" " Bar" " test")))
-  "<table class=\"foo\" style=\"width:80%\">Foo Bar test</table>")
-
-(deftest lml.3
-  (with-output-to-string (s)
-    (let ((*html-output* s)
-	  (a 5.5d0))
-      (p a)))
-  "<p>5.5d0</p>")
-
-(deftest lml.4
-  (with-output-to-string (s)
-    (let ((*html-output* s)
-	  (a 0.75))
-      (img "http://localhost/test.png" :width a)))
-  "<img src=\"http://localhost/test.png\" width=\"0.75\" />")
-
-(deftest lml.5
-  (with-output-to-string (s)
-    (let ((*html-output* s))
-      (div "Start"
-	   (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"))))
-  "<div style=\"font-weight:bold\">Start<p class=\"a_class\">Testing</p></div>")