MatchLineSpec.hs

module Test.MatchLineSpec
  ( spec
  )
where

import           Cut.Analyze
import           Test.Hspec

spec :: Spec
spec = describe "Match a line" $ do
  it "should satisfy equality"
    $          getStart "[silencedetect @ 0xad44e0] silence_start: -0.012381"
    `shouldBe` (-0.012381)

  it "Should deal with rng output"
    $ getStart "[silencedetect @ 0x10b0280] silence_start: 430.41'peed= 858x"
    `shouldBe` 430.41
  it "Should match the end line as well"
    $          getEnd
                 "[silencedetect @ 0x23a94e0] silence_end: 148.515 | silence_duration: 0.825079"
    `shouldBe` 148.515
  it "Should match the duration"
    $          getDuration
                 "[silencedetect @ 0x23a94e0] silence_end: 148.515 | silence_duration: 0.825079"
    `shouldBe` 0.825079

  it "Should deal with quotes on end as well"
    $          getDuration
                 "[silencedetect @ 0x1900280] silence_end: 1249.91 | silence_duration: 15.7841'"
    `shouldBe` 15.7841

  it "Shouldn't filter this line"
    $          takeOnlyLines
                 "[silencedetect @ 0xcf3280] silence_end: 415.498 | silence_duration: 69.6312'"
    `shouldBe` True