0.pre7.14:
[sbcl.git] / tests / foreign.test.sh
1 #!/bin/sh
2
3 # tests related to foreign function interface and LOAD-FOREIGN
4
5 # This software is part of the SBCL system. See the README file for
6 # more information.
7 #
8 # While most of SBCL is derived from the CMU CL system, the test
9 # files (like this one) were written from scratch after the fork
10 # from CMU CL.
11
12 # This software is in the public domain and is provided with
13 # absolutely no warranty. See the COPYING and CREDITS files for
14 # more information.
15
16 testfilestem=$TMPDIR/sbcl-foreign-test-$$
17
18 echo 'int summish(int x, int y) { return 1 + x + y; }' > $testfilestem.c
19 make $testfilestem.o
20 ld -shared -o $testfilestem.so $testfilestem.o
21
22 ${SBCL:-sbcl} <<EOF
23   (when (fboundp 'load-foreign) ; not necessarily supported on all OSes..
24     (load-foreign '("$testfilestem.so"))
25     (def-alien-routine summish int (x int) (y int))
26     (assert (= (summish 10 20) 31)))
27   (sb-ext:quit :unix-status 52) ; success convention for Lisp program
28 EOF
29 if [ $? != 52 ]; then
30     echo test failed: $?
31     exit 1
32 fi
33
34 # FIXME: I rewrote the handling of ENV/ENVIRONMENT arguments for
35 # LOAD-FOREIGN, but I can't think of a nice way to test it. (Kent Beck
36 # would cry. If he didn't keel over on the spot and then commence
37 # rolling over in his grave.:-) It would be good to make a test case
38 # for it..
39
40 # success convention for script
41 exit 104