simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-19 10:17:35 +03:00
Code Issues Projects Releases Wiki Activity

cleanup

Browse Source
This commit is contained in:
Simon Michael 2007-02-09 03:32:07 +00:00
parent 04a5f1632b
commit 3751a91c60
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Makefile
View File

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

12
Tests.hs
View File

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