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

make the auto-clockout test more robust

Browse Source
This commit is contained in:
Simon Michael 2009-04-01 08:20:10 +00:00
parent 38fd44917c
commit fc928ba278
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Tests.hs
View File

@ -319,29 +319,31 @@ tests = [
,"entriesFromTimeLogEntries" ~: do ,"entriesFromTimeLogEntries" ~: do
today <- getCurrentDay today <- getCurrentDay
now <- getCurrentTime now' <- getCurrentTime
tz <- getCurrentTimeZone tz <- getCurrentTimeZone
let clockin t a = TimeLogEntry 'i' t a let now = utcToLocalTime tz now'
clockout t = TimeLogEntry 'o' t "" nowstr = showtime now
yesterday = prevday today yesterday = prevday today
clockin t a = TimeLogEntry 'i' t a
clockout t = TimeLogEntry 'o' t ""
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
noontoday = LocalTime today midday showtime t = formatTime defaultTimeLocale "%H:%M" t
assertEntriesGiveStrings name es ss = assertEqual name (map edescription $ entriesFromTimeLogEntries noontoday es) ss assertEntriesGiveStrings name es ss = assertEqual name ss (map edescription $ entriesFromTimeLogEntries now es)
assertEntriesGiveStrings "started yesterday, split session at midnight" assertEntriesGiveStrings "started yesterday, split session at midnight"
[clockin (mktime yesterday "23:00:00") ""] [clockin (mktime yesterday "23:00:00") ""]
["23:00-23:59","00:00-12:00"] ["23:00-23:59","00:00-"++nowstr]
assertEntriesGiveStrings "split multi-day sessions at each midnight" assertEntriesGiveStrings "split multi-day sessions at each midnight"
[clockin (mktime (addDays (-2) today) "23:00:00") ""] [clockin (mktime (addDays (-2) today) "23:00:00") ""]
["23:00-23:59","00:00-23:59","00:00-12:00"] ["23:00-23:59","00:00-23:59","00:00-"++nowstr]
assertEntriesGiveStrings "auto-clock-out if needed" assertEntriesGiveStrings "auto-clock-out if needed"
[clockin (mktime today "00:00:00") ""] [clockin (mktime today "00:00:00") ""]
["00:00-12:00"] ["00:00-"++nowstr]
let t = localTimeOfDay $ utcToLocalTime tz $ addUTCTime 100 now let future = utcToLocalTime tz $ addUTCTime 100 now'
s = formatTime defaultTimeLocale "%H:%M" t futurestr = showtime future
assertEntriesGiveStrings "use the clockin time for auto-clockout if it's in the future" assertEntriesGiveStrings "use the clockin time for auto-clockout if it's in the future"
[clockin (LocalTime today t) ""] [clockin future ""]
[printf "%s-%s" s s] [printf "%s-%s" futurestr futurestr]
,"expandAccountNames" ~: do ,"expandAccountNames" ~: do
expandAccountNames ["assets:cash","assets:checking","expenses:vacation"] `is` expandAccountNames ["assets:cash","assets:checking","expenses:vacation"] `is`