;;;; -*- 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))) "
") (deftest lml.1 (with-output-to-string (s) (let ((*html-output* s)) (span-c 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"))) "Foo Bar test
") (deftest lml.3 (with-output-to-string (s) (let ((*html-output* s) (a 5.5d0)) (p a))) "

5.5d0

") (deftest lml.4 (with-output-to-string (s) (let ((*html-output* s) (a 0.75)) (img "http://localhost/test.png" :width a))) "") (deftest lml.5 (with-output-to-string (s) (let ((*html-output* s)) (div "Start" (p "Testing")))) "
Start

Testing

") (deftest lml.6 (with-output-to-string (s) (let ((*html-output* s)) (div :style "font-weight:bold" "Start" (p-c a_class "Testing")))) "
Start

Testing

")