factor/basis/windows/time/time-tests.factor

9 lines
359 B
Factor
Raw Normal View History

2008-03-07 12:26:40 -05:00
USING: calendar calendar.windows kernel tools.test
windows.time ;
IN: windows.time.tests
[ t ] [ windows-1601 [ timestamp>FILETIME FILETIME>timestamp ] keep = ] unit-test
[ t ] [ windows-time [ windows-time>FILETIME FILETIME>windows-time ] keep = ] unit-test
[ t ] [ windows-1601 400 years time+ [ timestamp>FILETIME FILETIME>timestamp ] keep = ] unit-test