steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/system-info/windows/windows-tests.factor

7 lines
178 B
Factor
Raw Normal View History

Add os-version hook to system-info which returns f on every platform except windows, where it returns { 5 1 } for xp and { 6 1 } for win7. Eventually do more here, like identify Snow Leopard, Lion, etc, but it's good enough to make ping tests pass. Move system-info platform loader into system-info.backend Add win7? and winxp? words to system-info, clean up ping-tests with new word Merge system-info.backend into system-info. Will throw an exception when loading on *bsd now
2011-09-08 17:07:12 -04:00
USING: math math.order strings system-info.windows tools.test
system-info ;
Squashed commit of the following: commit 197dbe9a6733775ac0ea19b3da4bd4dc3c85418c Author: Doug Coleman <doug.coleman@gmail.com> Date: Sat Sep 18 19:01:38 2010 -0500 Fix bootstrap, move privileges to windows.privileges commit 521c622f8afb15bf42d263c738cb990560dc29cb Author: Doug Coleman <doug.coleman@gmail.com> Date: Sat Sep 18 18:26:30 2010 -0500 Hopefully fix bootstrap commit eb3f22928b59758b9505430034044b5b94705da2 Author: Doug Coleman <doug.coleman@gmail.com> Date: Sat Sep 18 18:19:05 2010 -0500 Remove wince from factor codebase commit 619d6c99415f46208a7ede6a04b0ccda46b15360 Author: Doug Coleman <doug.coleman@gmail.com> Date: Sat Sep 18 16:07:46 2010 -0500 Remove Windows CE from vm/
2010-09-19 15:02:32 -04:00
IN: system-info.windows.tests
Updating code to use with-out-parameters
2010-05-23 03:07:47 -04:00
Add os-version hook to system-info which returns f on every platform except windows, where it returns { 5 1 } for xp and { 6 1 } for win7. Eventually do more here, like identify Snow Leopard, Lion, etc, but it's good enough to make ping tests pass. Move system-info platform loader into system-info.backend Add win7? and winxp? words to system-info, clean up ping-tests with new word Merge system-info.backend into system-info. Will throw an exception when loading on *bsd now
2011-09-08 17:07:12 -04:00
[ t ] [ cpus integer? ] unit-test
Updating code to use with-out-parameters
2010-05-23 03:07:47 -04:00
[ t ] [ username string? ] unit-test