Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2338/tests
Modified Files:
foreign.test.sh
Log Message:
0.9.5.12:
Exclude non-linkage-table ports from lazy alien resolution tests
Index: foreign.test.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/foreign.test.sh,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- foreign.test.sh 1 Aug 2005 13:20:48 -0000 1.24
+++ foreign.test.sh 29 Sep 2005 08:47:51 -0000 1.25
@@ -123,7 +123,7 @@
(print :stage-1)
- ;; test realoading object file with new definitions
+ ;; test reloading object file with new definitions
(assert (= 13 foo))
(assert (= 42 (bar)))
(rename-file "$testfilestem-b.so" "$testfilestem-b.bak")
@@ -137,17 +137,19 @@
(print :stage-2)
;; test late resolution
- (define-alien-variable late-foo int)
- (define-alien-routine late-bar int)
- (multiple-value-bind (val err) (ignore-errors late-foo)
- (assert (not val))
- (assert (typep err 'undefined-alien-error)))
- (multiple-value-bind (val err) (ignore-errors (late-bar))
- (assert (not val))
- (assert (typep err 'undefined-alien-error)))
- (load-shared-object "$testfilestem-c.so")
- (assert (= 43 late-foo))
- (assert (= 14 (late-bar)))
+ #+linkage-table
+ (progn
+ (define-alien-variable late-foo int)
+ (define-alien-routine late-bar int)
+ (multiple-value-bind (val err) (ignore-errors late-foo)
+ (assert (not val))
+ (assert (typep err 'undefined-alien-error)))
+ (multiple-value-bind (val err) (ignore-errors (late-bar))
+ (assert (not val))
+ (assert (typep err 'undefined-alien-error)))
+ (load-shared-object "$testfilestem-c.so")
+ (assert (= 43 late-foo))
+ (assert (= 14 (late-bar))))
(print :stage-3)
|