7e9f2a5 · streamly · git.iko.soy

git.iko.soy/streamly

Print more information in failing tests

commit7e9f2a5a5c33a4ea441e51a3b117cb305eca0027 authorHarendra Kumar <harendra@composewell.com> dateSun 24 Jan 2021, 02:25 (6 years ago) parentc30184d

2 files changed+7−1

unifiedsplit

test/Streamly/Test/Common/Array.hs+3−1

@@ -19,6 +19,8 @@ import Test.QuickCheck.Monadic (monadicIO, assert, run)

1919import Test.Hspec as H

2020

2121import Streamly.Prelude (SerialT)

22+import Streamly.Test.Common (listEquals)

23+

2224import qualified Streamly.Prelude as S

2325#ifdef TEST_SMALL_ARRAY

2426import qualified Streamly.Internal.Data.SmallArray as A

@@ -131,7 +133,7 @@ testFromListN =

131133 monadicIO $ do

132134 let arr = A.fromListN n list

133135 xs <- run $ S.toList $ (S.unfold A.read) arr

134− assert (xs == take n list)

136+ listEquals (==) xs (take n list)

135137

136138#ifndef TEST_SMALL_ARRAY

137139testFromStreamToStream :: Property

test/lib/Streamly/Test/Common.hs+4

@@ -42,6 +42,8 @@ listEquals eq stream list = do

4242 when (not $ stream `eq` list) $ liftIO $ putStrLn $

4343 "stream " <> show stream

4444 <> "\nlist " <> show list

45+ <> "\nstream length " <> show (length stream)

46+ <> "\nlist length " <> show (length list)

4547 <> "\nstream \\\\ list " <> show (stream \\ list)

4648 <> "\nlist \\\\ stream " <> show (list \\ stream)

4749 when (not $ stream `eq` list) $

@@ -49,6 +51,8 @@ listEquals eq stream list = do

4951 (counterexample $

5052 "stream " <> show stream

5153 <> "\nlist " <> show list

54+ <> "\nstream length " <> show (length stream)

55+ <> "\nlist length " <> show (length list)

5256 <> "\nstream \\\\ list " <> show (stream \\ list)

5357 <> "\nlist \\\\ stream " <> show (list \\ stream)

5458 )