Plug in common array test code cleanly in Data.SmallArray
commit6f65e4af2ebc23f73588d164d721020e78fecef4
authoradithyaov <adithya@composewell.com>
dateSat 27 Nov 2021, 02:51 (5 years ago)
parent420ee10
test/Streamly/Test/Data/SmallArray.hs+17−2
@@ -8,5 +8,20 @@
88
99module Streamly.Test.Data.SmallArray where
1010
11−#define TEST_SMALL_ARRAY
12−#include "Streamly/Test/Common/Array.hs"
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+
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