hablo/test/Mock/URL.hs

module Mock.URL (
      cdnFavicon
    , hostFavicon
    , localDiscovered
    , localFavicon
    , prefixedTestSite
    , testHost
    , testSite
  ) where

import Blog.URL (AbsoluteURL(..))
import Network.URL (Host(..), Protocol(..), URL(..), URLType(..))

testHost :: Host
testHost = Host (HTTP True) "test.net" Nothing

testSite :: AbsoluteURL
testSite = AbsoluteURL {
      Blog.URL.host = testHost
    , urlPath = ""
    , urlParams = []
  }

prefixedTestSite :: AbsoluteURL
prefixedTestSite = AbsoluteURL {
        Blog.URL.host = testHost
      , urlPath = "subPath"
      , urlParams = []
  }

cdn :: Host
cdn = Host (HTTP True) "cdn.net" Nothing

cdnFavicon :: URL
cdnFavicon = URL {
      url_type = Absolute cdn
    , url_path = "favicon.png"
    , url_params = []
  }

hostFavicon :: URL
hostFavicon = URL {
      url_type = HostRelative
    , url_path = "favicon.png"
    , url_params = []
  }

localFavicon :: URL
localFavicon = URL {
      url_type = PathRelative
    , url_path = "favicon.png"
    , url_params = []
  }

localDiscovered :: URL
localDiscovered = URL {
      url_type = PathRelative
    , url_path = "skin/favicon.png"
    , url_params = []
  }