basis/unix/ffi/ffi-tests.factor

   1 USING: accessors alien.c-types io.encodings.utf8 kernel
   2 sequences tools.test unix.ffi unix.utilities ;
   3 IN: unix.ffi.tests
   4
   5 [ 80 ] [ "http" f getservbyname port>> ntohs ] unit-test
   6
   7 ! Aliases seem unreliable. Leave this as an example but don't rely
   8 ! on aliases working.
   9 [ ] [
  10     "http" f getservbyname aliases>> utf8 alien>strings drop
  11 ] unit-test
  12
  13 [ "http" ] [ 80 htons f getservbyport name>> ] unit-test