X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=2%2Ftests.lisp;fp=2%2Ftests.lisp;h=fca7c27aefab9964d4cec3295e26ffc8d9d0dcda;hb=096b456fe920373f3b54fbe47f10f3e41c4fe925;hp=0000000000000000000000000000000000000000;hpb=9191a298494fa0128d7633518d63c566622bee63;p=lml.git

diff --git a/2/tests.lisp b/2/tests.lisp
new file mode 100644
index 0000000..fca7c27
--- /dev/null
+++ b/2/tests.lisp
@@ -0,0 +1,69 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          lml-tests.lisp
+;;;; Purpose:       lml tests file
+;;;; Author:        Kevin M. Rosenberg
+;;;; Date Started:  Apr 2003
+;;;;
+;;;; $Id: tests.lisp,v 1.1 2003/06/20 04:12:29 kevin Exp $
+;;;;
+;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
+;;;;
+;;;; *************************************************************************
+
+(in-package #:cl)
+(defpackage #:lml-tests
+  (:use #:lml #:cl #:rtest))
+(in-package #:lml-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>")
+