From 150b40e465bd0f0a95afbe9c7f16f83e51a41c32 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 19 Aug 2018 18:03:41 +0100 Subject: [PATCH] tests: remove empty scope --- hledger-lib/Hledger/Data/Journal.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs index 49b5f285c..57a0849d5 100644 --- a/hledger-lib/Hledger/Data/Journal.hs +++ b/hledger-lib/Hledger/Data/Journal.hs @@ -95,6 +95,7 @@ import qualified Data.Text as T import Safe (headMay, headDef) import Data.Time.Calendar import Data.Tree +import qualified EasyTest import System.Time (ClockTime(TOD)) import Text.Printf import qualified Data.Map as M @@ -1093,7 +1094,7 @@ easytests = tests "Journal" [ journalAccountNamesMatching :: Query -> Journal -> [AccountName] journalAccountNamesMatching q = filter (q `matchesAccount`) . journalAccountNames namesfrom qfunc = journalAccountNamesMatching (qfunc j) j - tests "" + EasyTest.tests [ test "assets" $ expectEq (namesfrom journalAssetAccountQuery) ["assets","assets:bank","assets:bank:checking","assets:bank:saving","assets:cash"] , test "liabilities" $ expectEq (namesfrom journalLiabilityAccountQuery) ["liabilities","liabilities:debts"] , test "equity" $ expectEq (namesfrom journalEquityAccountQuery) []