factor/extra/windows/time/time-tests.factor

7 lines
329 B
Factor
Raw Normal View History

2007-09-20 18:09:08 -04:00
USING: calendar calendar.windows kernel tools.test ;
[ t ] [ windows-1601 [ timestamp>FILETIME FILETIME>timestamp ] keep = ] unit-test
[ t ] [ windows-time [ windows-time>FILETIME FILETIME>windows-time ] keep = ] unit-test
2008-02-26 18:22:48 -05:00
[ t ] [ windows-1601 400 years time+ [ timestamp>FILETIME FILETIME>timestamp ] keep = ] unit-test
2007-09-20 18:09:08 -04:00