X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=inline;f=tests.lisp;h=12265fb102831a82c3c5caaff44a665ade8771ee;hb=8b8f883cca7933fc7d87ffbad77f60f028ff925e;hp=fca7c27aefab9964d4cec3295e26ffc8d9d0dcda;hpb=a5621a5bf235313916f437a55d9998418ee26f5a;p=lml2.git diff --git a/tests.lisp b/tests.lisp index fca7c27..12265fb 100644 --- a/tests.lisp +++ b/tests.lisp @@ -2,68 +2,144 @@ ;;;; ************************************************************************* ;;;; 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.1 2003/06/20 04:12:29 kevin Exp $ +;;;; $Id: tests.lisp,v 1.3 2003/07/15 19:25:28 kevin Exp $ ;;;; -;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg +;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg. +;;;; Rights of modification and redistribution are in the LICENSE file. ;;;; ;;;; ************************************************************************* (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