Commit 0cb80c81 authored by Simon Marlow's avatar Simon Marlow
Browse files

add test018a, a test for #3093

parent 27fe87a0
{-# LANGUAGE ForeignFunctionInterface #-}
module TestStub018 where
foreign export ccall f :: Int -> Int
f :: Int -> Int
f n = n + 1
......@@ -80,6 +80,12 @@ test018:
$(TEST_HC) -c F018.hs -odir obj018
test -f obj018/TestStub018_stub$(OBJSUFFIX)
# test for bug #3093
test018a:
$(RM) -f F018a.hi F018a_stub.c F018a_stub.h *.obj.018
$(TEST_HC) -c F018a.hs -osuf obj.018
test -f F018a_stub.obj.018
# test -outputdir
test019:
$(RM) -rf out019
......
......@@ -42,6 +42,11 @@ test('driver018',
'obj018']),
run_command,
['$MAKE -s --no-print-directory test018'])
test('driver018a',
extra_clean(['F018a.hi', 'F018a_stub.c', 'F018a_stub.h',
'TestStub018a.obj.018', 'obj018a/TestStub018a_stub.obj.018']),
run_command,
['$MAKE -s --no-print-directory test018a'])
test('driver019',
extra_clean(['out019/TestStub.hi','out019/TestStub.o','out019/TestStub_stub.c','out019/TestStub_stub.h','out019/TestStub_stub.o']),
run_command,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment