fix tests

[m6w6/ext-psi] / tests / pipe / pipe.psi

diff --git a/tests/pipe/pipe.psi b/tests/pipe/pipe.psi
index d1961da8afc4b5bbf8d480405ea826c1fc21d558..f0c0b1c43af268ffa908d82641eb364be11fd258 100644 (file)
--- a/tests/pipe/pipe.psi
+++ b/tests/pipe/pipe.psi
@@ -1,8 +1,9 @@
+lib "crypt";
 
-// extern int pipe(int fildes[2]);
+#include <unistd.h>
 
 function \pipe(array &$fds = null) : int {
-       return to_int(pipe);
-       let fildes = calloc(2, psi\SIZEOF_INT);
+       return pipe(fildes) as to_int(pipe);
+       let fildes = calloc(2, sizeof(int));
        set $fds = to_array(*fildes, 2, to_int(*fildes));
 }