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