git.iko.soy/streamly
on master help sign in
Fix inspection testing
dc68afdHarendra Kumar
benchmark/Streamly/Benchmark/Prelude/WSerial.hs+8−1
compare with master
unifiedsplit
@@ -29,6 +29,13 @@ import Streamly.Benchmark.Prelude
29
29
30import Gauge
30import Gauge
31
31
32+#ifdef INSPECTION
33+import GHC.Types (SPEC(..))
34+import Test.Inspection
35+
36+import qualified Streamly.Internal.Data.Stream.StreamD as D
37+#endif
38+
32moduleName :: String
39moduleName :: String
33moduleName = "Prelude.WSerial"
40moduleName = "Prelude.WSerial"
34
41
@@ -100,7 +107,7 @@ concatMapWithWSerial = concatStreamsWith wSerial
100
107
101#ifdef INSPECTION
108#ifdef INSPECTION
102inspect $ hasNoTypeClasses 'concatMapWithWSerial
109inspect $ hasNoTypeClasses 'concatMapWithWSerial
103−inspect $ 'concatMapWithSerial `hasNoType` ''SPEC
110+inspect $ 'concatMapWithWSerial `hasNoType` ''SPEC
104#endif
111#endif
105
112
106o_1_space_concat :: Int -> [Benchmark]
113o_1_space_concat :: Int -> [Benchmark]
benchmark/Streamly/Benchmark/Prelude/ZipSerial.hs+7
@@ -29,6 +29,13 @@ import Streamly.Benchmark.Prelude
29
29
30import Gauge
30import Gauge
31
31
32+#ifdef INSPECTION
33+import GHC.Types (SPEC(..))
34+import Test.Inspection
35+
36+import qualified Streamly.Internal.Data.Stream.StreamD as D
37+#endif
38+
32moduleName :: String
39moduleName :: String
33moduleName = "Prelude.ZipSerial"
40moduleName = "Prelude.ZipSerial"
34
41
benchmark/streamly-benchmarks.cabal+1
@@ -117,6 +117,7 @@ common bench-depends
117 if flag(inspection)
117 if flag(inspection)
118 build-depends: template-haskell >= 2.14 && < 2.17
118 build-depends: template-haskell >= 2.14 && < 2.17
119 , inspection-testing >= 0.4 && < 0.5
119 , inspection-testing >= 0.4 && < 0.5
120+ , ghc-prim >= 0.2 && < 0.7
120 -- Array uses a Storable constraint in dev build making several inspection
121 -- Array uses a Storable constraint in dev build making several inspection
121 -- tests fail
122 -- tests fail
122 if flag(dev) && flag(inspection)
123 if flag(dev) && flag(inspection)