Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/7c2dbcce1fd31747d9d4b87587e3e6b633484f22 >--------------------------------------------------------------- commit 7c2dbcce1fd31747d9d4b87587e3e6b633484f22 Author: David Terei <[email protected]> Date: Tue Jun 21 15:46:35 2011 -0700 Fix up testsuite for SafeHaskell >--------------------------------------------------------------- tests/ghc-regress/cabal/ghcpkg01.stdout | 6 ++++++ tests/ghc-regress/codeGen/should_compile/cg005.hs | 3 ++- tests/ghc-regress/driver/T4437.hs | 2 +- tests/ghc-regress/ffi/should_run/ffi005.hs | 2 +- tests/ghc-regress/rts/4059.hs | 3 ++- 5 files changed, 12 insertions(+), 4 deletions(-) diff --git a/tests/ghc-regress/cabal/ghcpkg01.stdout b/tests/ghc-regress/cabal/ghcpkg01.stdout index edfa92d..fb3ecdf 100644 --- a/tests/ghc-regress/cabal/ghcpkg01.stdout +++ b/tests/ghc-regress/cabal/ghcpkg01.stdout @@ -17,6 +17,7 @@ author: [email protected] exposed: True exposed-modules: A hidden-modules: B C.D +trusted: False import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" hs-libraries: testpkg-1.2.3.4 @@ -50,6 +51,7 @@ author: [email protected] exposed: True exposed-modules: A hidden-modules: B C.D +trusted: False import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" hs-libraries: testpkg-1.2.3.4 @@ -89,6 +91,7 @@ author: [email protected] exposed: False exposed-modules: A hidden-modules: B C.D C.E +trusted: False import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" hs-libraries: testpkg-2.0 @@ -122,6 +125,7 @@ author: [email protected] exposed: False exposed-modules: A hidden-modules: B C.D C.E +trusted: False import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" hs-libraries: testpkg-2.0 @@ -155,6 +159,7 @@ author: [email protected] exposed: True exposed-modules: A hidden-modules: B C.D +trusted: False import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" hs-libraries: testpkg-1.2.3.4 @@ -195,6 +200,7 @@ author: [email protected] exposed: False exposed-modules: A hidden-modules: B C.D +trusted: False import-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" library-dirs: /usr/local/lib/testpkg "c:/Program Files/testpkg" hs-libraries: testpkg-1.2.3.4 diff --git a/tests/ghc-regress/codeGen/should_compile/cg005.hs b/tests/ghc-regress/codeGen/should_compile/cg005.hs index 4cfab59..a25ad42 100644 --- a/tests/ghc-regress/codeGen/should_compile/cg005.hs +++ b/tests/ghc-regress/codeGen/should_compile/cg005.hs @@ -1,8 +1,9 @@ module Bug where -import Foreign +import Foreign hiding ( unsafePerformIO ) import Foreign.ForeignPtr import Data.Char +import System.IO.Unsafe data PackedString = PS !(ForeignPtr Word8) !Int !Int diff --git a/tests/ghc-regress/driver/T4437.hs b/tests/ghc-regress/driver/T4437.hs index a348e47..53234bc 100644 --- a/tests/ghc-regress/driver/T4437.hs +++ b/tests/ghc-regress/driver/T4437.hs @@ -6,7 +6,7 @@ import DynFlags import Language.Haskell.Extension main :: IO () -main = do let ghcExtensions = [ ext | (ext, _, _) <- xFlags ] +main = do let ghcExtensions = [ ext | (ext, _, _, _) <- xFlags ] cabalExtensions = map show [ toEnum 0 :: KnownExtension .. ] ghcOnlyExtensions = ghcExtensions \\ cabalExtensions -- These are extensions which are deliberately not yet diff --git a/tests/ghc-regress/ffi/should_run/ffi005.hs b/tests/ghc-regress/ffi/should_run/ffi005.hs index 1496922..63de955 100644 --- a/tests/ghc-regress/ffi/should_run/ffi005.hs +++ b/tests/ghc-regress/ffi/should_run/ffi005.hs @@ -1,7 +1,7 @@ -- !!! test for foreign import dynamic/wrapper, orignally by Alastair Reid, -- with a few changes to get it to run on GHC by Simon Marlow. -import Foreign +import Foreign hiding ( unsafePerformIO ) import Foreign.C import Control.Exception import System.IO.Unsafe diff --git a/tests/ghc-regress/rts/4059.hs b/tests/ghc-regress/rts/4059.hs index 699dd11..5af5bbc 100644 --- a/tests/ghc-regress/rts/4059.hs +++ b/tests/ghc-regress/rts/4059.hs @@ -1,8 +1,9 @@ {-# LANGUAGE ForeignFunctionInterface #-} -import Foreign +import Foreign hiding ( unsafePerformIO ) import Foreign.C +import System.IO.Unsafe d f x = unsafePerformIO $ do g <- mkfun f _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
