basis/io/sockets/icmp/icmp-tests.factor

   1
   2 USING: accessors destructors kernel io.sockets io.sockets.icmp
   3 sequences tools.test ;
   4
   5 IN: io.sockets.icmp.tests
   6
   7 [ { } ] [
   8     "localhost" <icmp> resolve-host
   9     [ [ icmp4? ] [ icmp6? ] bi or not ] filter
  10 ] unit-test
  11
  12 [ t ] [
  13     "127.0.0.1" <icmp4> <datagram>
  14     [ addr>> icmp4? ] with-disposal
  15 ] unit-test