testTrim :: (Array U DIM1 Double, Array U DIM1 Double)
         -> Assertion
testTrim (sig, expected) =
    expected @=~? (computeS . trim . delay $ sig)
testTrim :: (Array U DIM1 Double, Array U DIM1 Double)
         -> Assertion
testTrim (sig, expected) =
    expected @=~? (computeS . trim . delay $ sig)
testTrim (sig, expected) =
    expected @=~? (computeS . trim . delay $ sig)