thoughtpolice / infinity fork watch download tarball
public
Description: an extensible, hot-swapping irc bot written in haskell
Homepage: http://thoughtpolice.stringsandints.com
Clone URL: git://github.com/thoughtpolice/infinity.git 
added support to run testsuite from Setup.hs
small annotations to a few files, also now moved
the test properties to their own module under the
Tests/ directory, and 'runghc Setup.hs test' is now
the way to run the test suite.
Austin Seipp (author)
Tue Jan 01 23:35:41 -0800 2008
commit  203adb9d634e2392c6dd40f4bd271240d3cbd602
tree    e33bfd75d282b1cacd38a6115443a08a96bc6b3c
parent  0f9dfa67573cc13dd7738b098e5a8dc6293f8a29
0
Infinity/Plugins.hs 
...
 
1
2
3
 
...
1
2
3
4
 
0
@@ -1,3 +1,4 @@
0
+{-# LANGUAGE TypeFamilies #-}
0
 module Infinity.Plugins where
0
 
0
 -- | This class describes all plugins, and all plugins
0
Setup.hs 
...
2
3
4
 
5
6
7
8
9
10
11
 
12
13
 
14
15
16
17
 
18
19
20
 
...
2
3
4
5
6
7
8
9
10
11
 
12
13
14
15
16
17
18
19
20
21
22
23
 
0
@@ -2,19 +2,22 @@
0
 import Distribution.Simple
0
 import qualified Control.Exception as Ex
0
 import System.Directory
0
+import qualified Tests.Properties as P
0
 import Control.Monad
0
 import System.Info
0
 import System.Exit
0
 import List
0
 
0
 bin  = "infinity"                                      -- files to remove
0
-dirs = ["./","tests/","Infinity/","Infinity/Plugins/"] -- directories to clean
0
+dirs = ["./","Tests/","Infinity/","Infinity/Plugins/"] -- directories to clean
0
 
0
 main = defaultMainWithHooks $ defaultUserHooks {
0
+      runTests  = tests,
0
       postBuild = copyInfinity,
0
       postClean = cleanInfinity
0
 }
0
 
0
+tests _ _ _ _ = P.main
0
 
0
 copyInfinity _ _ _ _ = do
0
   copyFile ("dist/build/infinity/"++bin) bin

Comments

    No one has commented yet.