diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-11-27 15:18:30 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-11-27 15:18:30 +0000 |
| commit | b61091d3b042305ce21bb00b28a81f903b522394 (patch) | |
| tree | 2993e778c5fdbbfb2ebbec1e793f173026f0d4cd | |
| parent | 4721167a0118e4c8bc6c8266c3357a8a2ac4f4e2 (diff) | |
| download | haskell-b61091d3b042305ce21bb00b28a81f903b522394.tar.gz | |
Test Trac #7243
| -rw-r--r-- | testsuite/tests/ffi/should_fail/T7243.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/ffi/should_fail/T7243.stderr | 5 | ||||
| -rw-r--r-- | testsuite/tests/ffi/should_fail/all.T | 2 |
3 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/ffi/should_fail/T7243.hs b/testsuite/tests/ffi/should_fail/T7243.hs new file mode 100644 index 0000000000..c9714e4319 --- /dev/null +++ b/testsuite/tests/ffi/should_fail/T7243.hs @@ -0,0 +1,4 @@ +module T7243 where + +import Foreign.Ptr +foreign import ccall "wrapper" foo :: IO (FunPtr ()) diff --git a/testsuite/tests/ffi/should_fail/T7243.stderr b/testsuite/tests/ffi/should_fail/T7243.stderr new file mode 100644 index 0000000000..727ae0f653 --- /dev/null +++ b/testsuite/tests/ffi/should_fail/T7243.stderr @@ -0,0 +1,5 @@ + +T7243.hs:4:1: + Unacceptable type in foreign declaration: One argument expected + When checking declaration: + foreign import ccall safe "wrapper" foo :: IO (FunPtr ()) diff --git a/testsuite/tests/ffi/should_fail/all.T b/testsuite/tests/ffi/should_fail/all.T index d1cba3c0d7..78b70073e5 100644 --- a/testsuite/tests/ffi/should_fail/all.T +++ b/testsuite/tests/ffi/should_fail/all.T @@ -16,3 +16,5 @@ test('ccall_value', normal, compile_fail, ['']) test('capi_value_function', normal, compile_fail, ['']) test('T5664', normal, compile_fail, ['-v0']) test('T7506', normal, compile_fail, ['']) +test('T7243', normal, compile_fail, ['']) + |