Commit 5d414416 authored by Simon Marlow's avatar Simon Marlow
Browse files

add tests for #1748

parent 201a4d10
......@@ -314,6 +314,16 @@ test062.3:
echo "module Main (hello) where { hello = putStrLn \"ok\" }" >Hello.hs
$(TEST_HC) --make -main-is hello Hello.hs -o hello
./hello
test062.4:
@$(RM) B/Hello.hs B/Hello.hi B/Hello$(OBJSUFFIX) B/Hello.hc hello
echo "module B.Hello (hello) where { hello = putStrLn \"ok\" }" >B/Hello.hs
$(TEST_HC) --make -main-is B.Hello.hello B/Hello.hs -o hello
./hello
test062.5:
@$(RM) B/Hello.hs B/Hello.hi B/Hello$(OBJSUFFIX) Hello.hc hello
echo "module B.Hello (main) where { main = putStrLn \"ok\" }" >B/Hello.hs
$(TEST_HC) --make -main-is B.Hello B/Hello.hs -o hello
./hello
# Test that -i deletes the list of search paths.
# The compilation will fail, but we ignore the failure and just
......
......@@ -6,6 +6,7 @@ def cleanall():
'B/F.hi', 'B/F.o', 'B/F_stub.c', 'B/F_stub.h', 'B/F_stub.o',
'F.hi', 'F.o', 'F_stub.c', 'F_stub.h', 'F_stub.o',
'Hello.hi', 'Hello.hs', 'Hello.o',
'B/Hello.hi', 'B/Hello.hs', 'B/Hello.o',
'd1/P/Q.hi', 'd1/P/Q.o', 'd2/R/S.hi', 'd2/R/S.o',
'depend', 'depend.bak', 'hello'])
......@@ -90,6 +91,10 @@ test('driver062.2', ignore_output, run_command, ['$MAKE test062.2'])
cleanall()
test('driver062.3', ignore_output, run_command, ['$MAKE test062.3'])
cleanall()
test('driver062.4', ignore_output, run_command, ['$MAKE test062.4'])
cleanall()
test('driver062.5', ignore_output, run_command, ['$MAKE test062.5'])
cleanall()
test('driver063', normal, run_command, ['$MAKE -s --no-print-directory test063'])
cleanall()
......
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