From 0b22774ec9fe94ff8754449eff6ac4d44ef0eee2 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 10 Apr 2009 04:27:16 +0000
Subject: [PATCH] test for too-loose transaction parsing

---
 Tests.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Tests.hs b/Tests.hs
index 1c0d0d06b..1cbd46f48 100644
--- 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