Ticket #7145: 7145-test.patch

File 7145-test.patch, 2.0 KB (added by pcapriotti, 21 months ago)
  • new file tests/rename/should_compile/T7145a.hs

    From de04fb5527bb6b935cd58c5a167e5562be6c1ce2 Mon Sep 17 00:00:00 2001
    From: Paolo Capriotti <p.capriotti@gmail.com>
    Date: Tue, 14 Aug 2012 17:12:34 +0100
    Subject: [PATCH] Add test for #7145
    
    ---
     tests/rename/should_compile/T7145a.hs     |    3 +++
     tests/rename/should_compile/T7145b.hs     |    6 ++++++
     tests/rename/should_compile/T7145b.stderr |    2 ++
     tests/rename/should_compile/all.T         |    2 ++
     4 files changed, 13 insertions(+)
     create mode 100644 tests/rename/should_compile/T7145a.hs
     create mode 100644 tests/rename/should_compile/T7145b.hs
     create mode 100644 tests/rename/should_compile/T7145b.stderr
    
    diff --git a/tests/rename/should_compile/T7145a.hs b/tests/rename/should_compile/T7145a.hs
    new file mode 100644
    index 0000000..501915f
    - +  
     1module T7145a ( Applicative(pure) ) where 
     2 
     3import Control.Applicative ( Applicative(pure) ) 
  • new file tests/rename/should_compile/T7145b.hs

    diff --git a/tests/rename/should_compile/T7145b.hs b/tests/rename/should_compile/T7145b.hs
    new file mode 100644
    index 0000000..f34ea4d
    - +  
     1module T7145b ( A.Applicative(pure) ) where 
     2 
     3import qualified Control.Applicative as A 
     4 
     5pure :: () 
     6pure = () 
  • new file tests/rename/should_compile/T7145b.stderr

    diff --git a/tests/rename/should_compile/T7145b.stderr b/tests/rename/should_compile/T7145b.stderr
    new file mode 100644
    index 0000000..35e233d
    - +  
     1 
     2T7145b.hs:6:1: Warning: Defined but not used: `pure' 
  • tests/rename/should_compile/all.T

    diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T
    index 1963150..f96c07d 100644
    a b test('T6027', normal, compile, ['']) 
    193193test('T6120', normal, compile, ['']) 
    194194test('T7007', normal, compile, ['']) 
    195195test('T7085', normal, compile, ['']) 
     196test('T7145a', normal, compile, ['-Wall -Werror']) 
     197test('T7145b', normal, compile, ['-Wall'])