[project @ 1998-05-22 11:47:16 by simonm]

- add lib hierarchy for library-related tests.
- add PackedString test that's been lying around for ages.

diff --git a/ghc/tests/Makefile b/ghc/tests/Makefile
index 6e1444a..c23b020 100644 (file)
--- a/ghc/tests/Makefile
+++ b/ghc/tests/Makefile
@@ -7,6 +7,7 @@ SUBDIRS = \
        codeGen \
        deSugar \
        deriving \
+       lib \
        numeric \
        reader \
        rename \

diff --git a/ghc/tests/lib/Makefile b/ghc/tests/lib/Makefile
new file mode 100644 (file)
index 0000000..200dada
--- /dev/null
+++ b/ghc/tests/lib/Makefile
@@ -0,0 +1,9 @@
+#-----------------------------------------------------------------------------
+# $Id: Makefile,v 1.1 1998/05/22 11:47:23 simonm Exp $
+
+TOP = ..
+include $(TOP)/mk/boilerplate.mk
+
+SUBDIRS = should_run
+
+include $(TOP)/mk/target.mk

diff --git a/ghc/tests/lib/should_run/Makefile b/ghc/tests/lib/should_run/Makefile
new file mode 100644 (file)
index 0000000..0a1d7e1
--- /dev/null
+++ b/ghc/tests/lib/should_run/Makefile
@@ -0,0 +1,13 @@
+#-----------------------------------------------------------------------------
+# $Id: Makefile,v 1.1 1998/05/22 11:47:25 simonm Exp $
+
+TOP = ../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/should_run.mk
+
+SRC_HC_OPTS += -dcore-lint
+
+packedstring001_HC_OPTS = -syslib misc
+
+include $(TOP)/mk/target.mk
+

diff --git a/ghc/tests/lib/should_run/packedstring001.hs b/ghc/tests/lib/should_run/packedstring001.hs
new file mode 100644 (file)
index 0000000..7ffce8e
--- /dev/null
+++ b/ghc/tests/lib/should_run/packedstring001.hs
@@ -0,0 +1,10 @@
+module Main (main) where
+
+import Char (isSpace)
+import PackedString
+
+-- Bug in PackedString.lhs (fixed in rev 1.5)
+
+foo = packString "this is a test"
+main = print (filterPS (not.isSpace) foo)
+

diff --git a/ghc/tests/lib/should_run/packedstring001.stdout b/ghc/tests/lib/should_run/packedstring001.stdout
new file mode 100644 (file)
index 0000000..fbd5abc
--- /dev/null
+++ b/ghc/tests/lib/should_run/packedstring001.stdout
@@ -0,0 +1 @@
+"thisisatest"