Ticket #6060: 6060-test.patch

File 6060-test.patch, 1.5 KB (added by pcapriotti, 2 years ago)
  • new file tests/rename/should_fail/T6060.hs

    From 8424c3c0f25ceaa815bcc444ecffb135d352cd34 Mon Sep 17 00:00:00 2001
    From: Paolo Capriotti <p.capriotti@gmail.com>
    Date: Mon, 30 Apr 2012 16:53:36 +0100
    Subject: [PATCH] Add test for #6060
    
    ---
     tests/rename/should_fail/T6060.hs     |    5 +++++
     tests/rename/should_fail/T6060.stderr |    4 ++++
     tests/rename/should_fail/all.T        |    1 +
     3 files changed, 10 insertions(+), 0 deletions(-)
     create mode 100644 tests/rename/should_fail/T6060.hs
     create mode 100644 tests/rename/should_fail/T6060.stderr
    
    diff --git a/tests/rename/should_fail/T6060.hs b/tests/rename/should_fail/T6060.hs
    new file mode 100644
    index 0000000..c323835
    - +  
     1{-# LANGUAGE ParallelListComp #-} 
     2 
     3module T6060 where 
     4 
     5foo = do let bad = [True | x <- [] | y <- []] 
  • new file tests/rename/should_fail/T6060.stderr

    diff --git a/tests/rename/should_fail/T6060.stderr b/tests/rename/should_fail/T6060.stderr
    new file mode 100644
    index 0000000..3d381cb
    - +  
     1 
     2T6060.hs:5:10: 
     3    The last statement in a 'do' block must be an expression 
     4      let bad = [True | x <- [] |  y <- []] 
  • tests/rename/should_fail/all.T

    diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
    index a512d19..383a4d7 100644
    a b test('T5745', 
    102102test('T5892a', normal, compile_fail, ['']) 
    103103test('T5892b', normal, compile_fail, ['']) 
    104104test('T5951', normal, compile_fail, ['']) 
     105test('T6060', normal, compile_fail, [''])