convert-units-0.1: test/Data/Units/NonSI/FrequencySpec.hs

module Data.Units.NonSI.FrequencySpec where

import Test.Hspec

import Data.Units.SI
import Data.Units.NonSI.Frequency

import Data.Units.Core.ConvertProp

spec :: Spec
spec = do
  describe "Frequency" $ do
    fromToAssert @Double (69 :: MidiPitch Double) (Hertz 440)
    it "decomposePitchCents, detune < 1" $ do

      decomposePitchCents (123.5 :: MidiPitch Double) `shouldBe` (123, 0.5)