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

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

    From 3c59c36492427a43508f6a8d25e16898e63dbe3f Mon Sep 17 00:00:00 2001
    From: Joachim Breitner <[email protected]>
    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, [''])