libc: test "1 strerror" since zero gives different output on different platforms.

diff --git a/basis/libc/libc-tests.factor b/basis/libc/libc-tests.factor
index 0a35a2b7b26dce24825a7b9000d796e247923b6a..9bc13bbfc4a95aa1c3fe888aa511a7ed55c467f3 100644 (file)
--- a/basis/libc/libc-tests.factor
+++ b/basis/libc/libc-tests.factor
@@ -1,13 +1,13 @@
-IN: libc.tests\r
-USING: libc libc.private tools.test namespaces assocs\r
-destructors kernel ;\r
-\r
-100 malloc "block" set\r
-\r
-[ t ] [ "block" get malloc-exists? ] unit-test\r
-\r
-[ ] [ [ "block" get &free drop ] with-destructors ] unit-test\r
-\r
-[ f ] [ "block" get malloc-exists? ] unit-test\r
-
-[ "No error" ] [ 0 strerror ] unit-test
+IN: libc.tests
+USING: libc libc.private tools.test namespaces assocs system
+destructors kernel combinators ;
+
+100 malloc "block" set
+
+[ t ] [ "block" get malloc-exists? ] unit-test
+
+[ ] [ [ "block" get &free drop ] with-destructors ] unit-test
+
+[ f ] [ "block" get malloc-exists? ] unit-test
+
+[ "Operation not permitted" ] [ 1 strerror ] unit-test