bs,is,cf: add functional tests, fix bs infinite loop #393

hledger/Hledger/Cli/Balancesheet.hs

@@ -58,8 +58,7 @@ Total:
 withoutBeginDate :: ReportOpts -> ReportOpts
 withoutBeginDate ropts@ReportOpts{..} = ropts{period_=p}
   where
-    p = dateSpanAsPeriod $ DateSpan Nothing e
-    e = periodEnd p
+    p = dateSpanAsPeriod $ DateSpan Nothing (periodEnd period_)
 
 tests_Hledger_Cli_Balancesheet :: Test
 tests_Hledger_Cli_Balancesheet = TestList

tests/balancesheet/balancesheet.test

@@ -0,0 +1,23 @@
+# 1.
+hledger -f - balancesheet
+<<<
+2016/1/1
+  assets  1
+  b
+>>>
+Balance Sheet
+
+Assets:
+                   1  assets
+--------------------
+                   1
+
+Liabilities:
+--------------------
+                   0
+
+Total:
+--------------------
+                   1
+>>>2
+>>>= 0

tests/cashflow/cashflow.test

@@ -0,0 +1,19 @@
+# 1.
+hledger -f - cashflow
+<<<
+2016/1/1
+  assets  1
+  b
+>>>
+Cashflow Statement
+
+Cash flows:
+                   1  assets
+--------------------
+                   1
+
+Total:
+--------------------
+                   1
+>>>2
+>>>= 0

tests/incomestatement/incomestatement.test

@@ -0,0 +1,23 @@
+# 1.
+hledger -f - incomestatement
+<<<
+2016/1/1
+  income  1
+  b
+>>>
+Income Statement
+
+Revenues:
+                   1  income
+--------------------
+                   1
+
+Expenses:
+--------------------
+                   0
+
+Total:
+--------------------
+                   1
+>>>2
+>>>= 0