From 1110bcaf4ec0085f460aa952d787d0300e5fb73a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sun, 15 Mar 2009 12:41:30 +0000
Subject: [PATCH] clarify a test case

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

diff --git a/Tests.hs b/Tests.hs
index 5110e383b..85de18a86 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -360,11 +360,13 @@ tests = [
     [WeeklyOpt, Period "yearly"] `gives` Yearly
 
   ,"isAccountNamePrefixOf" ~: do
+    "assets" `isAccountNamePrefixOf` "assets" `is` False
     "assets" `isAccountNamePrefixOf` "assets:bank" `is` True
     "assets" `isAccountNamePrefixOf` "assets:bank:checking" `is` True
     "my assets" `isAccountNamePrefixOf` "assets:bank" `is` False
 
   ,"isSubAccountNameOf" ~: do
+    "assets" `isSubAccountNameOf` "assets" `is` False
     "assets:bank" `isSubAccountNameOf` "assets" `is` True
     "assets:bank:checking" `isSubAccountNameOf` "assets" `is` False
     "assets:bank" `isSubAccountNameOf` "my assets" `is` False