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
6453351e
Commit
6453351e
authored
Jan 26, 2012
by
Ian Lynagh
Browse files
Generalise the integerToInt_smallInteger test (now fromToInteger)
parent
69017cae
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/lib/integer/Makefile
View file @
6453351e
...
...
@@ -36,10 +36,12 @@ integerConstantFolding:
$(call
CHECK,\<400280.0\>,encodeIntegerFloat)
./integerConstantFolding
.PHONY
:
integerToInt_smallInteger
integerToInt_smallInteger
:
'
$(TEST_HC)
'
-Wall
-v0
-O
-c
integerToInt_smallInteger.hs
-fforce-recomp
-ddump-simpl
>
integerToInt_smallInteger.simpl
# Rules should eliminate both functions
-grep
integerToInt
integerToInt_smallInteger.simpl
-grep
smallInteger
integerToInt_smallInteger.simpl
.PHONY
:
fromToInteger
fromToInteger
:
'
$(TEST_HC)
'
-Wall
-v0
-O
-c
fromToInteger.hs
-fforce-recomp
-ddump-simpl
>
fromToInteger.simpl
# Rules should eliminate all functions
-grep
integerToInt
fromToInteger.simpl
-grep
smallInteger
fromToInteger.simpl
-grep
integerToWord
fromToInteger.simpl
-grep
wordToInteger
fromToInteger.simpl
testsuite/tests/lib/integer/all.T
View file @
6453351e
...
...
@@ -4,8 +4,8 @@ test('integerConstantFolding',
extra_clean
(['
integerConstantFolding.simpl
']),
run_command
,
['
$MAKE -s --no-print-directory integerConstantFolding
'])
test
('
integerToInt_small
Integer
',
extra_clean
(['
integerToInt_small
Integer.simpl
']),
test
('
fromTo
Integer
',
extra_clean
(['
fromTo
Integer.simpl
']),
run_command
,
['
$MAKE -s --no-print-directory
integerToInt_small
Integer
'])
['
$MAKE -s --no-print-directory
fromTo
Integer
'])
testsuite/tests/lib/integer/
integerToInt_small
Integer.hs
→
testsuite/tests/lib/integer/
fromTo
Integer.hs
View file @
6453351e
...
...
@@ -9,3 +9,6 @@ import GHC.Integer
v
::
Int
v
=
I
#
(
integerToInt
(
smallInteger
3
#
))
w
::
Word
w
=
W
#
(
integerToWord
(
wordToInteger
3
##
))
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