flush

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

diff --git a/tests/uname/uname.psi b/tests/uname/uname.psi
new file mode 100644 (file)
index 0000000..25abfcb
--- /dev/null
+++ b/tests/uname/uname.psi
@@ -0,0 +1,12 @@
+extern int uname(struct utsname *u);
+function psi\uname(array &$u = NULL) : int {
+       let u = calloc(1, struct utsname);
+       return to_int(uname);
+       set $u = to_array(*u,
+               to_string(sysname),
+               to_string(nodename),
+               to_string(release),
+               to_string(version), 
+               to_string(machine),
+               to_string(domainname));
+}
\ No newline at end of file