From 2e525f56004d8070157b75cc06d8bb766da2ab7c Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sun, 2 Dec 2018 16:41:16 -0800 Subject: [PATCH] lib: accountdirectivep: update unit tests --- hledger-lib/Hledger/Read/JournalReader.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs index fa38990e9..abbff181a 100644 --- a/hledger-lib/Hledger/Read/JournalReader.hs +++ b/hledger-lib/Hledger/Read/JournalReader.hs @@ -824,8 +824,11 @@ tests_JournalReader = tests "JournalReader" [ ] ,test "accountdirectivep" $ do - test "account" $ expectParse accountdirectivep "account a:b ; a comment and some:tag, another comment\n" - test "does not support !" $ expectParseError accountdirectivep "!account a:b\n" "" + test "with-comment" $ expectParse accountdirectivep "account a:b ; a comment\n" + test "does-not-support-!" $ expectParseError accountdirectivep "!account a:b\n" "" + test "account-sort-code" $ expectParse accountdirectivep "account a:b 1000\n" + test "account-type-code" $ expectParse accountdirectivep "account a:b A\n" + test "account-type-tag" $ expectParse accountdirectivep "account a:b ; type:asset\n" ,test "commodityconversiondirectivep" $ do expectParse commodityconversiondirectivep "C 1h = $50.00\n"