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 6e1444a8240b..c23b02022dcb 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 000000000000..200dada04ec6
--- /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 000000000000..0a1d7e135727
--- /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 000000000000..7ffce8ee3f08
--- /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 000000000000..fbd5abc3a05d
--- /dev/null
+++ b/ghc/tests/lib/should_run/packedstring001.stdout
@@ -0,0 +1 @@
+"thisisatest"
-- 
GitLab