test for too-loose transaction parsing

2009-04-10 04:27:16 +00:00 · 2009-04-10 04:27:16 +00:00 · 0b22774ec9
commit 0b22774ec9
parent 638238dc5c
1 changed files with 2 additions and 0 deletions
--- a/Tests.hs
+++ b/Tests.hs
@ -560,6 +560,8 @@ tests = [

  ,"ledgerTransaction" ~: do
    parseWithCtx ledgerTransaction entry1_str `parseis` entry1
+    assertBool "ledgerTransaction should not parse just a date"
+                   $ isLeft $ parseWithCtx ledgerTransaction "2009/1/1\n"

  ,"ledgerHistoricalPrice" ~: do
    parseWithCtx ledgerHistoricalPrice price1_str `parseis` price1