import soon/parsetime
import std/[unittest]
import std/[times]

# Everything has +1.days to easily sort all-day events before scheduled ones

proc expectedTime(time: string): DateTime =
  parse(time, "HHmm", utc()) + 1.days

test "Parse valid single time formats":
  check toDateTime("9")       == expectedTime("0900")
  check toDateTime("9am")     == expectedTime("0900")
  check toDateTime("9:00")    == expectedTime("0900")
  check toDateTime("9:30")    == expectedTime("0930")
  check toDateTime("09:00")   == expectedTime("0900")
  check toDateTime("09:30")   == expectedTime("0930")
  check toDateTime("9:00am")  == expectedTime("0900")
  check toDateTime("9:30pm")  == expectedTime("2130")
  check toDateTime("09:00am") == expectedTime("0900")
  check toDateTime("09:00pm") == expectedTime("2100")
  check toDateTime("09:30am") == expectedTime("0930")
  check toDateTime("09:30pm") == expectedTime("2130")
  check toDateTime("17")      == expectedTime("1700")
  check toDateTime("24")      == expectedTime("0000")
  check toDateTime("17:00")   == expectedTime("1700")
  check toDateTime("12:00")   == expectedTime("1200")
  check toDateTime("24:00")   == expectedTime("0000")
  check toDateTime("00:00")   == expectedTime("0000")
  check toDateTime("01:00")   == expectedTime("0100")

test "Parse time ranges":
  check toDateTime("9am-1am")         == expectedTime("0900")
  check toDateTime("9:00am-1:00am")   == expectedTime("0900")
  check toDateTime("9:30pm-01:00am")  == expectedTime("2130")
  check toDateTime("09:00am-01:00am") == expectedTime("0900")
  check toDateTime("09:00pm-01:00am") == expectedTime("2100")
  check toDateTime("09:30am-01:30am") == expectedTime("0930")
  check toDateTime("09:30pm-01:30am") == expectedTime("2130")
  check toDateTime("11:00-13:00")     == expectedTime("1100")
  check toDateTime("12:00-13:00")     == expectedTime("1200")
  check toDateTime("11:00-24:00")     == expectedTime("1100")
  check toDateTime("23:00-24:00")     == expectedTime("2300")
  check toDateTime("24:00-23:00")     == expectedTime("0000")
  check toDateTime("9pm-12am")        == expectedTime("2100")
  check toDateTime("17-1am")          == expectedTime("1700")
  check toDateTime("9-1am")           == expectedTime("2100")
  check toDateTime("9:00-1:00am")     == expectedTime("2100")
  check toDateTime("9:30-1:30am")     == expectedTime("2130")
  check toDateTime("09:00-01:00am")   == expectedTime("2100")
  check toDateTime("09:30-01:30am")   == expectedTime("2130")
  check toDateTime("17:00-1:00am")    == expectedTime("1700")
  check toDateTime("12:00-1:00am")    == expectedTime("0000")
  check toDateTime("12-1:00am")       == expectedTime("0000")
  check toDateTime("00:00-01:00am")   == expectedTime("0000")
  check toDateTime("11-12pm")         == expectedTime("1100")
  check toDateTime("11-12am")         == expectedTime("2300")
  check toDateTime("11-12")           == expectedTime("1100")
  check toDateTime("9-1700")          == expectedTime("0900")
  check toDateTime("9-1100")          == expectedTime("0900")