From 14168d90e31a47820f787dabf702b7fc5573ac8a Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 22 Nov 2008 04:49:49 +0000
Subject: [PATCH] update a test

---
 Tests.hs | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/Tests.hs b/Tests.hs
index 90fffdc81..5298807c2 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -126,14 +126,6 @@ balancecommandtests = TestList [
      \                  $1  liabilities:debts\n\
      \" --"
      (showBalanceReport [SubTotal] [] l)
- ,
-  "balance report with negative account patterns" ~: do
-    l <- ledgerfromfile "sample.ledger"
-    assertequal (
-     "                  $2  expenses\n" ++
-     "                 $-2  income\n" ++
-     "")
-     (showBalanceReport [] ["-assets","-abiliti"] l)
  ,
   "balance report with account pattern o" ~: do
     l <- ledgerfromfile "sample.ledger"
@@ -201,6 +193,17 @@ balancecommandtests = TestList [
      \                  $1\n\
      \" --"
      $ showBalanceReport [] ["expenses:food"] l
+ ,
+  "balance report with negative account pattern" ~: do
+    l <- ledgerfromfile "sample.ledger"
+    assertequal (
+     "                  $2  expenses\n" ++
+     "                 $-2  income\n" ++
+     "                  $1  liabilities\n" ++
+     "--------------------\n" ++
+     "                  $1\n" ++
+     "")
+     (showBalanceReport [] ["-assets"] l)
  ,
   "balance report negative account pattern always matches full name" ~: 
   do