{-# LANGUAGE OverloadedStrings #-}
module Hledger.Web.Test (
hledgerWebTest
) where
import Data.String (fromString)
import Data.Function ((&))
import qualified Data.Text as T
import Test.Hspec (hspec)
import Yesod.Default.Config
import Yesod.Test
import Hledger.Web.Application ( makeAppWith )
import Hledger.Web.WebOptions
import Hledger.Web.Import hiding (get, j)
import Hledger.Cli hiding (prognameandversion)
runTests :: String -> [(String,String)] -> Journal -> YesodSpec App -> IO ()
runTests :: [Char] -> [([Char], [Char])] -> Journal -> YesodSpec App -> IO ()
runTests [Char]
testsdesc [([Char], [Char])]
rawopts Journal
j YesodSpec App
tests = do
WebOpts
wopts <- RawOpts -> IO WebOpts
rawOptsToWebOpts (RawOpts -> IO WebOpts) -> RawOpts -> IO WebOpts
forall a b. (a -> b) -> a -> b
$ [([Char], [Char])] -> RawOpts
mkRawOpts [([Char], [Char])]
rawopts
let yconf :: AppConfig DefaultEnv Extra
yconf = AppConfig{
appEnv :: DefaultEnv
appEnv = DefaultEnv
Testing
,appHost :: HostPreference
appHost = WebOpts -> [Char]
host_ WebOpts
wopts [Char] -> ([Char] -> HostPreference) -> HostPreference
forall a b. a -> (a -> b) -> b
& [Char] -> HostPreference
forall a. IsString a => [Char] -> a
fromString
,appPort :: Int
appPort = WebOpts -> Int
port_ WebOpts
wopts
,appRoot :: Text
appRoot = WebOpts -> [Char]
base_url_ WebOpts
wopts [Char] -> ([Char] -> Text) -> Text
forall a b. a -> (a -> b) -> b
& [Char] -> Text
T.pack
,appExtra :: Extra
appExtra = Extra
{ extraCopyright :: Text
extraCopyright = Text
""
, extraAnalytics :: Maybe Text
extraAnalytics = Maybe Text
forall a. Maybe a
Nothing
, extraStaticRoot :: Maybe Text
extraStaticRoot = [Char] -> Text
T.pack ([Char] -> Text) -> Maybe [Char] -> Maybe Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> WebOpts -> Maybe [Char]
file_url_ WebOpts
wopts
}
}
App
app <- Journal -> AppConfig DefaultEnv Extra -> WebOpts -> IO App
makeAppWith Journal
j AppConfig DefaultEnv Extra
yconf WebOpts
wopts
Spec -> IO ()
hspec (Spec -> IO ()) -> Spec -> IO ()
forall a b. (a -> b) -> a -> b
$ App -> YesodSpec App -> Spec
forall site. YesodDispatch site => site -> YesodSpec site -> Spec
yesodSpec App
app (YesodSpec App -> Spec) -> YesodSpec App -> Spec
forall a b. (a -> b) -> a -> b
$ [Char] -> YesodSpec App -> YesodSpec App
forall site. [Char] -> YesodSpec site -> YesodSpec site
ydescribe [Char]
testsdesc YesodSpec App
tests
hledgerWebTest :: IO ()
hledgerWebTest :: IO ()
hledgerWebTest = do
[Char] -> IO ()
putStrLn ([Char] -> IO ()) -> [Char] -> IO ()
forall a b. (a -> b) -> a -> b
$ [Char]
"Running tests for " [Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ [Char]
prognameandversion
let d :: Day
d = Year -> Int -> Int -> Day
fromGregorian Year
2000 Int
1 Int
1
[Char] -> [([Char], [Char])] -> Journal -> YesodSpec App -> IO ()
runTests [Char]
"hledger-web" [] Journal
nulljournal (YesodSpec App -> IO ()) -> YesodSpec App -> IO ()
forall a b. (a -> b) -> a -> b
$ do
[Char] -> YesodExample App () -> YesodSpec App
forall site. [Char] -> YesodExample site () -> YesodSpec site
yit [Char]
"serves a reasonable-looking journal page" (YesodExample App () -> YesodSpec App)
-> YesodExample App () -> YesodSpec App
forall a b. (a -> b) -> a -> b
$ do
Route App -> YesodExample App ()
forall site url.
(Yesod site, RedirectUrl site url) =>
url -> YesodExample site ()
get Route App
JournalR
Int -> YesodExample App ()
forall site. HasCallStack => Int -> YesodExample site ()
statusIs Int
200
[Char] -> YesodExample App ()
forall site. HasCallStack => [Char] -> YesodExample site ()
bodyContains [Char]
"Add a transaction"
[Char] -> YesodExample App () -> YesodSpec App
forall site. [Char] -> YesodExample site () -> YesodSpec site
yit [Char]
"serves a reasonable-looking register page" (YesodExample App () -> YesodSpec App)
-> YesodExample App () -> YesodSpec App
forall a b. (a -> b) -> a -> b
$ do
Route App -> YesodExample App ()
forall site url.
(Yesod site, RedirectUrl site url) =>
url -> YesodExample site ()
get Route App
RegisterR
Int -> YesodExample App ()
forall site. HasCallStack => Int -> YesodExample site ()
statusIs Int
200
[Char] -> YesodExample App ()
forall site. HasCallStack => [Char] -> YesodExample site ()
bodyContains [Char]
"accounts"
[Char] -> YesodExample App () -> YesodSpec App
forall site. [Char] -> YesodExample site () -> YesodSpec site
yit [Char]
"hyperlinks use a base url made from the default host and port" (YesodExample App () -> YesodSpec App)
-> YesodExample App () -> YesodSpec App
forall a b. (a -> b) -> a -> b
$ do
Route App -> YesodExample App ()
forall site url.
(Yesod site, RedirectUrl site url) =>
url -> YesodExample site ()
get Route App
JournalR
Int -> YesodExample App ()
forall site. HasCallStack => Int -> YesodExample site ()
statusIs Int
200
let defaultbaseurl :: [Char]
defaultbaseurl = [Char] -> Int -> [Char]
defbaseurl [Char]
defhost Int
defport
[Char] -> YesodExample App ()
forall site. HasCallStack => [Char] -> YesodExample site ()
bodyContains ([Char]
"href=\"" [Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ [Char]
defaultbaseurl)
[Char] -> YesodExample App ()
forall site. HasCallStack => [Char] -> YesodExample site ()
bodyContains ([Char]
"src=\"" [Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ [Char]
defaultbaseurl)
let
rawopts :: [([Char], [Char])]
rawopts = [([Char]
"forecast",[Char]
"")]
iopts :: InputOpts
iopts = Day -> RawOpts -> InputOpts
rawOptsToInputOpts Day
d (RawOpts -> InputOpts) -> RawOpts -> InputOpts
forall a b. (a -> b) -> a -> b
$ [([Char], [Char])] -> RawOpts
mkRawOpts [([Char], [Char])]
rawopts
f :: [Char]
f = [Char]
"fake"
Journal
pj <- Text -> IO Journal
readJournal' ([Char] -> Text
T.pack ([Char] -> Text) -> [Char] -> Text
forall a b. (a -> b) -> a -> b
$ [[Char]] -> [Char]
unlines
[[Char]
"~ monthly"
,[Char]
" assets 10"
,[Char]
" income"
])
Journal
j <- (Either [Char] Journal -> Journal)
-> IO (Either [Char] Journal) -> IO Journal
forall a b. (a -> b) -> IO a -> IO b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap (([Char] -> Journal)
-> (Journal -> Journal) -> Either [Char] Journal -> Journal
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
either [Char] -> Journal
forall a. HasCallStack => [Char] -> a
error Journal -> Journal
forall a. a -> a
id) (IO (Either [Char] Journal) -> IO Journal)
-> (ExceptT [Char] IO Journal -> IO (Either [Char] Journal))
-> ExceptT [Char] IO Journal
-> IO Journal
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ExceptT [Char] IO Journal -> IO (Either [Char] Journal)
forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
runExceptT (ExceptT [Char] IO Journal -> IO Journal)
-> ExceptT [Char] IO Journal -> IO Journal
forall a b. (a -> b) -> a -> b
$ InputOpts -> [Char] -> Text -> Journal -> ExceptT [Char] IO Journal
journalFinalise InputOpts
iopts [Char]
f Text
"" Journal
pj
[Char] -> [([Char], [Char])] -> Journal -> YesodSpec App -> IO ()
runTests [Char]
"hledger-web with --forecast" [([Char], [Char])]
rawopts Journal
j (YesodSpec App -> IO ()) -> YesodSpec App -> IO ()
forall a b. (a -> b) -> a -> b
$ do
[Char] -> YesodExample App () -> YesodSpec App
forall site. [Char] -> YesodExample site () -> YesodSpec site
yit [Char]
"shows forecasted transactions" (YesodExample App () -> YesodSpec App)
-> YesodExample App () -> YesodSpec App
forall a b. (a -> b) -> a -> b
$ do
Route App -> YesodExample App ()
forall site url.
(Yesod site, RedirectUrl site url) =>
url -> YesodExample site ()
get Route App
JournalR
Int -> YesodExample App ()
forall site. HasCallStack => Int -> YesodExample site ()
statusIs Int
200
[Char] -> YesodExample App ()
forall site. HasCallStack => [Char] -> YesodExample site ()
bodyContains [Char]
"id=\"transaction-2-1\""
[Char] -> YesodExample App ()
forall site. HasCallStack => [Char] -> YesodExample site ()
bodyContains [Char]
"id=\"transaction-2-2\""