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