From 5c564536d4b942b01d786b7606fd8079e8047612 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 3 Feb 2012 23:29:57 +0000 Subject: Move Text.Printf tests from testsuite; part of #1161 --- libraries/base/tests/Text.Printf/1548.hs | 11 +++++++++++ libraries/base/tests/Text.Printf/1548.stdout | 3 +++ libraries/base/tests/Text.Printf/Makefile | 7 +++++++ libraries/base/tests/Text.Printf/all.T | 1 + 4 files changed, 22 insertions(+) create mode 100644 libraries/base/tests/Text.Printf/1548.hs create mode 100644 libraries/base/tests/Text.Printf/1548.stdout create mode 100644 libraries/base/tests/Text.Printf/Makefile create mode 100644 libraries/base/tests/Text.Printf/all.T (limited to 'libraries/base') 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, ['']) -- cgit v1.2.1