TESTING "Time functions" ./test-time

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
out: 15.5
END

TEST "time to float, NULL gives a NaN" todoublenull <<END
out: nan
END

TEST "float to time" fromdouble 33.6666666661 <<END
out: 33 666667
END

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
END

TEST "current time" currenttime <<END
return: 0
END

TEST "add time, normalized" add 1000001 2000002 <<END
out: 3 3
END

TEST "substract time, normalized" sub 3000003 2000002 <<END
out: 1 1
END

PLANNED "overflow"
PLANNED "underflow"

# 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



# 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"