Ticket #6027: 6027-tests.patch

File 6027-tests.patch, 2.2 KB (added by pcapriotti, 3 years ago)
  • new file tests/ghci/scripts/T6027ghci.script

    From 6410ba4ff51610612380f39bbe1474eab07f4d40 Mon Sep 17 00:00:00 2001
    From: Paolo Capriotti <[email protected]>
    Date: Thu, 26 Apr 2012 12:48:53 +0100
    Subject: [PATCH] Add tests for #6027.
    
    ---
     tests/ghci/scripts/T6027ghci.script  |    3 +++
     tests/ghci/scripts/T6027ghci.stdout  |    1 +
     tests/ghci/scripts/all.T             |    1 +
     tests/rename/should_compile/T6027.hs |   10 ++++++++++
     tests/rename/should_compile/all.T    |    1 +
     5 files changed, 16 insertions(+), 0 deletions(-)
     create mode 100644 tests/ghci/scripts/T6027ghci.script
     create mode 100644 tests/ghci/scripts/T6027ghci.stdout
     create mode 100644 tests/rename/should_compile/T6027.hs
    
    diff --git a/tests/ghci/scripts/T6027ghci.script b/tests/ghci/scripts/T6027ghci.script
    new file mode 100644
    index 0000000..418c82e
    - +  
     1:set -XTypeOperators
     2data (?)
     3:info (?)
  • new file tests/ghci/scripts/T6027ghci.stdout

    diff --git a/tests/ghci/scripts/T6027ghci.stdout b/tests/ghci/scripts/T6027ghci.stdout
    new file mode 100644
    index 0000000..3b5a01c
    - +  
     1data (?)        -- Defined at <interactive>:3:6
  • tests/ghci/scripts/all.T

    diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T
    index bdec94a..a73e2b4 100755
    a b test('T5975b', 
    123123     [pre_cmd('touch föøbàr.hs'),
    124124      clean_cmd('rm föøbàr.hs')],
    125125     ghci_script, ['T5975b.script'])
     126test('T6027ghci', normal, ghci_script, ['T6027ghci.script'])
  • new file tests/rename/should_compile/T6027.hs

    diff --git a/tests/rename/should_compile/T6027.hs b/tests/rename/should_compile/T6027.hs
    new file mode 100644
    index 0000000..3188946
    - +  
     1{-# LANGUAGE TypeOperators #-}
     2
     3module T6027 where
     4
     5data (?) a b = Q a b
     6
     7infixr 2 ?
     8
     9test :: Int ? String ? Bool
     10test = 0 `Q` ("foo" `Q` True)
  • tests/rename/should_compile/all.T

    diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T
    index 3ed2a1f..cf53d35 100644
    a b test('T5592', 
    186186      extra_clean(['T5592a.hi',      'T5592a.o'])],
    187187     multimod_compile_and_run,
    188188     ['T5592', '-v0'])
     189test('T6027', normal, compile, [''])