(use test html-parser)

(test-begin "html-parser")

(define (string-scan str pat)
  (string-length ((make-string-reader/ci pat) (open-input-string str))))

(test-group "utilities"

(test "string-scan (basic)" 3 (string-scan "abcdefghi" "def"))

(test "string-scan (case-insensitive)" 3 (string-scan "abcdEfghi" "deF"))

(test "string-scan (single char)" 4 (string-scan "abcdefghi" "e"))

(test "string-scan (overlap)" 12
  (string-scan "salkabcdabghabcdabdef" "abcdabd"))

(test "string-scan (boyer-moore)" 216
       (string-scan "abracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabrabracadababrabrabr"
                    "abracadabra"))

(test "string-scan (empty pattern)" 0
       (string-scan "abakjrgaker" ""))

)

(test-group "parsing"

(test '((a (@ (href "http://foo.scm/")) "foo"))
    (html->sxml "<a href=\"http://foo.scm/\">foo</a>"))

(test '((a "a" (b "ab") "a" (c "ac")) "x")
    (html->sxml "<a>a<b>ab</b>a<c>ac</c></a>x"))

(test '((p "p1") (p "p2") (p "p3"))
    (html->sxml "<p>p1<p>p2</p><p>p3"))

(test '((i "italic" (b "bold italic")) (b "bold"))
    (html->sxml "<i>italic<b>bold italic</i>bold</b>"))

(test '((*PI* xml "blah blah"))
    (html->sxml "<?xml blah blah?>"))

(test '("abc" (*COMMENT* "def") "ghi")
    (html->sxml "abc<!--def-->ghi"))

(test '((pre "<a>&amp;<!--foo-->"))
    (html->sxml "<pre><![CDATA[<a>&amp;<!--foo-->]]></pre>"))

(test '((xmp "<a>&amp;<!--foo--><![CDATA[...]]></a>"))
    (html->sxml "<xmp><a>&amp;<!--foo--><![CDATA[...]]></a></xmp>"))

)

(test-end)