extract Properties module for re-use by contrib tests

I want to reuse Properties' Arbitrary instance (as well as the T and
NonNegative types) in an upcoming set of SwapWorkspaces QC props.
`module Main where import Main` doesn't work too well. :)

If this patch is accepted, the darcs 'test' pref should be modified to
"-itests tests/Main.hs".

darcs-hash:20071004075852-78224-6f84d89566894e33266a7c3b4d0cde5be7ec2918

2 files changed, 9 insertions, 0 deletions

diff --git a/tests/Main.hs b/tests/Main.hs
new file mode 100644
index 0000000..b08d55b
--- /dev/null
+++ b/tests/Main.hs
@@ -0,0 +1,8 @@
+module Main where
+
+import qualified Properties
+
+-- This will run all of the QC files for xmonad core. Currently, that's just
+-- Properties. If any more get added, sequence the main actions together.
+main = do
+  Properties.main
diff --git a/tests/Properties.hs b/tests/Properties.hs
index 9818f30..bd8bc2b 100644
--- a/tests/Properties.hs
+++ b/tests/Properties.hs
@@ -1,4 +1,5 @@
 {-# OPTIONS -fglasgow-exts #-}
+module Properties where
 
 import StackSet hiding (filter)
 import qualified StackSet as S (filter)