2007-08-21 17:33:19 +02:00
|
|
|
|
2007-08-24 06:02:51 +02:00
|
|
|
TESTING "Time functions" ./test-time
|
2007-08-21 17:33:19 +02:00
|
|
|
|
2007-08-24 06:02:51 +02:00
|
|
|
TEST "time init" init 15 500000 <<END
|
|
|
|
|
out: 15 500000
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "time normalize" init 0 1500000 <<END
|
|
|
|
|
out: 1 500000
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "time to float" todouble 15 500000 <<END
|
2007-08-23 06:57:08 +02:00
|
|
|
out: 15.5
|
|
|
|
|
END
|
|
|
|
|
|
2007-08-24 06:02:51 +02:00
|
|
|
TEST "time to float, NULL gives a NaN" todoublenull <<END
|
|
|
|
|
out: nan
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "float to time" fromdouble 33.6666666661 <<END
|
2007-08-23 06:57:08 +02:00
|
|
|
out: 33 666667
|
|
|
|
|
END
|
|
|
|
|
|
2007-08-24 06:02:51 +02:00
|
|
|
TEST "float to time, round down" fromdouble 0.00000049 <<END
|
|
|
|
|
out: 0 0
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "float to time, round up" fromdouble 0.0000005 <<END
|
|
|
|
|
out: 0 1
|
2007-08-23 06:57:08 +02:00
|
|
|
END
|
|
|
|
|
|
2007-08-24 06:02:51 +02:00
|
|
|
TEST "current time" currenttime <<END
|
2007-08-23 06:57:08 +02:00
|
|
|
return: 0
|
|
|
|
|
END
|
|
|
|
|
|
2007-08-24 06:02:51 +02:00
|
|
|
TEST "add time, normalized" add 1000001 2000002 <<END
|
|
|
|
|
out: 3 3
|
2007-08-23 06:57:08 +02:00
|
|
|
END
|
|
|
|
|
|
2007-08-24 06:02:51 +02:00
|
|
|
TEST "substract time, normalized" sub 3000003 2000002 <<END
|
|
|
|
|
out: 1 1
|
2007-08-23 06:57:08 +02:00
|
|
|
END
|
|
|
|
|
|
|
|
|
|
PLANNED "overflow"
|
|
|
|
|
PLANNED "underflow"
|
2007-08-21 17:33:19 +02:00
|
|
|
|
2007-08-25 03:46:07 +02:00
|
|
|
# frame 1 begins at time 0
|
|
|
|
|
TEST "time to frame NTSC frame 1 begin" ntscframefromtime 0 0 <<END
|
|
|
|
|
out: 1
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
# and ends at 33365
|
|
|
|
|
TEST "time to frame NTSC frame 1 end" ntscframefromtime 0 33365 <<END
|
|
|
|
|
out: 1
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
# thus 33366 is start of frame 2
|
|
|
|
|
TEST "time to frame NTSC frame 2 begin" ntscframefromtime 0 33366 <<END
|
|
|
|
|
out: 2
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
# and 66732 is the end of frame 2
|
|
|
|
|
TEST "time to frame NTSC frame 2 end" ntscframefromtime 0 66732 <<END
|
|
|
|
|
out: 2
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
# this makes 66733 the start of frame 3
|
|
|
|
|
TEST "time to frame NTSC frame 3 begin" ntscframefromtime 0 66733 <<END
|
|
|
|
|
out: 3
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
# and 100099 the end of frame 3
|
|
|
|
|
TEST "time to frame NTSC frame 3 end" ntscframefromtime 0 100099 <<END
|
|
|
|
|
out: 3
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
# and 100100 the start of frame 4
|
|
|
|
|
TEST "time to frame NTSC frame 4 start" ntscframefromtime 0 100100 <<END
|
|
|
|
|
out: 4
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
# after 1 hour we are at frame 107893
|
|
|
|
|
TEST "time to frame NTSC after 1hour" ntscframefromtime 3600 0 <<END
|
|
|
|
|
out: 107893
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
# after 200 days we are at frame 517881601
|
|
|
|
|
TEST "time to frame NTSC after 200 days" ntscframefromtime 17280000 0 <<END
|
|
|
|
|
out: 517881601
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
TEST "frame to time NTSC frame 1" ntscframestart 1 <<END
|
|
|
|
|
out: 0 0
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "frame to time NTSC frame 2" ntscframestart 2 <<END
|
|
|
|
|
out: 0 33366
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "frame to time NTSC frame 3" ntscframestart 3 <<END
|
|
|
|
|
out: 0 66733
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "frame to time NTSC frame 4" ntscframestart 4 <<END
|
|
|
|
|
out: 0 100100
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "frame to time NTSC 1 hour" ntscframestart 107893 <<END
|
|
|
|
|
out: 3600 0
|
|
|
|
|
END
|
|
|
|
|
|
|
|
|
|
TEST "frame to time NTSC 200 days" ntscframestart 517881601 <<END
|
|
|
|
|
out: 17280000 0
|
|
|
|
|
END
|
2007-08-21 17:33:19 +02:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# how long are N frames on average (beware of precision!)
|
|
|
|
|
PLANNED "frame duration"
|
|
|
|
|
|
|
|
|
|
# how much frames fall in a certain timerange
|
|
|
|
|
PLANNED "frames in range"
|