2011-09-08 18:27:20 -04:00
|
|
|
USING: continuations destructors io.sockets kernel math.order
|
|
|
|
|
ping system system-info tools.test ;
|
2010-09-21 12:15:33 -04:00
|
|
|
IN: ping.tests
|
|
|
|
|
|
2011-09-08 18:27:20 -04:00
|
|
|
! { 5 1 } is xp
|
|
|
|
|
: test-ping? ( -- ? )
|
|
|
|
|
os windows?
|
|
|
|
|
os-version { 5 1 } after? and not ;
|
|
|
|
|
|
|
|
|
|
test-ping? [
|
|
|
|
|
[ ] [ "localhost" ping drop ] unit-test
|
|
|
|
|
[ t ] [ "localhost" alive? ] unit-test
|
|
|
|
|
[ t ] [ "127.0.0.1" alive? ] unit-test
|
|
|
|
|
[ f ] [ "0.0.0.0" alive? ] unit-test
|
|
|
|
|
] when
|
