Commit 517ad201 authored by Ben Gamari's avatar Ben Gamari Committed by Ben Gamari

Add testcase for #13340

Test Plan: Validate

Reviewers: rwbarton, austin

Reviewed By: rwbarton

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3215
parent d4b6deee
......@@ -195,3 +195,9 @@ T13025:
str-rules:
$(RM) -f str-rules.hi str-rules.o
'$(TEST_HC)' $(TEST_HC_OPTS) -c -O str-rules.hs -ddump-simpl | grep -o '"@@@[^"].*"#' | sort
# We expect there to be precisely one use of +# in the simplified Core as f and
# g should have been collapsed into one defininition by CSE.
.PHONY: T13340
T13340:
'$(TEST_HC)' $(TEST_HC_OPTS) -c -O T13340.hs -ddump-simpl -dsuppress-all | grep '\+#' | wc -l
module Hi where
-- These two should be de-duplicated by CSE
f, g :: Int -> Int
f x = 2 + x
g x = 2 + x
......@@ -244,3 +244,4 @@ test('T13317',
normal,
run_command,
['$MAKE -s --no-print-directory T13317'])
test('T13340', expect_broken(13340), run_command, ['$MAKE -s --no-print-directory T13340'])
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