diff options
author | Ian Lynagh <igloo@earth.li> | 2012-02-03 23:29:57 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2012-02-03 23:29:57 +0000 |
commit | 5c564536d4b942b01d786b7606fd8079e8047612 (patch) | |
tree | 67bb65aefc32df26243d627966075b397a17998c /libraries/base | |
parent | acdd956123ac5829d17b26139481fa80603ec9b2 (diff) | |
download | haskell-5c564536d4b942b01d786b7606fd8079e8047612.tar.gz |
Move Text.Printf tests from testsuite; part of #1161
Diffstat (limited to 'libraries/base')
-rw-r--r-- | libraries/base/tests/Text.Printf/1548.hs | 11 | ||||
-rw-r--r-- | libraries/base/tests/Text.Printf/1548.stdout | 3 | ||||
-rw-r--r-- | libraries/base/tests/Text.Printf/Makefile | 7 | ||||
-rw-r--r-- | libraries/base/tests/Text.Printf/all.T | 1 |
4 files changed, 22 insertions, 0 deletions
diff --git a/libraries/base/tests/Text.Printf/1548.hs b/libraries/base/tests/Text.Printf/1548.hs new file mode 100644 index 0000000000..68cec0548f --- /dev/null +++ b/libraries/base/tests/Text.Printf/1548.hs @@ -0,0 +1,11 @@ +import Text.Printf + +main = do + printf "%.*f\n" (2::Int) ((1/3) :: Double) + -- (expected: "0.33") + + printf "%.3s\n" "foobar" + -- (expected: "foo") + + printf "%10.5d\n" (4::Int) + -- (expected: " 00004") diff --git a/libraries/base/tests/Text.Printf/1548.stdout b/libraries/base/tests/Text.Printf/1548.stdout new file mode 100644 index 0000000000..4976334b4f --- /dev/null +++ b/libraries/base/tests/Text.Printf/1548.stdout @@ -0,0 +1,3 @@ +0.33 +foo + 00004 diff --git a/libraries/base/tests/Text.Printf/Makefile b/libraries/base/tests/Text.Printf/Makefile new file mode 100644 index 0000000000..4ca7751070 --- /dev/null +++ b/libraries/base/tests/Text.Printf/Makefile @@ -0,0 +1,7 @@ +# This Makefile runs the tests using GHC's testsuite framework. It +# assumes the package is part of a GHC build tree with the testsuite +# installed in ../../../testsuite. + +TOP=../../../../testsuite +include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/test.mk diff --git a/libraries/base/tests/Text.Printf/all.T b/libraries/base/tests/Text.Printf/all.T new file mode 100644 index 0000000000..aa26ff2d96 --- /dev/null +++ b/libraries/base/tests/Text.Printf/all.T @@ -0,0 +1 @@ +test('1548', normal, compile_and_run, ['']) |