linear-1.23: tests/Test.hs

{-# LANGUAGE CPP #-}
module Main (main) where

import Test.Framework (defaultMain, testGroup, Test)
import Test.Framework.Providers.HUnit

import qualified Prop.Quaternion
import qualified Unit.Binary
import qualified Unit.Plucker
import qualified Unit.V

tests :: [Test]
tests =
  [ testGroup "Property tests"
    [ testGroup "Quaternion" Prop.Quaternion.tests
    ]
  , testGroup "Unit tests"
    [ testGroup "Binary" $ hUnitTestToTests Unit.Binary.tests
    , testGroup "Plucker" $ hUnitTestToTests Unit.Plucker.tests
    , testGroup "V" $ hUnitTestToTests Unit.V.tests
    ]
  ]

main :: IO ()
main = defaultMain tests