92e8f2b · streamly · git.iko.soy

7import Control.Monad (replicateM)

8import Data.Foldable (forM_)

9import Data.List (sort)

10−import Data.Maybe (fromJust, isNothing)

10+import Data.Maybe (fromJust)

11import Test.Hspec

12

13import Streamly

699 it "maximum empty" $ A.maximum stream `shouldReturn` Nothing

700 it "minimum empty" $ A.minimum stream `shouldReturn` Nothing

701 it "null empty" $ A.null stream `shouldReturn` True

702− it "tail empty" $ A.tail stream >>=

702+ it "tail empty" $ (A.tail stream >>= return . maybe True (const False))

703− \t -> if isNothing t then return () else expectationFailure "failed"

703+ `shouldReturn` True

704 else do

705 it "head nonEmpty" $ A.head stream `shouldReturn` Just (head list)

706 it "last nonEmpty" $ A.last stream `shouldReturn` Just (last list)

707− it "maximum nonEmpty" $ A.maximum stream `shouldReturn` Just (maximum list)

707+ it "maximum nonEmpty" $ A.maximum stream

708+ `shouldReturn` Just (maximum list)

708− it "minimum nonEmpty" $ A.minimum stream `shouldReturn` Just (minimum list)

709+ it "minimum nonEmpty" $ A.minimum stream

710+ `shouldReturn` Just (minimum list)

709 it "null nonEmpty" $ A.null stream `shouldReturn` False

711 it "null nonEmpty" $ A.null stream `shouldReturn` False

710− it "tail nonEmpty" $

711− (A.tail stream >>= A.toList . fromJust) `shouldReturn` tail list

712+ it "tail nonEmpty" $ (A.tail stream >>= A.toList . fromJust)

713+ `shouldReturn` tail list

712

714

713 where

715 where

714 -- XXX run on empty stream as well

716 -- XXX run on empty stream as well