basis/unix/ffi/ffi-tests.factor

   1 IN: unix.ffi.tests
   2 USING: accessors alien.c-types tools.test unix.ffi ;
   3
   4 [ 80 ] [ "http" f getservbyname port>> ntohs ] unit-test
   5
   6 [ "www" ] [
   7     0 "http" f getservbyname aliases>> c-string alien-element
   8 ] unit-test
   9
  10 [ "http" ] [ 80 htons f getservbyport name>> ] unit-test