49 lines
1.4 KiB
Haskell
49 lines
1.4 KiB
Haskell
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# OPTIONS -Wno-unused-top-binds #-}
|
|
module Handler.ProfileSpec (spec) where
|
|
|
|
import TestImport
|
|
|
|
import qualified Data.CaseInsensitive as CI
|
|
|
|
import Yesod.Core.Handler (toTextUrl)
|
|
|
|
spec :: Spec
|
|
-- spec = test_spec
|
|
spec = return () -- TODO: tests deactivated -- build/release problem
|
|
|
|
test_spec :: Spec
|
|
test_spec = withApp $ do
|
|
describe "Profile page" $ do
|
|
it "asserts no access to my-account for anonymous users" $ do
|
|
get ProfileR
|
|
|
|
loginText <- runHandler . toTextUrl $ AuthR LoginR
|
|
|
|
assertHeader "Location" $ encodeUtf8 loginText
|
|
|
|
either (throwM . userError . unpack) (\_ -> return ()) =<< followRedirect
|
|
statusIs 200
|
|
|
|
it "asserts access to my-account for authenticated users" $ do
|
|
userEntity <- createUser id
|
|
authenticateAs userEntity
|
|
|
|
get ProfileR
|
|
statusIs 200
|
|
|
|
it "displays basic user data" $ do
|
|
userEntity@(Entity _userId User{..}) <- createUser id
|
|
authenticateAs userEntity
|
|
|
|
get ProfileDataR
|
|
statusIs 200
|
|
|
|
forM_ (words userDisplayName) $ \nameWord -> do
|
|
htmlAnyContain ".profile dd" $ unpack nameWord
|
|
htmlAnyContain ".profile dd" $ unpack userSurname
|
|
htmlAnyContain ".profile dd" . unpack $ CI.original userIdent
|
|
htmlAnyContain ".profile dd" . unpack $ CI.original userEmail
|
|
|