{-# LANGUAGE QuasiQuotes #-}
module Test.Errors (testSuite) where

import Yesod
import Yesod.Helpers.Auth
import Network.Wai
import Data.Default
import Data.List
import Test.Framework (testGroup, Test)
import Test.Framework.Providers.HUnit
import Test.HUnit hiding (Test)
import qualified Data.ByteString.Char8 as B8

data Errors = Errors
instance Yesod Errors where
    resources = [$mkResources|
/denied:
    Get: denied
/needs-ident:
    Get: needsIdent
/has-args:
    Get: hasArgs
|]
instance YesodApproot Errors where
    approot _ = "IGNORED/"
instance YesodAuth Errors

denied :: Handler Errors ()
denied = permissionDenied

needsIdent :: Handler Errors (Html, HtmlObject)
needsIdent = do
    i <- authIdentifier
    return (cs "", cs i)

hasArgs :: Handler Errors (Html, HtmlObject)
hasArgs = do
    {- FIXME wait for new request API
    (a, b) <- runRequest $ (,) <$> getParam "firstParam"
                               <*> getParam "secondParam"
    -}
    let (a, b) = ("foo", "bar")
    return (cs "", cs [a :: String, b])

caseErrorMessages :: Assertion
caseErrorMessages = do return ()
{- FIXME
    app <- toWaiApp Errors
    res <- app $ def { pathInfo = B8.pack "/denied/" }
    assertBool "/denied/" $ "Permission denied" `isInfixOf` show res
    res' <- app $ def { pathInfo = B8.pack "/needs-ident/" }
    assertBool "/needs-ident/" $ "IGNORED/auth/openid/" `isInfixOf` show res'
    -}
    {- FIXME this test is not yet ready
    res3 <- app $ def { pathInfo = "/has-args/" }
    assertBool "/has-args/" $ "secondParam" `isInfixOf` show res3
    -}

testSuite :: Test
testSuite = testGroup "Test.Errors"
    [ testCase "errorMessages" caseErrorMessages
    ]