From 00ad42e6290148fb174b2da869c0568f5da921f0 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 5 Jun 2009 19:35:47 +0000
Subject: [PATCH] eliding/layout tests, commented out since I don't know what
 it should do

---
 Tests.hs | 29 ++++++++++++++++++++++++++++-
 1 file changed, 28 insertions(+), 1 deletion(-)

diff --git a/Tests.hs b/Tests.hs
index e50b39176..66496e11d 100644
--- a/Tests.hs
+++ b/Tests.hs
@@ -160,7 +160,7 @@ $ printf "2009-01-01 x\n  a  2\n  b (b) b  -1\n  c\n" | hledger -f - print 2>&1;
 
 @
 
-Nafai's bug:
+Nafai's bug
 @
 $ printf "2009/1/1 x\n a:  13\n b\n" | hledger -f - bal -E 2>&1
 "-" (line 2, column 1):
@@ -168,6 +168,26 @@ unexpected " "
 accountname seems ill-formed: a:
 @
 
+Eliding, general layout
+@
+$ printf "2009/1/1 x\n aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa  €1\n b\n" | hledger -f - bal 2>&1
+                  €1  aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa
+                 €-1  b
+@
+
+--@
+$ printf "2009/1/1 x\n aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa  €1\n b\n" | hledger -f - reg 2>&1
+2009/01/01 x                    aa:aa:aaaaaaaaaaaaaaaa           €1           €1
+                                b                               €-1            0
+@
+
+--@
+$ printf "2009/1/1 x\n aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa  €1\n b\n" | hledger -f - print 2>&1
+2009/01/01 x
+    aa:aaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa
+    b
+@
+
 -}
 -- other test tools:
 -- http://hackage.haskell.org/cgi-bin/hackage-scripts/package/test-framework
@@ -481,6 +501,13 @@ tests = [
     [Period "in 2008"] `gives` "DateSpan (Just 2008-01-01) (Just 2009-01-01)"
     [Begin "2005", End "2007",Period "in 2008"] `gives` "DateSpan (Just 2008-01-01) (Just 2009-01-01)"
 
+  -- don't know what this should do
+  -- ,"elideAccountName" ~: do
+  --    (elideAccountName 50 "aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa"
+  --     `is` "aa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa")
+  --    (elideAccountName 20 "aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa:aaaaaaaaaaaaaaaaaaaa"
+  --     `is` "aa:aa:aaaaaaaaaaaaaa")
+
   ,"entriesFromTimeLogEntries" ~: do
      today <- getCurrentDay
      now' <- getCurrentTime