Will Anderson
23 lines
742 B
EmacsLisp
23 lines
742 B
EmacsLisp
// cross-calendar-comparison.el — same Instant under two different calendars
|
|
// produces identical cal_to_instant() outputs. Calendar choice does not change
|
|
// the underlying instant — only the projection.
|
|
|
|
fn run_test() -> Int {
|
|
let i: Instant = unix_seconds(1782216000)
|
|
let z: Zone = zone("America/New_York")
|
|
let earth: Calendar = earth_calendar(z)
|
|
let mars: Calendar = mars_calendar()
|
|
let ct_earth: CalendarTime = in_calendar(i, earth)
|
|
let ct_mars: CalendarTime = in_calendar(i, mars)
|
|
let i_earth: Instant = cal_to_instant(ct_earth)
|
|
let i_mars: Instant = cal_to_instant(ct_mars)
|
|
if i_earth == i_mars {
|
|
return 1
|
|
}
|
|
return 0
|
|
}
|
|
|
|
fn main() -> Void {
|
|
println(int_to_str(run_test()))
|
|
}
|