Commit b996a457 authored by Simon Marlow's avatar Simon Marlow
Browse files

FIX #2175: evaluate the list first

parent f795cf45
......@@ -34,7 +34,7 @@ clean(['Memo.hi', 'Memo.o'])
test('packedstring001', normal, compile_and_run, ['-package packedstring'])
test('stableptr001', compose(skip_if_fast,extra_run_opts('+RTS -K8m -RTS')), compile_and_run, [''])
test('stableptr003', if_compiler_ge('ghc','6.9', expect_broken(2175)), compile_and_run, [''])
test('stableptr003', normal, compile_and_run, [''])
test('stableptr004', extra_run_opts('+RTS -K4m -RTS'), compile_and_run, [''])
test('stableptr005', normal, compile_and_run, [''])
......@@ -2,8 +2,10 @@ module Main where
import Control.Monad
import System.Mem.StableName
import Control.Exception
main = do
mapM_ evaluate list
stable_list1 <- mapM makeStableName list
stable_list2 <- mapM makeStableName list
unless (stable_list1 == stable_list2) $ do
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment