module StreamSpec where

import Prelude (($))
import qualified Prelude

spec :: Spec
spec = do
    describe "Comparing list function to" $ do
        qit "yieldMany" $
            \(mono :: Seq Int) ->
                yieldMany mono
                    `checkProducer` otoList mono
