{-# LANGUAGE OverloadedStrings #-}
module Hledger.Web.Test (
hledgerWebTest
) where
import Control.Monad.Except (runExceptT)
import qualified Data.Text as T
import Test.Hspec (hspec)
import Yesod.Default.Config
import Yesod.Test
import Hledger.Web.Application ( makeFoundationWith )
import Hledger.Web.WebOptions ( WebOpts(cliopts_), defwebopts, prognameandversion )
import Hledger.Web.Import hiding (get, j)
import Hledger.Cli hiding (prognameandversion)
runHspecTestsWith :: AppConfig DefaultEnv Extra -> WebOpts -> Journal -> YesodSpec App -> IO ()
runHspecTestsWith :: AppConfig DefaultEnv Extra
-> WebOpts -> Journal -> YesodSpec App -> IO ()
runHspecTestsWith AppConfig DefaultEnv Extra
yesodconf WebOpts
hledgerwebopts Journal
j YesodSpec App
specs = do
App
app <- Journal -> AppConfig DefaultEnv Extra -> WebOpts -> IO App
makeFoundationWith Journal
j AppConfig DefaultEnv Extra
yesodconf WebOpts
hledgerwebopts
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
specs
hledgerWebTest :: IO ()
hledgerWebTest :: IO ()
hledgerWebTest = do
String -> IO ()
putStrLn (String -> IO ()) -> String -> IO ()
forall a b. (a -> b) -> a -> b
$ String
"Running tests for " String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
prognameandversion
let conf :: AppConfig DefaultEnv Extra
conf = AppConfig :: forall environment extra.
environment
-> Int
-> Text
-> HostPreference
-> extra
-> AppConfig environment extra
AppConfig{
appEnv :: DefaultEnv
appEnv = DefaultEnv
Testing
,appPort :: Int
appPort = Int
3000
,appRoot :: Text
appRoot = Text
"http://localhost:3000"
,appHost :: HostPreference
appHost = HostPreference
"*4"
,appExtra :: Extra
appExtra = Extra :: Text -> Maybe Text -> Maybe Text -> Extra
Extra
{ extraCopyright :: Text
extraCopyright = Text
""
, extraAnalytics :: Maybe Text
extraAnalytics = Maybe Text
forall a. Maybe a
Nothing
, extraStaticRoot :: Maybe Text
extraStaticRoot = Maybe Text
forall a. Maybe a
Nothing
}
}
AppConfig DefaultEnv Extra
-> WebOpts -> Journal -> YesodSpec App -> IO ()
runHspecTestsWith AppConfig DefaultEnv Extra
conf WebOpts
defwebopts Journal
nulljournal (YesodSpec App -> IO ()) -> YesodSpec App -> IO ()
forall a b. (a -> b) -> a -> b
$ do
String -> YesodSpec App -> YesodSpec App
forall site. String -> YesodSpec site -> YesodSpec site
ydescribe String
"hledger-web" (YesodSpec App -> YesodSpec App) -> YesodSpec App -> YesodSpec App
forall a b. (a -> b) -> a -> b
$ do
String -> YesodExample App () -> YesodSpec App
forall site. String -> YesodExample site () -> YesodSpec site
yit String
"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
String -> YesodExample App ()
forall site. HasCallStack => String -> YesodExample site ()
bodyContains String
"Add a transaction"
String -> YesodExample App () -> YesodSpec App
forall site. String -> YesodExample site () -> YesodSpec site
yit String
"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
String -> YesodExample App ()
forall site. HasCallStack => String -> YesodExample site ()
bodyContains String
"accounts"
let
iopts :: InputOpts
iopts = InputOpts
definputopts{forecast_ :: Maybe DateSpan
forecast_=DateSpan -> Maybe DateSpan
forall a. a -> Maybe a
Just DateSpan
nulldatespan}
copts :: CliOpts
copts = CliOpts
defcliopts{inputopts_ :: InputOpts
inputopts_=InputOpts
iopts, file_ :: [String]
file_=[String
""]}
wopts :: WebOpts
wopts = WebOpts
defwebopts{cliopts_ :: CliOpts
cliopts_=CliOpts
copts}
Journal
pj <- Text -> IO Journal
readJournal' (String -> Text
T.pack (String -> Text) -> String -> Text
forall a b. (a -> b) -> a -> b
$ [String] -> String
unlines
[String
"~ monthly"
,String
" assets 10"
,String
" income"
])
Journal
j <- (Either String Journal -> Journal)
-> IO (Either String Journal) -> IO Journal
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap ((String -> Journal)
-> (Journal -> Journal) -> Either String Journal -> Journal
forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
either String -> Journal
forall a. HasCallStack => String -> a
error Journal -> Journal
forall a. a -> a
id) (IO (Either String Journal) -> IO Journal)
-> (ExceptT String IO Journal -> IO (Either String Journal))
-> ExceptT String IO Journal
-> IO Journal
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ExceptT String IO Journal -> IO (Either String Journal)
forall e (m :: * -> *) a. ExceptT e m a -> m (Either e a)
runExceptT (ExceptT String IO Journal -> IO Journal)
-> ExceptT String IO Journal -> IO Journal
forall a b. (a -> b) -> a -> b
$ InputOpts -> String -> Text -> Journal -> ExceptT String IO Journal
journalFinalise InputOpts
iopts String
"fake" Text
"" Journal
pj
AppConfig DefaultEnv Extra
-> WebOpts -> Journal -> YesodSpec App -> IO ()
runHspecTestsWith AppConfig DefaultEnv Extra
conf WebOpts
wopts Journal
j (YesodSpec App -> IO ()) -> YesodSpec App -> IO ()
forall a b. (a -> b) -> a -> b
$ do
String -> YesodSpec App -> YesodSpec App
forall site. String -> YesodSpec site -> YesodSpec site
ydescribe String
"hledger-web --forecast" (YesodSpec App -> YesodSpec App) -> YesodSpec App -> YesodSpec App
forall a b. (a -> b) -> a -> b
$ do
String -> YesodExample App () -> YesodSpec App
forall site. String -> YesodExample site () -> YesodSpec site
yit String
"serves a journal page showing 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
String -> YesodExample App ()
forall site. HasCallStack => String -> YesodExample site ()
bodyContains String
"id=\"transaction-0-1\""
String -> YesodExample App ()
forall site. HasCallStack => String -> YesodExample site ()
bodyContains String
"id=\"transaction-0-2\""