X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=14dc3c86cd046b9b1243e9ed9c8b329c3ae945b9;hb=036f2ad6ffbed292636d817949b1436cfd6f8fdf;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"))))
- "")
-
-(deftest lml.3
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (a 5.5d0))
- (html (:p (:princ a)))))
- "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")))))
- "")
-
-(deftest lml.6
- (with-output-to-string (s)
- (let ((*html-stream* s))
- (html
- ((:div :style "font-weight:bold")
- "Start"
- ((:p class 'a_class) "Testing")))))
- "")
-
-(deftest lml.7
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (class "aclass"))
- (html
- ((:div :optional (:class class))
- "bod"))))
- "bod
")
-
-(deftest lml.8
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (class nil))
- (html
- ((:div :optional (:class class))
- "bod"))))
- "bod
")
-
-(deftest lml.9
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (do-class t)
- (class "aclass"))
- (html
- ((:div :when (:class do-class class))
- "bod"))))
- "bod
")
-
-(deftest lml.10
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (do-class nil)
- (class "aclass"))
- (html
- ((:div :when (:class do-class class))
- "bod"))))
- "bod
")
-
-
-(deftest lml.11
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (v 10))
- (html
- ((:div :fformat (:onclick "a&b('~A')" v))))))
- "")
-
-(deftest lml.12
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (v 10))
- (html
- ((:div :format (:onclick "a&b('~A')" v))))))
- "")
-
-(deftest lml.13
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (selector t)
- (v 10))
- (html
- ((:div :if (:width selector 1 2))))))
- "")
-
-(deftest lml.14
- (with-output-to-string (s)
- (let ((*html-stream* s)
- (selector nil)
- (v 10))
- (html
- ((:div :if (:width selector 1 2))))))
- "")