X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=tests.lisp;h=a364c75214375da88f8534d5d63d67afc34d2582;hb=04855fdf0f08cfc768ce7ebc4d49cdd2e19b3f64;hp=6116688e52899b91d5cde8e96d02b2dbd6fc8ce2;hpb=be1b61b9a1a19ea618b9cd854d6539957c4efd57;p=lml2.git diff --git a/tests.lisp b/tests.lisp index 6116688..a364c75 100644 --- a/tests.lisp +++ b/tests.lisp @@ -2,12 +2,12 @@ ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; -;;;; Name: lml-tests.lisp -;;;; Purpose: lml tests file +;;;; Name: tests.lisp +;;;; Purpose: tests file ;;;; Author: Kevin M. Rosenberg ;;;; Date Started: Apr 2003 ;;;; -;;;; $Id: tests.lisp,v 1.2 2003/07/12 17:54:05 kevin Exp $ +;;;; $Id$ ;;;; ;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg. ;;;; Rights of modification and redistribution are in the LICENSE file. @@ -16,55 +16,130 @@ (in-package #:cl) (defpackage #:lml-tests - (:use #:lml #:cl #:rtest)) + (:use #:lml2 #:cl #:rtest)) (in-package #:lml-tests) (rem-all-tests) (deftest lml.0 (with-output-to-string (s) - (let ((*html-output* s)) - (div))) + (let ((*html-stream* s)) + (html (:div)))) "
") (deftest lml.1 (with-output-to-string (s) - (let ((*html-output* s)) - (span-c foo "Foo Bar"))) + (let ((*html-stream* s)) + (html ((:span class 'foo) "Foo Bar")))) "Foo Bar") (deftest lml.2 (with-output-to-string (s) - (let ((*html-output* s)) - (table-c foo :style "width:80%" "Foo" " Bar" " test"))) + (let ((*html-stream* s)) + (html ((:table class "foo" :style "width:80%") + "Foo" " Bar" " test")))) "5.5d0
") (deftest lml.4 (with-output-to-string (s) - (let ((*html-output* s) + (let ((*html-stream* s) (a 0.75)) - (img "http://localhost/test.png" :width a))) + (html ((:img :src "http://localhost/test.png" :width a))))) "") (deftest lml.5 (with-output-to-string (s) - (let ((*html-output* s)) - (div "Start" - (p "Testing")))) + (let ((*html-stream* s)) + (html + (:div "Start" + (:p "Testing"))))) "Testing
Testing