git.iko.soy/streamly
on master help sign in
Plug in common array test code cleanly in Data.SmallArray
6f65e4aadithyaov
test/Streamly/Test/Data/SmallArray.hs+17−2
compare with master
unifiedsplit
@@ -8,5 +8,20 @@
8
8
9module Streamly.Test.Data.SmallArray where
9module Streamly.Test.Data.SmallArray where
10
10
11−#define TEST_SMALL_ARRAY
11+#include "Streamly/Test/Data/Array/CommonImports.hs"
12+
13+import qualified Streamly.Internal.Data.SmallArray as A
14+type Array = A.SmallArray
15+
16+moduleName :: String
17+moduleName = "Data.SmallArray"
18+
12−#include "Streamly/Test/Common/Array.hs"
19+#include "Streamly/Test/Data/Array/Common.hs"
20+
21+main :: IO ()
22+main =
23+ hspec $
24+ H.parallel $
25+ modifyMaxSuccess (const maxTestCount) $ do
26+ describe moduleName $ do
27+ commonMain