556fe84ef8
`content-with-more-marker` returns a HTML string when the `content`
conteins more marker ("<!--more-->").
In many case, HTML tags in `content` is balanced.
ex.
------------------------------
<div id='post'>
<div class='post-content'>
this post has more marker
<!--more-->
and more content.
</div>
</div>
------------------------------
But original code breaks the balance.
------------------------------
<div id='post'>
<div class='post-content'>
this post has more marker
------------------------------
Afer this patch applied, `tagsoup` read above text and `hiccup`
re-render to HTML text with correct balanced tags.
------------------------------
<div id='post'>
<div class='post-content'>
this post has more marker
</div></div>
------------------------------
23 lines
766 B
Clojure
23 lines
766 B
Clojure
(ns cryogen-core.compiler-test
|
|
(:require [clojure.test :refer :all]
|
|
[cryogen-core.compiler :refer :all]))
|
|
|
|
; Test that the content-until-more-marker return nil or correct html text.
|
|
(deftest test-content-until-more-marker
|
|
; text without more marker, return nil
|
|
(is (nil? (content-until-more-marker "<div id=\"post\">
|
|
<div class=\"post-content\">
|
|
this post does not have more marker
|
|
</div>
|
|
</div>")))
|
|
; text with more marker, return text before more marker with closing tags.
|
|
(is (= (content-until-more-marker "<div id='post'>
|
|
<div class='post-content'>
|
|
this post has more marker
|
|
<!--more-->
|
|
and more content.
|
|
</div>
|
|
</div>")
|
|
"<div id=\"post\"><div class=\"post-content\">
|
|
this post has more marker
|
|
</div></div>")))
|
