Commit 6b90fe44 authored by dterei's avatar dterei
Browse files

Update Safe Haskell tests

parent 0909d1b8
{-# GHC_OPTIONS -fpackage-trust #-}
{-# OPTIONS_GHC -fpackage-trust #-}
{-# LANGUAGE Unsafe #-}
module Check01 ( main' ) where
......
{-# OPTIONS_GHC -fpackage-trust #-}
module Check05 ( main' ) where
main' = do
let n = 1
print $ n
Check05.hs:1:16:
Warning: -fpackage-trust ignored; must be specified with a Safe Haskell flag
......@@ -39,3 +39,6 @@ test('Check04', normal, multi_compile, ['Check04', [
('Check04_1.hs', '-trust base')
], '-fpackage-trust'])
# Check -fpackage-trust with no safe haskell flag is an error
test('Check05', normal, compile, [''])
SafeFlags18.hs:1:16:
Warning: -fpackage-trust ignored; must be specified with a Safe Haskell flag
<no location info>:
Failing due to -Werror.
......@@ -37,7 +37,7 @@ test('SafeFlags14', normal, compile_fail, [''])
test('SafeFlags15', normal, compile, [''])
test('SafeFlags16', normal, compile, [''])
test('SafeFlags17', normal, compile_fail, ['-distrust base'])
test('SafeFlags18', normal, compile, ['-trust base'])
test('SafeFlags18', normal, compile_fail, ['-trust base -Werror'])
test('SafeFlags19', normal, compile_fail, [''])
test('SafeFlags20', normal, compile, ['-trust base'])
......
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