Ticket #5589: 0001-Test-for-5589.patch

File 0001-Test-for-5589.patch, 1.5 KB (added by michalt, 4 years ago)

Test from the ticket description.

  • new file tests/rename/should_fail/T5589.hs

    From fafb484bed911aaf4ab589d68fc9597c07ddea85 Mon Sep 17 00:00:00 2001
    From: Michal Terepeta <[email protected]>
    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
    - +  
     1module T5589 where
     2
     3bbb, aaa :: Int
     4aaa :: Int
     5aaa = undefined
     6bbb = undefined
  • new file tests/rename/should_fail/T5589.stderr

    diff --git a/tests/rename/should_fail/T5589.stderr b/tests/rename/should_fail/T5589.stderr
    new file mode 100644
    index 0000000..f5f3a01
    - +  
     1
     2T5589.hs:4:1:
     3    Duplicate type signature:
     4      T5589.hs:4:1-10: aaa :: Int
     5      T5589.hs:3:1-15: bbb, aaa :: Int
  • tests/rename/should_fail/all.T

    diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
    index ef7f857..385f617 100644
    a b test('T5385', 
    9393     ['T5385','-v0'])
    9494test('T5513', normal, compile_fail, [''])
    9595test('T5533', normal, compile_fail, [''])
     96test('T5589', normal, compile_fail, [''])
    9697test('Misplaced', normal, compile_fail, [''])