Fix linkage-errors tests for recent changes

diff --git a/basis/compiler/tests/linkage-errors.factor b/basis/compiler/tests/linkage-errors.factor
index 687ec71e291300a8aa68584c9cbb237fd368ccc6..5742e5ae6d891f5e55025cfafe9e1df7b76473dc 100644 (file)
--- a/basis/compiler/tests/linkage-errors.factor
+++ b/basis/compiler/tests/linkage-errors.factor
@@ -15,7 +15,12 @@ FUNCTION: void this_does_not_exist ( ) ;
 ] must-fail-with\r
 \r
 [ T{ no-such-symbol { name "this_does_not_exist" } } ]\r
-[ \ this_does_not_exist linkage-errors get at error>> ] unit-test\r
+[\r
+    \ this_does_not_exist linkage-errors get at error>>\r
+    ! We don't care about the error message from dlerror, just\r
+    ! wipe it out\r
+    f >>message\r
+] unit-test\r
 \r
 << "no_such_library" "no_such_library" cdecl add-library >>\r
 \r
@@ -35,4 +40,9 @@ FUNCTION: void no_such_function ( ) ;
 ] must-fail-with\r
 \r
 [ T{ no-such-library { name "no_such_library" } } ]\r
-[ \ no_such_function linkage-errors get at error>> ] unit-test\r
+[\r
+    \ no_such_function linkage-errors get at error>>\r
+    ! We don't care about the error message from dlerror, just\r
+    ! wipe it out\r
+    clone f >>message\r
+] unit-test\r