Ticket #7117: 0001-Add-test-case-for-7117.patch

File 0001-Add-test-case-for-7117.patch, 1.4 KB (added by parcs, 21 months ago)
  • new file tests/ghci/scripts/T7117.script

    From 98d52a113798dd2d72b08be7d201dba9ffe732bf Mon Sep 17 00:00:00 2001
    From: Patrick Palka <patrick@parcs.ath.cx>
    Date: Wed, 8 Aug 2012 08:39:35 -0400
    Subject: [PATCH] Add test case for #7117
    
    ---
     tests/ghci/scripts/T7117.script |    4 ++++
     tests/ghci/scripts/T7117.stdout |    1 +
     tests/ghci/scripts/all.T        |    1 +
     3 files changed, 6 insertions(+)
     create mode 100644 tests/ghci/scripts/T7117.script
     create mode 100644 tests/ghci/scripts/T7117.stdout
    
    diff --git a/tests/ghci/scripts/T7117.script b/tests/ghci/scripts/T7117.script
    new file mode 100644
    index 0000000..8085822
    - +  
     1:set -XTypeFamilies 
     2data family Foo a 
     3data instance Foo Int = FooInt 
     4:t FooInt 
  • new file tests/ghci/scripts/T7117.stdout

    diff --git a/tests/ghci/scripts/T7117.stdout b/tests/ghci/scripts/T7117.stdout
    new file mode 100644
    index 0000000..1e8f8e5
    - +  
     1FooInt :: Foo Int 
  • tests/ghci/scripts/all.T

    diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T
    index 12bc870..52cf9e4 100755
    a b test('T6007', normal, ghci_script, ['T6007.script']) 
    130130test('T6091', normal, ghci_script, ['T6091.script']) 
    131131test('T6106', extra_clean(['T6106.hs']), ghci_script, ['T6106.script']) 
    132132test('T6105', normal, ghci_script, ['T6105.script']) 
     133test('T7117', normal, ghci_script, ['T7117.script'])