Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
04edc17d
Commit
04edc17d
authored
Aug 12, 2008
by
simonpj
Browse files
Add test for Trac #2490, follow output changes
parent
15f4d15c
Changes
6
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/parser/should_fail/read023.stderr
View file @
04edc17d
read023.hs:9:
5
:
read023.hs:9:
4
:
The operator `**' [infixl 7] of a section
must have lower precedence than the operand prefix `-' [infixl 6]
in the section: `- 3 **'
must have lower precedence than the operand prefix `-' [infixl 6]
in the section: `- 3 **'
testsuite/tests/ghc-regress/rename/should_fail/T2490.hs
0 → 100644
View file @
04edc17d
-- Trac #2490
module
ShouldFail
where
-- All these sections are illegal
f
x
=
[
(`
head
`
x
,
()
)
,
(
+
x
,
()
)
,
(
()
,
+
x
)
,
(
()
,
+
x
,
()
)
,
(
()
,
x
+
)
]
testsuite/tests/ghc-regress/rename/should_fail/T2490.stderr
0 → 100644
View file @
04edc17d
T2490.hs:6:9:
A section must be enclosed in parentheses thus: (`head` x)
T2490.hs:7:9: A section must be enclosed in parentheses thus: (+ x)
T2490.hs:8:13:
A section must be enclosed in parentheses thus: (+ x)
T2490.hs:9:13:
A section must be enclosed in parentheses thus: (+ x)
T2490.hs:10:13:
A section must be enclosed in parentheses thus: (x +)
testsuite/tests/ghc-regress/rename/should_fail/all.T
View file @
04edc17d
...
...
@@ -69,4 +69,5 @@ test('rnfail055',
test
('
rn_dup
',
normal
,
compile_fail
,
[''])
test
('
T2310
',
if_compiler_lt
('
ghc
',
'
6.9
',
expect_fail
),
compile_fail
,
[''])
test
('
T2490
',
normal
,
compile_fail
,
[''])
testsuite/tests/ghc-regress/rename/should_fail/rnfail019.stderr
View file @
04edc17d
rnfail019.hs:5:
9
:
rnfail019.hs:5:
8
:
The operator `:' [infixr 5] of a section
must have lower precedence than the operand `(:)' [infixr 5]
in the section: `x : y :'
must have lower precedence than the operand `(:)' [infixr 5]
in the section: `x : y :'
testsuite/tests/ghc-regress/simplCore/should_run/T2486.stderr
View file @
04edc17d
...
...
@@ -8,24 +8,24 @@ Imported rules
==================== Top-level specialisations ====================
"SPEC Main.fib" ALWAYS
forall {$dNum
_sRV
:: GHC.Num.Num GHC.Types.Double
$dOrd
_sRW
:: GHC.Classes.Ord GHC.Types.Double}
Main.fib @ GHC.Types.Double $dNum
_sRV
$dOrd
_sRW
= $sfib
_sSu
forall {$dNum :: GHC.Num.Num GHC.Types.Double
$dOrd :: GHC.Classes.Ord GHC.Types.Double}
Main.fib @ GHC.Types.Double $dNum $dOrd
= $sfib
"SPEC Main.fib" ALWAYS
forall {$dNum
_sSd
:: GHC.Num.Num GHC.Types.Int
$dOrd
_sSe
:: GHC.Classes.Ord GHC.Types.Int}
Main.fib @ GHC.Types.Int $dNum
_sSd
$dOrd
_sSe
= $sfib
_sSv
forall {$dNum :: GHC.Num.Num GHC.Types.Int
$dOrd :: GHC.Classes.Ord GHC.Types.Int}
Main.fib @ GHC.Types.Int $dNum $dOrd
= $sfib
"SPEC Main.tak" ALWAYS
forall {$dNum
_sRh
:: GHC.Num.Num GHC.Types.Double
$dOrd
_sRi
:: GHC.Classes.Ord GHC.Types.Double}
Main.tak @ GHC.Types.Double $dNum
_sRh
$dOrd
_sRi
= $stak
_sRE
forall {$dNum :: GHC.Num.Num GHC.Types.Double
$dOrd :: GHC.Classes.Ord GHC.Types.Double}
Main.tak @ GHC.Types.Double $dNum $dOrd
= $stak
"SPEC Main.tak" ALWAYS
forall {$dNum
_sRt
:: GHC.Num.Num GHC.Types.Int
$dOrd
_sRu
:: GHC.Classes.Ord GHC.Types.Int}
Main.tak @ GHC.Types.Int $dNum
_sRt
$dOrd
_sRu
= $stak
_sRF
forall {$dNum :: GHC.Num.Num GHC.Types.Int
$dOrd :: GHC.Classes.Ord GHC.Types.Int}
Main.tak @ GHC.Types.Int $dNum $dOrd
= $stak
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment