src/test/test.lisp

   1 #+nil
   2 (format t "~s" (cxml-pt-to-lhtml
   3                  (parse-html "<br/>ėšį<br> <div>fdsaa <span>fdsadfafdsa</span> <booo> <div>fdsafdsafdsa </div>")))
   4
   5 (assert (equal
   6 (cxml-pt-to-lhtml
   7  (parse-html
   8 "
   9 <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
  10           \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
  11 <html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\">
  12   <head>
  13 <base href=\"http://licejus.pov.lt/calendar/daily.html\" />
  14 "
  15 ))
  16 '(:HTML NIL
  17   (:HEAD NIL (:BASE ((:HREF "http://licejus.pov.lt/calendar/daily.html"))))
  18   (:BODY NIL))))
  19
  20
  21 (assert (equal
  22 (cxml-pt-to-lhtml
  23  (parse-html
  24 "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">
  25 <html dir=\"ltr\">
  26 <head>
  27 <meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1257\">
  28 <meta http-equiv=\"Content-Style-Type\" content=\"text/css\">
  29
  30 <title>GameDev.LT - Žaidimų kūrimas Lietuvoje :: Index</title>
  31 <!-- link rel=\"stylesheet\" href=\"templates/DustyGreen/DustyGreen.css\" type=\"text/css\" -->
  32 <link rel=\"stylesheet\" href=\"templates/DustyGreen/ssmitems.css\" type=\"text/css\">
  33 </head>
  34 <script>
  35 <!--
  36
  37 /*
  38 Copyright © MaXimuS 2002, All Rights Reserved.
  39 Site: http://maximus.ravecore.com
  40 E-mail: maximusforever@hotmail.com
  41 Script: Static Slide Menu
  42 Version: 6.6 Build 34
  43 */
  44
  45 NS6=(document.getElementById&&!document.all)
  46 IE=(document.all);IE4=(document.all&&!document.getElementById)
  47 NS=(navigator.appName==\"Netscape\" && navigator.appVersion.charAt(0)==\"4\")
  48 OP=(navigator.userAgent.indexOf('Opera')>-1)
  49 -->
  50 </script>
  51 "
  52 ))
  53 '(:HTML NIL
  54  (:HEAD NIL
  55   (:META
  56    ((:HTTP-EQUIV "Content-Type")
  57     (:CONTENT "text/html; charset=windows-1257")))
  58   (:META ((:HTTP-EQUIV "Content-Style-Type") (:CONTENT "text/css")))
  59   (:TITLE NIL "GameDev.LT - Žaidimų kūrimas Lietuvoje :: Index")
  60   (:LINK
  61    ((:REL "stylesheet") (:HREF "templates/DustyGreen/ssmitems.css")
  62     (:TYPE "text/css"))))
  63  (:BODY NIL))))