CelestialObjectTest.hs

module Data.Astro.CelestialObjectTest
(
  tests
)

where

  
import Test.Framework (testGroup)
import Test.Framework.Providers.HUnit
import Test.Framework.Providers.QuickCheck2 (testProperty)
import Test.HUnit
import Test.HUnit.Approx
import Test.QuickCheck

import Data.Astro.TypesTest (testDecimalDegrees)

import Data.Astro.Types (DecimalDegrees(..), DecimalHours(..))
import Data.Astro.Coordinate (EquatorialCoordinates1(..), EclipticCoordinates(..))
import Data.Astro.CelestialObject

tests = [testGroup "angle" [
            testDecimalDegrees "Equatorial: Orionis and Canis Majoris"
                0.000000001
                (DD 23.673849422164192)
                (angleEquatorial (EC1 (DD (-8.225)) (DH 5.225472222222222)) (EC1 (DD (-16.68638888888889)) (DH 6.737055555555555)))
            , testDecimalDegrees "Ecliptic: Orionis and Canis Majoris"
                0.000000001
                (DD 23.673849422164192)
                (angleEcliptic (EcC (DD (-31.12290508933333)) (DD 76.53651836408739)) (EcC (DD (-39.597832824969665)) (DD 103.79168740150627)))
            ]
        ]