From ab29b7806ead26dbebc9e04b54fec078e97ea104 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Fri, 22 May 1998 11:47:29 +0000
Subject: [PATCH] [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.

---
 ghc/tests/Makefile                              |    1 +
 ghc/tests/lib/Makefile                          |    9 +++++++++
 ghc/tests/lib/should_run/Makefile               |   13 +++++++++++++
 ghc/tests/lib/should_run/packedstring001.hs     |   10 ++++++++++
 ghc/tests/lib/should_run/packedstring001.stdout |    1 +
 5 files changed, 34 insertions(+)
 create mode 100644 ghc/tests/lib/Makefile
 create mode 100644 ghc/tests/lib/should_run/Makefile
 create mode 100644 ghc/tests/lib/should_run/packedstring001.hs
 create mode 100644 ghc/tests/lib/should_run/packedstring001.stdout

diff --git a/ghc/tests/Makefile b/ghc/tests/Makefile
index 6e1444a..c23b020 100644
--- 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
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
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
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
index 0000000..fbd5abc
--- /dev/null
+++ b/ghc/tests/lib/should_run/packedstring001.stdout
@@ -0,0 +1 @@
+"thisisatest"
-- 
1.7.10.4