#! /usr/bin/env tclsh
package require {ycl test}
proc suite_main {} {
package require {ycl proc}
[yclprefix] proc alias alias [yclprefix] proc alias
alias aliases [yclprefix] proc aliases
[yclprefix] test init
aliases {
{ycl list} {
sl
}
{ycl time}
{ycl test} {
cleanup1
}
}
test partition {} -body {
set res1 [time partition 3601 {hours minutes seconds}]
lappend res $res1
set format {%Y %m %d}
set format2 {%Y %m %d %H %M %S}
set time1 [clock scan {1901 03 01} -timezone :UTC -format $format]
set time2 [
clock scan {1903 04 23 03 13 27} -timezone :UTC -format $format2]
set interval [expr {$time2 - $time1}]
set res1 [time partition $interval {hours minutes seconds}]
lassign $res1 hours minutes seconds
set newtime [clock add $time1 $hours hours -timezone :UTC]
lappend res $res1
return $res
} -cleanup [cleanup1] -result [sl {
{1 0 1} {18795 13 27}
}]
cleanupTests
}