steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unix.ffi: Use a utility word for getting the aliases back.

db4
Doug Coleman 2014-04-22 00:29:49 -07:00
parent d1d15f83c4
commit 6be25de125
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/unix/ffi/ffi-tests.factor
View File

@ -1,10 +1,12 @@
USING: accessors alien.c-types io.encodings.utf8 kernel
sequences tools.test unix.ffi unix.utilities ;
IN: unix.ffi.tests IN: unix.ffi.tests
USING: accessors alien.c-types tools.test unix.ffi ;
[ 80 ] [ "http" f getservbyname port>> ntohs ] unit-test [ 80 ] [ "http" f getservbyname port>> ntohs ] unit-test
[ "www" ] [ [ t ] [
0 "http" f getservbyname aliases>> c-string alien-element 0 "http" f getservbyname aliases>> utf8 alien>strings
"www" swap member?
] unit-test ] unit-test
[ "http" ] [ 80 htons f getservbyport name>> ] unit-test [ "http" ] [ 80 htons f getservbyport name>> ] unit-test