X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=ab61331b6f626b1717d0d5ef2e89fb3a7ca0cd47;hb=c18c02e07944ea56688b4fc350dbdab400f84fe1;hp=3b881f386b3318b5dd144283cbf7fdee41273ea7;hpb=b2e27d22e4901acfffac824ea15679edf14c6ec9;p=lml.git diff --git a/tests.lisp b/tests.lisp index 3b881f3..ab61331 100644 --- a/tests.lisp +++ b/tests.lisp @@ -41,14 +41,14 @@ (deftest lml.3 (with-output-to-string (s) (let ((*html-output* s) - (a 5.5d0)) + (a 5.5d0)) (p a))) "

5.5d0

") (deftest lml.4 (with-output-to-string (s) (let ((*html-output* s) - (a 0.75)) + (a 0.75)) (img "http://localhost/test.png" :width a))) "") @@ -56,14 +56,14 @@ (with-output-to-string (s) (let ((*html-output* s)) (div "Start" - (p "Testing")))) + (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" + (p-c a_class "Testing")))) "
Start

Testing

")