From fafb484bed911aaf4ab589d68fc9597c07ddea85 Mon Sep 17 00:00:00 2001
From: Michal Terepeta <michal.terepeta@gmail.com>
Date: Sun, 30 Oct 2011 20:27:04 +0100
Subject: [PATCH] Test for #5589.
---
tests/rename/should_fail/T5589.hs | 6 ++++++
tests/rename/should_fail/T5589.stderr | 5 +++++
tests/rename/should_fail/all.T | 1 +
3 files changed, 12 insertions(+), 0 deletions(-)
create mode 100644 tests/rename/should_fail/T5589.hs
create mode 100644 tests/rename/should_fail/T5589.stderr
diff --git a/tests/rename/should_fail/T5589.hs b/tests/rename/should_fail/T5589.hs
new file mode 100644
index 0000000..c7708e5
|
a
|
b
|
|
| | 1 | module T5589 where |
| | 2 | |
| | 3 | bbb, aaa :: Int |
| | 4 | aaa :: Int |
| | 5 | aaa = undefined |
| | 6 | bbb = undefined |
diff --git a/tests/rename/should_fail/T5589.stderr b/tests/rename/should_fail/T5589.stderr
new file mode 100644
index 0000000..f5f3a01
|
a
|
b
|
|
| | 1 | |
| | 2 | T5589.hs:4:1: |
| | 3 | Duplicate type signature: |
| | 4 | T5589.hs:4:1-10: aaa :: Int |
| | 5 | T5589.hs:3:1-15: bbb, aaa :: Int |
diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
index ef7f857..385f617 100644
|
a
|
b
|
|
| 93 | 93 | ['T5385','-v0']) |
| 94 | 94 | test('T5513', normal, compile_fail, ['']) |
| 95 | 95 | test('T5533', normal, compile_fail, ['']) |
| | 96 | test('T5589', normal, compile_fail, ['']) |
| 96 | 97 | test('Misplaced', normal, compile_fail, ['']) |
