slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: use unspaced scopes to simplify command lines (#812)

Browse Source
This commit is contained in:
Simon Michael 2018-08-16 05:20:03 +01:00
parent c79cb568f0
commit 09d8e302db
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Read/Common.hs
View File

@ -1247,8 +1247,8 @@ tests_Hledger_Read_Common = TestList [
easytests = scope "Common" $ tests [
scope "amountp" $ tests [
scope "basic" $ expectParseEq amountp "$47.18" (usd 47.18)
,scope "ends with decimal mark" $ expectParseEq amountp "$1." (usd 1 `withPrecision` 0)
-- ,scope "with unit price" $ expectParseEq amountp "$10 @ €0.5" (usd 10 `withPrecision` 0 `at` (eur 0.5 `withPrecision` 1))
-- ,scope "with total price" $ expectParseEq amountp "$10 @@ €5" (usd 10 `withPrecision` 0 @@ (eur 5 `withPrecision` 0))
,scope "ends-with-decimal-mark" $ expectParseEq amountp "$1." (usd 1 `withPrecision` 0)
-- ,scope "unit-price" $ expectParseEq amountp "$10 @ €0.5" (usd 10 `withPrecision` 0 `at` (eur 0.5 `withPrecision` 1))
-- ,scope "total-price" $ expectParseEq amountp "$10 @@ €5" (usd 10 `withPrecision` 0 @@ (eur 5 `withPrecision` 0))
]
]

4
hledger-lib/Hledger/Utils/Test.hs
View File

@ -92,9 +92,9 @@ runEasyTests args easytests = (do
expectParseEq parser input expected = do
let ep = runIdentity $ parseWithState mempty parser input
scope "parse succeeded" $ expectRight ep
scope "parse-succeeded" $ expectRight ep
let Right p = ep
scope "parse result" $ expectEq p expected
scope "parse-result" $ expectEq p expected
-- | Run some hunit tests, returning True if there was a problem.
-- With arguments, runs only tests whose names contain the first argument