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

View File

@ -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

View File

@ -149,18 +149,22 @@ hunittests = TestList [
]
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
--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
putStrLn "quickcheck: "; quickCheck prop1
runTestTT hunittests
runTestTT hunittests2
quickCheck prop1