Move Text.Printf tests from testsuite; part of #1161

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, [''])