From 6be25de125e5fe8d116c209b21c73a07b69ce5cf Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 22 Apr 2014 00:29:49 -0700 Subject: [PATCH] unix.ffi: Use a utility word for getting the aliases back. --- basis/unix/ffi/ffi-tests.factor | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/basis/unix/ffi/ffi-tests.factor b/basis/unix/ffi/ffi-tests.factor index 88164aed6c..16530eeae5 100644 --- a/basis/unix/ffi/ffi-tests.factor +++ b/basis/unix/ffi/ffi-tests.factor @@ -1,10 +1,12 @@ +USING: accessors alien.c-types io.encodings.utf8 kernel +sequences tools.test unix.ffi unix.utilities ; 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 +[ t ] [ + 0 "http" f getservbyname aliases>> utf8 alien>strings + "www" swap member? ] unit-test [ "http" ] [ 80 htons f getservbyport name>> ] unit-test