cleanup

Makefile

@@ -1,8 +1,11 @@
 build:
 	ghc --make hledger.hs
 
+Tags:
+	hasktags *hs
+
 clean:
 	rm -f *.o *.hi *~
 
 Clean: clean
-	rm -f hledger
+	rm -f hledger TAGS

Tests.hs

@@ -152,15 +152,19 @@ hunittests2 = Test.HUnit.test [
                                "test1" ~: assertEqual "2 equals 2" 2 2
                               ]
 
--- quickcheck tests
+-- quickcheck properties
 
 prop1 = 1 == 1
 
---prop_test_parse_ledgertransaction = ?
+--prop_test_parse_ledgertransaction =
+--     (Transaction "expenses:food:dining" (Amount "$" 10)) == 
+--     (parse' ledgertransaction sample_transaction))
+-- how ?
 
 -- commands
 
 test :: IO ()      
 test = do
-  putStrLn "hunit: "; runTestTT hunittests; runTestTT hunittests2
+  runTestTT hunittests
-  putStrLn "quickcheck: "; quickCheck prop1
+  runTestTT hunittests2
+  quickCheck prop1