7e9f2a5 · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Print more information in failing tests

7e9f2a5Harendra Kumar6 years ago

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

compare with master

unifiedsplit

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

19import Test.Hspec as H

21import Streamly.Prelude (SerialT)

22+import Streamly.Test.Common (listEquals)

23+

22import qualified Streamly.Prelude as S

24import qualified Streamly.Prelude as S

23#ifdef TEST_SMALL_ARRAY

25#ifdef TEST_SMALL_ARRAY

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

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

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

131 monadicIO $ do

133 monadicIO $ do

132 let arr = A.fromListN n list

134 let arr = A.fromListN n list

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

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

134− assert (xs == take n list)

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

135

137

136#ifndef TEST_SMALL_ARRAY

138#ifndef TEST_SMALL_ARRAY

137testFromStreamToStream :: Property

139testFromStreamToStream :: Property

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

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

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

43 "stream " <> show stream

44 <> "\nlist " <> show list

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

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

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

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

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

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

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

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

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

49 (counterexample $

51 (counterexample $

50 "stream " <> show stream

52 "stream " <> show stream

51 <> "\nlist " <> show list

53 <> "\nlist " <> show list

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

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

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

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

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

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

54 )

58 )