22 lines
659 B
Haskell
22 lines
659 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module Hakyll.Web.RelativizeUrls.Tests
|
||
|
|
( tests
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Test.Framework
|
||
|
|
import Test.Framework.Providers.HUnit
|
||
|
|
import Test.HUnit hiding (Test)
|
||
|
|
|
||
|
|
import Hakyll.Web.RelativizeUrls
|
||
|
|
import TestSuite.Util
|
||
|
|
|
||
|
|
tests :: [Test]
|
||
|
|
tests = fromAssertions "relativizeUrls"
|
||
|
|
[ "<a href=\"../foo\">bar</a>" @=?
|
||
|
|
relativizeUrls ".." "<a href=\"/foo\">bar</a>"
|
||
|
|
, "<img src=\"../../images/lolcat.png\"></img>" @=?
|
||
|
|
relativizeUrls "../.." "<img src=\"/images/lolcat.png\" />"
|
||
|
|
, "<a href=\"http://haskell.org\">Haskell</a>" @=?
|
||
|
|
relativizeUrls "../.." "<a href=\"http://haskell.org\">Haskell</a>"
|
||
|
|
]
|