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

File 0001-Add-test-case-for-7611.patch, 2.0 KB (added by nomeata, 15 months ago)
  • new file tests/simplCore/should_run/T7611.hs

    From 3c59c36492427a43508f6a8d25e16898e63dbe3f Mon Sep 17 00:00:00 2001
    From: Joachim Breitner <mail@joachim-breitner.de>
    Date: Mon, 21 Jan 2013 09:50:07 +0100
    Subject: [PATCH] Add test case for #7611
    
    ---
     tests/simplCore/should_run/T7611.hs     | 13 +++++++++++++
     tests/simplCore/should_run/T7611.stderr |  0
     tests/simplCore/should_run/T7611.stdout |  2 ++
     tests/simplCore/should_run/all.T        |  1 +
     4 files changed, 16 insertions(+)
     create mode 100644 tests/simplCore/should_run/T7611.hs
     create mode 100644 tests/simplCore/should_run/T7611.stderr
     create mode 100644 tests/simplCore/should_run/T7611.stdout
    
    diff --git a/tests/simplCore/should_run/T7611.hs b/tests/simplCore/should_run/T7611.hs
    new file mode 100644
    index 0000000..9dde886
    - +  
     1import Debug.Trace 
     2 
     3myMap :: (a -> a) -> [a] -> [a] 
     4myMap h x = trace "not ok" (map h x) 
     5{-# NOINLINE myMap #-} 
     6 
     7{-# RULES "myMap id" myMap (\x -> x) = id #-} 
     8 
     9main = do 
     10    putStrLn "myMap id: " 
     11    putStr $ myMap id "" 
     12    putStrLn "myMap (\\x -> x): " 
     13    putStr $ myMap (\x -> x) "" 
  • new file tests/simplCore/should_run/T7611.stdout

    diff --git a/tests/simplCore/should_run/T7611.stderr b/tests/simplCore/should_run/T7611.stderr
    new file mode 100644
    index 0000000..e69de29
    diff --git a/tests/simplCore/should_run/T7611.stdout b/tests/simplCore/should_run/T7611.stdout
    new file mode 100644
    index 0000000..bc32fcb
    - +  
     1myMap id:  
     2myMap (\x -> x):  
  • tests/simplCore/should_run/all.T

    diff --git a/tests/simplCore/should_run/all.T b/tests/simplCore/should_run/all.T
    index 40c553f..6bed496 100644
    a b test('T5915', only_ways(['normal','optasm']), compile_and_run, ['']) 
    5757test('T5920', only_ways(['normal','optasm']), compile_and_run, ['']) 
    5858test('T5997', normal, compile_and_run, ['']) 
    5959test('T7101', normal, compile_and_run, ['']) 
     60test('T7611', [ expect_broken('7611') ], compile_and_run, [''])