X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=14dc3c86cd046b9b1243e9ed9c8b329c3ae945b9;hb=6012e4121f28571c153744de70b8fa01f2f4a57a;hp=a364c75214375da88f8534d5d63d67afc34d2582;hpb=e0405e6089892e5d88082bf12838b73e63440125;p=lml2.git diff --git a/tests.lisp b/tests.lisp index a364c75..14dc3c8 100644 --- a/tests.lisp +++ b/tests.lisp @@ -5,141 +5,17 @@ ;;;; Name: tests.lisp ;;;; Purpose: tests file ;;;; Author: Kevin M. Rosenberg -;;;; Date Started: Apr 2003 +;;;; Date Started: Oct 2006 ;;;; ;;;; $Id$ ;;;; -;;;; This file, part of LML2, is Copyright (c) 2000-2003 by Kevin Rosenberg. -;;;; Rights of modification and redistribution are in the LICENSE file. -;;;; +;;;; Copyright (c) 2006 by Kevin Rosenberg. ;;;; ************************************************************************* (in-package #:cl) -(defpackage #:lml-tests - (:use #:lml2 #:cl #:rtest)) -(in-package #:lml-tests) +(defpackage #:gmparse-tests + (:use #:gmparse #:cl #:rtest)) +(in-package #:gmparse-tests) (rem-all-tests) -(deftest lml.0 - (with-output-to-string (s) - (let ((*html-stream* s)) - (html (:div)))) - "
") - -(deftest lml.1 - (with-output-to-string (s) - (let ((*html-stream* s)) - (html ((:span class 'foo) "Foo Bar")))) - "Foo Bar") - -(deftest lml.2 - (with-output-to-string (s) - (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-stream* s) - (a 0.75)) - (html ((:img :src "http://localhost/test.png" :width a))))) - "") - -(deftest lml.5 - (with-output-to-string (s) - (let ((*html-stream* s)) - (html - (:div "Start" - (:p "Testing"))))) - "Testing
Testing