From a356bd5673301e0d17088d278100cca94db8664f Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Fri, 8 Oct 2021 15:09:15 +0100 Subject: driver: Fix assertion failure on self-import Fixes #20459 --- testsuite/tests/driver/T20459.stderr | 2 ++ testsuite/tests/driver/T20459A.hs | 3 +++ testsuite/tests/driver/T20459B.hs | 4 ++++ testsuite/tests/driver/all.T | 2 ++ 4 files changed, 11 insertions(+) create mode 100644 testsuite/tests/driver/T20459.stderr create mode 100644 testsuite/tests/driver/T20459A.hs create mode 100644 testsuite/tests/driver/T20459B.hs (limited to 'testsuite') diff --git a/testsuite/tests/driver/T20459.stderr b/testsuite/tests/driver/T20459.stderr new file mode 100644 index 0000000000..63ae634930 --- /dev/null +++ b/testsuite/tests/driver/T20459.stderr @@ -0,0 +1,2 @@ +Module imports form a cycle: + module ‘T20459A’ (./T20459A.hs) imports itself diff --git a/testsuite/tests/driver/T20459A.hs b/testsuite/tests/driver/T20459A.hs new file mode 100644 index 0000000000..1c4697e820 --- /dev/null +++ b/testsuite/tests/driver/T20459A.hs @@ -0,0 +1,3 @@ +module T20459A where + +import T20459A diff --git a/testsuite/tests/driver/T20459B.hs b/testsuite/tests/driver/T20459B.hs new file mode 100644 index 0000000000..4d02b3c4d6 --- /dev/null +++ b/testsuite/tests/driver/T20459B.hs @@ -0,0 +1,4 @@ +module T20459B where + +import T20459A + diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T index f9174a6015..be93ec1d51 100644 --- a/testsuite/tests/driver/all.T +++ b/testsuite/tests/driver/all.T @@ -297,3 +297,5 @@ test('RunMode', extra_files(['RunMode/Test.hs']), run_command, ['{compiler} --ru test('T20439', normal, run_command, ['echo "module Foo where" >> Foo.hs && \ {compiler} -E -fno-code -XCPP -v Foo.hs 2>&1 | grep "Copying" | sed "s/.*to//" ']) +test('T20459', normal, multimod_compile_fail, + ['T20459B', '']) -- cgit v1.2.1