slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

give some test assertions individual labels

Browse Source
This commit is contained in:
Simon Michael 2009-04-01 04:59:08 +00:00
parent c8a03999b4
commit b616cdf0de
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
Tests.hs
View File

@ -319,17 +319,24 @@ tests = [
,"entriesFromTimeLogEntries" ~: do ,"entriesFromTimeLogEntries" ~: do
today <- getCurrentDay today <- getCurrentDay
let now <- getCurrentTime
clockin t a = TimeLogEntry 'i' t a tz <- getCurrentTimeZone
let clockin t a = TimeLogEntry 'i' t a
clockout t = TimeLogEntry 'o' t "" clockout t = TimeLogEntry 'o' t ""
yesterday = prevday today yesterday = prevday today
mktime d s = LocalTime d $ fromMaybe midnight $ parseTime defaultTimeLocale "%H:%M:%S" s mktime d s = LocalTime d $ fromMaybe midnight $ parseTime defaultTimeLocale "%H:%M:%S" s
noon = LocalTime today midday noontoday = LocalTime today midday
ts `gives` ss = (map edescription $ entriesFromTimeLogEntries noon ts) `is` ss assertEntriesGiveStrings name es ss = assertEqual name (map edescription $ entriesFromTimeLogEntries noontoday es) ss
[] `gives` []
[clockin (mktime today "00:00:00") ""] `gives` ["00:00-12:00"] assertEntriesGiveStrings "started yesterday, split session at midnight"
[clockin (mktime yesterday "23:00:00") ""] `gives` ["23:00-23:59","00:00-12:00"] [clockin (mktime yesterday "23:00:00") ""]
[clockin (mktime (addDays (-2) today) "23:00:00") ""] `gives` ["23:00-23:59","00:00-23:59","00:00-12:00"] ["23:00-23:59","00:00-12:00"]
assertEntriesGiveStrings "split multi-day sessions at each midnight"
[clockin (mktime (addDays (-2) today) "23:00:00") ""]
["23:00-23:59","00:00-23:59","00:00-12:00"]
assertEntriesGiveStrings "auto-clock-out if needed"
[clockin (mktime today "00:00:00") ""]
["00:00-12:00"]
,"expandAccountNames" ~: do ,"expandAccountNames" ~: do
expandAccountNames ["assets:cash","assets:checking","expenses:vacation"] `is` expandAccountNames ["assets:cash","assets:checking","expenses:vacation"] `is`