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

File 0001-Test-for-5589.patch, 1.5 KB (added by michalt, 3 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, [''])