fix all recently-broken tests

2009-11-25 12:21:59 +00:00 · 2009-11-25 12:21:59 +00:00 · 53b7962658
commit 53b7962658
parent cb89dd2b94
10 changed files with 47 additions and 35 deletions
--- a/Tests.hs
+++ b/Tests.hs
@ -670,7 +670,7 @@ tests = [
     ["2008/06/03 * eat & shop"
     ,"    expenses:food                $1"
     ,"    expenses:supplies            $1"
-     ,"    assets:cash"
+     ,"    assets:cash                 $-2"
     ,""
     ]

@ -687,7 +687,7 @@ tests = [
      ,"2008/06/03 * eat & shop"
      ,"    expenses:food                $1"
      ,"    expenses:supplies            $1"
-      ,"    assets:cash"
+      ,"    assets:cash                 $-2"
      ,""
      ,"2008/12/31 * pay off"
      ,"    liabilities:debts            $1"
@ -841,6 +841,18 @@ tests = [
         [Posting False "expenses:food:groceries" (Mixed [dollars 47.18]) "" RegularPosting
         ,Posting False "assets:checking" (Mixed [dollars (-47.18)]) "" RegularPosting
         ] ""))
+     assertEqual "show a balanced transaction, no eliding"
+       (unlines
+        ["2007/01/28 coopportunity"
+        ,"    expenses:food:groceries        $47.18"
+        ,"    assets:checking               $-47.18"
+        ,""
+        ])
+       (showLedgerTransactionUnelided
+        (LedgerTransaction (parsedate "2007/01/28") Nothing False "" "coopportunity" ""
+         [Posting False "expenses:food:groceries" (Mixed [dollars 47.18]) "" RegularPosting
+         ,Posting False "assets:checking" (Mixed [dollars (-47.18)]) "" RegularPosting
+         ] ""))
     -- document some cases that arise in debug/testing:
     assertEqual "show an unbalanced transaction, should not elide"
       (unlines
--- a/tests/comment-line-after-postings.test
+++ b/tests/comment-line-after-postings.test
@ -7,5 +7,5 @@
 >>>
 2009/01/01 x
    a             1
-    b
+    b            -1

--- a/tests/commented-posting.test
+++ b/tests/commented-posting.test
@ -7,5 +7,5 @@
 >>>
 2009/01/01 x
    a             1
-    b
+    b            -1

--- a/tests/effective-print.test
+++ b/tests/effective-print.test
@ -6,5 +6,5 @@
 >>>
 2010/01/01 x
    a             1
-    b
+    b            -1

--- a/tests/parens-in-account-name.test
+++ b/tests/parens-in-account-name.test
@ -8,5 +8,5 @@
 2009/01/01 x
    a                   2
    b (b) b            -1
-    c
+    c                  -1

--- a/tests/print-preserves-comments.test
+++ b/tests/print-preserves-comments.test
@ -11,7 +11,7 @@
 2009/01/01 x  ; description comment
    a             1  ; amount comment
    ; middle posting comment
-    b
+    b            -1
    ; trailing posting comment
 ; post-entry comment (?)

--- a/tests/unicode-print.test
+++ b/tests/unicode-print.test
@ -6,5 +6,5 @@
 >>>
 2009/01/01 проверка
    счёт:первый             1
-    счёт:второй
+    счёт:второй            -1

--- a/tests/virtual.test
+++ b/tests/virtual.test
@ -8,5 +8,5 @@
 2009/01/01 x
    (virtual)           100
    a                   1
-    b
+    b                  -1