max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2
lean4-htt/tests/elab/timeOperations.lean
Garmelon 08eb78a5b2
chore: switch to new test/bench suite (#12590) 
This PR sets up the new integrated test/bench suite. It then migrates
all benchmarks and some related tests to the new suite. There's also
some documentation and some linting.

For now, a lot of the old tests are left alone so this PR doesn't become
even larger than it already is. Eventually, all tests should be migrated
to the new suite though so there isn't a confusing mix of two systems.
2026-02-25 13:51:53 +00:00

319 lines
5 KiB
Text
Raw Blame History

import Std.Time
open Std.Time
def date := date("1970-01-20")
/--
info: date("1970-02-01")
-/
#guard_msgs in
#eval date.addDays 12
/--
info: date("1970-02-20")
-/
#guard_msgs in
#eval date.addMonthsClip 1
/--
info: date("1971-01-20")
-/
#guard_msgs in
#eval date.addYearsRollOver 1
/--
info: date("1969-01-20")
-/
#guard_msgs in
#eval date.subYearsClip 1
/--
info: date("1969-12-20")
-/
#guard_msgs in
#eval date.subMonthsClip 1
def datetime := datetime("2000-01-20T03:02:01")
/--
info: datetime("2000-01-20T04:02:01.000000000")
-/
#guard_msgs in
#eval datetime.addHours 1
/--
info: datetime("2000-01-20T02:02:01.000000000")
-/
#guard_msgs in
#eval datetime.subHours 1
/--
info: datetime("2000-01-20T03:12:01.000000000")
-/
#guard_msgs in
#eval datetime.addMinutes 10
/--
info: datetime("2000-01-20T02:52:01.000000000")
-/
#guard_msgs in
#eval datetime.subMinutes 10
/--
info: datetime("2000-01-20T03:03:01.000000000")
-/
#guard_msgs in
#eval datetime.addSeconds 60
/--
info: datetime("2000-01-20T03:01:01.000000000")
-/
#guard_msgs in
#eval datetime.subSeconds 60
/--
info: datetime("2000-01-21T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.addDays 1
/--
info: datetime("2000-01-19T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.subDays 1
/--
info: datetime("2000-02-20T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.addMonthsClip 1
/--
info: datetime("1999-12-20T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.subMonthsClip 1
/--
info: datetime("2000-02-20T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.addMonthsRollOver 1
/--
info: datetime("1999-12-20T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.subMonthsRollOver 1
/--
info: datetime("2001-01-20T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.addYearsClip 1
/--
info: datetime("1999-01-20T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.subYearsClip 1
/--
info: datetime("2001-01-20T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.addYearsRollOver 1
/--
info: datetime("1999-01-20T03:02:01.000000000")
-/
#guard_msgs in
#eval datetime.subYearsRollOver 1
def time := time("13:02:01")
/--
info: time("14:02:01.000000000")
-/
#guard_msgs in
#eval time.addHours 1
/--
info: time("12:02:01.000000000")
-/
#guard_msgs in
#eval time.subHours 1
/--
info: time("13:12:01.000000000")
-/
#guard_msgs in
#eval time.addMinutes 10
/--
info: time("12:52:01.000000000")
-/
#guard_msgs in
#eval time.subMinutes 10
/--
info: time("13:03:01.000000000")
-/
#guard_msgs in
#eval time.addSeconds 60
/--
info: time("13:01:01.000000000")
-/
#guard_msgs in
#eval time.subSeconds 60
def datetimetz := zoned("2000-01-20T06:02:01-03:00")
/--
info: zoned("2000-01-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz
/--
info: zoned("2000-01-22T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addDays 2
/--
info: zoned("2000-01-19T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.subDays 1
/--
info: zoned("2000-02-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addMonthsClip 1
/--
info: zoned("1999-12-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.subMonthsClip 1
/--
info: zoned("2000-02-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addMonthsRollOver 1
/--
info: zoned("1999-12-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.subMonthsRollOver 1
/--
info: zoned("2001-01-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addYearsClip 1
/--
info: zoned("2001-01-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addYearsClip 1
/--
info: zoned("2001-01-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addYearsRollOver 1
/--
info: zoned("1999-01-20T06:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.subYearsRollOver 1
/--
info: zoned("2000-01-20T07:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addHours 1
/--
info: zoned("2000-01-20T05:02:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.subHours 1
/--
info: zoned("2000-01-20T06:12:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addMinutes 10
/--
info: zoned("2000-01-20T05:52:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.subMinutes 10
/--
info: zoned("2000-01-20T06:03:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.addSeconds 60
/--
info: zoned("2000-01-20T06:01:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.subSeconds 60
def now := zoned("2024-08-29T10:56:43.276801081+02:00")
/--
info: zoned("2024-08-29T10:56:43.276801081+02:00")
-/
#guard_msgs in
#eval now
/--
info: zoned("2024-08-30T10:56:43.276801081+02:00")
-/
#guard_msgs in
#eval now.addDays 1
/--
info: zoned("2000-01-20T06:01:01.000000000-03:00")
-/
#guard_msgs in
#eval datetimetz.subSeconds 60
/--
info: 3
-/
#guard_msgs in
#eval date("2024-11-17").alignedWeekOfMonth
/--
info: 4
-/
#guard_msgs in
#eval date("2024-11-18").alignedWeekOfMonth
/--
info: 3
-/
#guard_msgs in
#eval date("2024-01-21").alignedWeekOfMonth
/--
info: 4
-/
#guard_msgs in
#eval date("2024-01-22").alignedWeekOfMonth
Reference in a new issue View git blame Copy permalink