Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
e32988a7
Commit
e32988a7
authored
Jun 27, 2013
by
Francois-Rene Rideau
Browse files
Add dll-op test on ECL.
parent
e0f6b19d
Changes
5
Hide whitespace changes
Inline
Side-by-side
test/dll-test.lisp
0 → 100644
View file @
e32988a7
#+
ecl
(
ffi:clines
"
extern int sample_function();
int sample_function()
{
return 42;
}
"
)
test/dll-user.lisp
0 → 100644
View file @
e32988a7
(
in-package
:test-package
)
(
ffi:def-function
"sample_function"
()
:returning
:int
)
test/file2.lisp
View file @
e32988a7
(
in-package
:test-package
)
(
assert
*file1*
)
(
defvar
*f2c*
0
)
(
incf
*f2c*
)
test/test-asdf.asd
View file @
e32988a7
...
...
@@ -70,3 +70,7 @@
(
defsystem
:test-asdf/bundle-2
:depends-on
(
:test-asdf/bundle-1
)
:components
((
:file
"file2"
)))
(
defsystem
:test-asdf/dll-test
:components
((
:file
"dll-test"
)))
(
defsystem
:test-asdf/dll-user
:components
((
:file
"dll-user"
)))
test/test-bundle.script
View file @
e32988a7
;;; -*- Lisp -*-
(in-package :asdf-test)
;;;---------------------------------------------------------------------------
...
...
@@ -11,9 +9,17 @@
(asdf:clear-system :test-asdf/bundle-1)
(asdf:clear-system :test-asdf/bundle-2)
(when (find-package :test-package) (delete-package :test-package))
#+(or abcl (and ecl ecl-bytecmp) gcl)
#+(or (and ecl ecl-bytecmp) gcl) ;; actually available on ABCL 1.2.0 and later.
(leave-test "bundles not on this implementation" 0)
#+abcl
(let* ((version (lisp-implementation-version))
(version-nums (subseq version 0 (position-if-not (lambda (x) (find x "0123456789.")) version))))
(when (version< version-nums "1.2.0")
(leave-test "Your old ABCL is known to fail this test script, so skipping it." 0)))
(defparameter *bundle-1* (output-file 'fasl-op :test-asdf/bundle-1))
(defparameter *bundle-2* (output-file 'fasl-op :test-asdf/bundle-2))
(defparameter *mono-bundle-2* (output-file 'monolithic-fasl-op :test-asdf/bundle-2))
...
...
@@ -33,3 +39,11 @@
(DBG "Now for the mono-fasl")
(operate 'monolithic-fasl-op :test-asdf/bundle-2)
(assert (probe-file *mono-bundle-2*))
;;; Test DLL-op on ECL.
#+ecl
(progn
(operate 'dll-op :test-asdf/dll-test)
(si:load-foreign-module (first (output-files 'dll-op :test-asdf/dll-test)))
(operate 'load-op :test-asdf/dll-user)
(assert (= (test-package::sample-function) 42)))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment