support for testing

src/M.hs

@@ -1,2 +1,9 @@
 module M where
 
+add ::
+  Int
+  -> Int
+  -> Int
+add =
+  (+)
+

test/.ghci

@@ -0,0 +1,6 @@
+:set -i../src -isrc
+:m + Test.QuickCheck
+:l Main
+:set prompt "test>> "
+:set -Wall
+

test/.gitignore

@@ -0,0 +1,3 @@
+dist
+*.pix
+.hpc

test/Package-Test.cabal

@@ -0,0 +1,39 @@
+Name:               Haskell-Package-Test
+Version:            0.0.1
+Author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
+Maintainer:         Tony Morris
+Copyright:          Tony Morris
+Synopsis:           A skeleton for testing haskell packages
+Category:           Development
+Description:        A skeleton for testing haskell packages
+Homepage:           https://github.com/tonymorris/haskell-package
+Cabal-Version:      >= 1.6
+Build-Type:         Simple
+
+Source-Repository   head
+  Type:             git
+  Location:         [email protected]:tonymorris/haskell-package.git
+
+Flag                small_base
+  Description:      Choose the new, split-up base package.
+
+Executable          package-test
+  Hs-Source-Dirs:  
+                    ../src src
+
+  Main-Is: 
+                    Main.hs
+
+  Ghc-Options:
+                    -O2
+                    -Wall
+                    -fhpc
+                    -fwarn-tabs
+
+  Build-Depends:  
+                   base < 5 && >= 3
+                   , QuickCheck
+                   , test-framework
+                   , test-framework-quickcheck2
+                   , test-framework-hunit
+

test/package-test.tix

@@ -0,0 +1 @@
+Tix [ TixModule "Main" 2831685652 9 [1,1,1,1,1,1,1,1,1], TixModule "M.Tests" 2707333672 17 [100,1,100,100,100,100,1,1,1,1,1,1,1,0,0,0,0], TixModule "M" 1390508605 2 [100,100]]

test/src/M/Tests.hs

@@ -0,0 +1,29 @@
+module M.Tests
+  (
+    main
+  , test
+  ) where
+
+import Test.Framework
+import Test.Framework.Providers.QuickCheck2 (testProperty)
+import M
+
+main :: 
+  IO ()
+main = 
+  defaultMain [test]
+
+test :: 
+  Test
+test =
+    testGroup "M"
+      [
+        testProperty "Right Identity" prop_right_identity
+      ]
+
+prop_right_identity ::
+  Int
+  -> Bool
+prop_right_identity n =
+  n `add` 0 == n
+

test/src/Main.hs

@@ -0,0 +1,20 @@
+module Main where
+
+import qualified M.Tests
+import Test.Framework
+
+main ::
+  IO ()
+main = 
+  defaultMain tests 
+
+tests ::
+  [Test]
+tests =
+  [
+    testGroup "Tests"
+      [
+        M.Tests.test
+      ]
+  ]
+