```factor
IN: unix.ffi.tests
USING: accessors alien.c-types tools.test unix.ffi ;

[ 80 ] [ "http" f getservbyname port>> ntohs ] unit-test

[ "www" ] [
    0 "http" f getservbyname aliases>> c-string alien-element
] unit-test

[ "http" ] [ 80 htons f getservbyport name>> ] unit-test
```

Use a utility word for getting the aliases back.
user
```factor
USING: accessors alien.c-types io.encodings.utf8 kernel
sequences tools.test unix.ffi unix.utilities ;
IN: unix.ffi.tests

[ 80 ] [ "http" f getservbyname port>> ntohs ] unit-test

[ t ] [
    0 "http" f getservbyname aliases>> utf8 alien>strings
    "www" swap member?
] unit-test

[ "http" ] [ 80 htons f getservbyport name>> ] unit-test
```
assistant