diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-26 16:11:37 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-26 16:11:37 +0100 |
| commit | 1bcce776e786eb6688bace653ecafa1a5a4fb563 (patch) | |
| tree | fc889c8e4af23c32dec6637d5c4e2de1fe383830 /tests/Hakyll/Web/Util | |
| parent | 25b8c8b199082ebbc41d1af03fc19202b798f156 (diff) | |
| download | hakyll-1bcce776e786eb6688bace653ecafa1a5a4fb563.tar.gz | |
Re-add some tests, cleanup...
Diffstat (limited to 'tests/Hakyll/Web/Util')
| -rw-r--r-- | tests/Hakyll/Web/Util/Html/Tests.hs | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/tests/Hakyll/Web/Util/Html/Tests.hs b/tests/Hakyll/Web/Util/Html/Tests.hs index e73c88b..3a99ca7 100644 --- a/tests/Hakyll/Web/Util/Html/Tests.hs +++ b/tests/Hakyll/Web/Util/Html/Tests.hs @@ -1,15 +1,22 @@ +-------------------------------------------------------------------------------- module Hakyll.Web.Util.Html.Tests ( tests ) where -import Test.Framework -import Test.HUnit hiding (Test) -import Hakyll.Web.Util.Html -import TestSuite.Util +-------------------------------------------------------------------------------- +import Test.Framework (Test, testGroup) +import Test.HUnit ((@=?)) -tests :: [Test] -tests = concat + +-------------------------------------------------------------------------------- +import Hakyll.Web.Util.Html +import TestSuite.Util + + +-------------------------------------------------------------------------------- +tests :: Test +tests = testGroup "Hakyll.Web.Util.Html" $ concat [ fromAssertions "stripTags" [ "foo" @=? stripTags "<p>foo</p>" , "foo bar" @=? stripTags "<p>foo</p> bar" |