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
   8