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
63afeeb4
Commit
63afeeb4
authored
Jan 13, 2012
by
Ian Lynagh
Browse files
Add {double,float}FromInteger to the integerConstantFolding test
parent
cacd9825
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/lib/integer/Makefile
View file @
63afeeb4
...
...
@@ -30,5 +30,7 @@ integerConstantFolding:
$(call
CHECK,\<6253\>,shiftRInteger)
$(call
CHECK,\<641\>,quotInteger)
$(call
CHECK,\<68\>,remInteger)
$(call
CHECK,\<200131.0\>,doubleFromInteger)
$(call
CHECK,\<200135.0\>,floatFromInteger)
./integerConstantFolding
testsuite/tests/lib/integer/integerConstantFolding.hs
View file @
63afeeb4
...
...
@@ -46,6 +46,8 @@ main = do p "plusInteger" plusInteger
p
"shiftRInteger"
shiftRInteger
p
"quotInteger"
quotInteger
p
"remInteger"
remInteger
p
"doubleFromInteger"
doubleFromInteger
p
"floatFromInteger"
floatFromInteger
where
p
::
Show
a
=>
String
->
a
->
IO
()
p
str
x
=
putStrLn
(
str
++
": "
++
show
x
)
...
...
@@ -159,3 +161,13 @@ quotInteger = 100063 `quot` 156
remInteger
::
Integer
remInteger
=
100064
`
rem
`
156
-- For the conversion functions, we can't just check that e.g. 100065
-- is in the resulting core, because it will be regardless of whether
-- the rules fire or not. So we add 100066, and thus rely on the
-- Double addition rule also firing.
doubleFromInteger
::
Double
doubleFromInteger
=
fromInteger
100065
+
100066
floatFromInteger
::
Float
floatFromInteger
=
fromInteger
100067
+
100068
testsuite/tests/lib/integer/integerConstantFolding.stdout
View file @
63afeeb4
...
...
@@ -40,3 +40,5 @@ shiftLInteger: 1600976
shiftRInteger: 6253
quotInteger: 641
remInteger: 68
doubleFromInteger: 200131.0
floatFromInteger: 200135.0
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