Tests/Properties.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE TypeFamilies #-} module Infinity.Plugins where -- | This class describes all plugins, and all plugins Infinity/Plugins.hs @@ -2,19 +2,22 @@ import Distribution.Simple import qualified Control.Exception as Ex import System.Directory +import qualified Tests.Properties as P import Control.Monad import System.Info import System.Exit import List bin = "infinity" -- files to remove -dirs = ["./","tests/","Infinity/","Infinity/Plugins/"] -- directories to clean +dirs = ["./","Tests/","Infinity/","Infinity/Plugins/"] -- directories to clean main = defaultMainWithHooks $ defaultUserHooks { + runTests = tests, postBuild = copyInfinity, postClean = cleanInfinity } +tests _ _ _ _ = P.main copyInfinity _ _ _ _ = do copyFile ("dist/build/infinity/"++bin) bin Setup.hs tests/Properties.hs 0f9dfa67573cc13dd7738b098e5a8dc6293f8a29 Austin Seipp austin@youareinferior.net http://github.com/thoughtpolice/infinity/commit/203adb9d634e2392c6dd40f4bd271240d3cbd602 203adb9d634e2392c6dd40f4bd271240d3cbd602 2008-01-01T23:35:41-08:00 2008-01-01T23:35:41-08:00 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. e33bfd75d282b1cacd38a6115443a08a96bc6b3c Austin Seipp austin@youareinferior.net