moo-tests.hs

import System.Exit
import Test.HUnit

import Tests.Internals.TestFundamentals (testFundamentals)
import Tests.Internals.TestControl (testControl)
import Tests.Internals.TestSelection (testSelection)
import Tests.Internals.TestCrossover (testCrossover)
import Tests.Internals.TestConstraints (testConstraints)
import Tests.Internals.TestMultiobjective (testMultiobjective)
import Tests.Problems.Rosenbrock (testRosenbrock)

allTests = TestList
  [ testFundamentals
  , testControl
  , testSelection
  , testCrossover
  , testConstraints
  , testRosenbrock
  , testMultiobjective
  ]

main = do
  result <- runTestTT allTests
  if (errors result + failures result) > 0
    then exitFailure
    else exitSuccess