convert-units-0: test/Data/Units/NonStd/TemperatureSpec.hs

module Data.Units.NonStd.TemperatureSpec where

import Test.Hspec

import Data.Units.NonStd.Temperature
import Data.Units.SI

import Data.Units.Base.ConvertProp

spec :: Spec
spec = do
  describe "Temperature" $ do
    toFromSpec @Celsius    @Double
    toFromSpec @Fahrenheit @Double
    toFromSpec @Kelvin     @Double
    fromToAssert @Double (Celsius 0)    (Kelvin 273.15)
    fromToAssert @Double (Fahrenheit 32) (Celsius 0)
    fromToAssert @Double (Fahrenheit 212) (Kelvin 373.15)