mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 04:21:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: ffi: add new regression test

Browse source
This commit is contained in:
Daniel Kochmański 2016-01-04 12:27:26 +01:00
parent 4ec978408c
commit 91f2207749
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/tests/regressions/tests/foreign-interface.lsp
View file

@ -2,6 +2,7 @@
;;;; vim: set filetype=lisp tabstop=8 shiftwidth=2 expandtab:
;;;; Author: Juan Jose Garcia-Ripoll
;;;; Author: Daniel Kochmański
;;;; Created: Fri Apr 14 11:13:17 CEST 2006
;;;; Contains: Foreign Function Interface regression tests
@ -106,3 +107,13 @@ int (*foo)(int) = #0;
(equal (ffi:make-pointer 1234 :void)
(ffi:make-pointer 1234 :int))
t)
;;; Date: 2016-01-04 (jackdaniel)
;;; Description:
;;; Regression test to ensure, that the string is properly
;;; recognized as an array
(deftest foreign-interface.0004
(progn
(si::make-foreign-data-from-array "dan")
t)
t)