basis/windows/time/time-tests.factor

   1 USING: calendar calendar.windows kernel tools.test
   2 windows.time ;
   3 IN: windows.time.tests
   4
   5 { t } [ windows-1601 [ timestamp>FILETIME FILETIME>timestamp ] keep = ] unit-test
   6 { t } [ windows-time [ windows-time>FILETIME FILETIME>windows-time ] keep = ] unit-test
   7 { t } [ windows-1601 400 years time+ [ timestamp>FILETIME FILETIME>timestamp ] keep = ] unit-test