@@ -7,7 +7,7 @@ import Control.Concurrent (threadDelay)
77import Control.Monad (replicateM)
88import Data.Foldable (forM_)
99import Data.List (sort)
10−import Data.Maybe (fromJust, isNothing)
10+import Data.Maybe (fromJust)
1111import Test.Hspec
1212
1313import Streamly
@@ -699,16 +699,18 @@ streamOperations (stream, list, len) = do
699699 it "maximum empty" $ A.maximum stream `shouldReturn` Nothing
700700 it "minimum empty" $ A.minimum stream `shouldReturn` Nothing
701701 it "null empty" $ A.null stream `shouldReturn` True
702− it "tail empty" $ A.tail stream >>=
703− \t -> if isNothing t then return () else expectationFailure "failed"
702+ it "tail empty" $ (A.tail stream >>= return . maybe True (const False))
703+ `shouldReturn` True
704704 else do
705705 it "head nonEmpty" $ A.head stream `shouldReturn` Just (head list)
706706 it "last nonEmpty" $ A.last stream `shouldReturn` Just (last list)
707− it "maximum nonEmpty" $ A.maximum stream `shouldReturn` Just (maximum list)
708− it "minimum nonEmpty" $ A.minimum stream `shouldReturn` Just (minimum list)
707+ it "maximum nonEmpty" $ A.maximum stream
708+ `shouldReturn` Just (maximum list)
709+ it "minimum nonEmpty" $ A.minimum stream
710+ `shouldReturn` Just (minimum list)
709711 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
712714
713715 where
714716 -- XXX run on empty stream as well