Tests.hs

-----------------------------------------------------------------------------
-- Copyright 2013, Open Universiteit Nederland. This file is distributed
-- under the terms of the GNU General Public License. For more information,
-- see the file "LICENSE.txt", which is included in the distribution.
-----------------------------------------------------------------------------
-- |
-- Maintainer  :  bastiaan.heeren@ou.nl
-- Stability   :  provisional
-- Portability :  portable (depends on ghc)
--
-----------------------------------------------------------------------------
module Domain.Math.Polynomial.Tests (tests) where

import Control.Monad
import Domain.Math.Data.Polynomial
import Ideas.Common.Algebra.Field
import Ideas.Common.Algebra.FieldLaws
import Ideas.Common.Algebra.Law
import Ideas.Common.Utils.TestSuite

tests :: TestSuite
tests = suite "Polynomial is a commutative ring" $
   forM_ (commutativeRingLaws :: [Law (SafeNum (Polynomial Int))]) $ \p ->
      addProperty (show p) p