Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
f0517ead
Commit
f0517ead
authored
Nov 16, 2010
by
Ian Lynagh
Browse files
Add a test for Read/Show of Data.Fixed
parent
5ad66cf0
Changes
4
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/lib/Data.Fixed/Makefile
0 → 100644
View file @
f0517ead
TOP
=
../../../..
include
$(TOP)/mk/boilerplate.mk
include
$(TOP)/mk/test.mk
testsuite/tests/ghc-regress/lib/Data.Fixed/all.T
0 → 100644
View file @
f0517ead
test
('
data-fixed-show-read
',
normal
,
compile_and_run
,
[''])
testsuite/tests/ghc-regress/lib/Data.Fixed/data-fixed-show-read.hs
0 → 100644
View file @
f0517ead
module
Main
(
main
)
where
import
Data.Fixed
main
::
IO
()
main
=
do
doit
38.001
doit
38.009
doit
38.01
doit
38.09
print
(
read
"38"
::
Centi
)
doit
(
-
38.001
)
doit
(
-
38.009
)
doit
(
-
38.01
)
doit
(
-
38.09
)
print
(
read
"-38"
::
Centi
)
doit
::
Centi
->
IO
()
doit
c
=
do
let
s
=
show
c
r
=
read
s
::
Centi
putStrLn
s
print
r
testsuite/tests/ghc-regress/lib/Data.Fixed/data-fixed-show-read.stdout
0 → 100644
View file @
f0517ead
38.00
38.00
38.00
38.00
38.01
38.01
38.09
38.09
38.00
-38.00
-38.00
-38.00
-38.00
-38.01
-38.01
-38.09
-38.09
-38.00
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