Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
d33dc999
Commit
d33dc999
authored
Nov 10, 2008
by
Simon Marlow
Browse files
add a DLL building test (
#2745
)
parent
d25ec980
Changes
4
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/driver/Makefile
View file @
d33dc999
...
...
@@ -463,3 +463,7 @@ mode001:
$(TEST_HC)
--interactive
--version
|
sed
"s/, version.*//"
$(TEST_HC)
--version
--interactive
|
sed
"s/, version.*//"
# Test for building DLLs with ghc -shared, see #2745
shared001
:
$(RM)
Shared001.hi Shared001.o HSdll.dll.a HSdll.dll Shared001_stub.
*
$(TEST_HC)
-shared
Shared001.hs
testsuite/tests/ghc-regress/driver/Shared001.hs
0 → 100644
View file @
d33dc999
{-# LANGUAGE ForeignFunctionInterface #-}
module
Shared001
where
-- Test for building DLLs with ghc -shared, see #2745
f
::
Int
->
Int
f
x
=
x
+
1
foreign
export
ccall
f
::
Int
->
Int
testsuite/tests/ghc-regress/driver/all.T
View file @
d33dc999
...
...
@@ -204,3 +204,12 @@ test('2499', normal, compile_fail, [''])
test
('
mode001
',
normal
,
run_command
,
['
$MAKE -s --no-print-directory mode001
'])
if
config
.
platform
==
'
i386-unknown-mingw32
':
only_windows
=
normal
else
:
only_windows
=
skip
test
('
shared001
',
[
only_windows
,
extra_clean
(['
Shared001.hi
',
'
Shared001.o
',
'
HSdll.dll.a
',
'
HSdll.dll
',
'
Shared001_stub.c
',
'
Shared001_stub.h
',
'
Shared001_stub.o
'])
],
run_command
,
['
$MAKE -s --no-print-directory shared001
'])
testsuite/tests/ghc-regress/driver/shared001.stderr
0 → 100644
View file @
d33dc999
Creating library file: HSdll.dll.a
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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