From 91f2207749a6c7e11bcde450ffd39eeb90a8fa16 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Mon, 4 Jan 2016 12:27:26 +0100 Subject: [PATCH] tests: ffi: add new regression test --- src/tests/regressions/tests/foreign-interface.lsp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/src/tests/regressions/tests/foreign-interface.lsp b/src/tests/regressions/tests/foreign-interface.lsp index 1b1442a94..de92d5c3d 100644 --- a/src/tests/regressions/tests/foreign-interface.lsp +++ b/src/tests/regressions/tests/foreign-interface.lsp @@ -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)