From 736cebe72947332ec927a2dfd8558b4d4e9aa45f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Tue, 13 Sep 2011 20:42:36 -0700
Subject: [PATCH] Fix linkage-errors tests for recent changes
---
basis/compiler/tests/linkage-errors.factor | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/basis/compiler/tests/linkage-errors.factor b/basis/compiler/tests/linkage-errors.factor
index 687ec71e29..5742e5ae6d 100644
--- 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
[ T{ no-such-symbol { name "this_does_not_exist" } } ]
-[ \ this_does_not_exist linkage-errors get at error>> ] unit-test
+[
+ \ this_does_not_exist linkage-errors get at error>>
+ ! We don't care about the error message from dlerror, just
+ ! wipe it out
+ f >>message
+] unit-test
<< "no_such_library" "no_such_library" cdecl add-library >>
@@ -35,4 +40,9 @@ FUNCTION: void no_such_function ( ) ;
] must-fail-with
[ T{ no-such-library { name "no_such_library" } } ]
-[ \ no_such_function linkage-errors get at error>> ] unit-test
+[
+ \ no_such_function linkage-errors get at error>>
+ ! We don't care about the error message from dlerror, just
+ ! wipe it out
+ clone f >>message
+] unit-test