hspec-discover 0.0.0 → 0.0.1

raw patch · 2 files changed

+7/−2 lines, 2 filesdep ~hspec

Dependency ranges changed: hspec

Files

• hspec-discover.cabal +2/−1
• src/Run.hs +5/−1

@@ -1,5 +1,5 @@ name:             hspec-discover-version:          0.0.0+version:          0.0.1 license:          MIT license-file:     LICENSE copyright:        (c) 2012 Simon Hengel@@ -30,6 +30,7 @@       base >= 4 && <= 5     , filepath     , directory+    , hspec == 1.1.*  test-suite spec   type:

@@ -131,12 +131,16 @@       nestedSpecs <- forM dirs $ \d -> do         let dir = base </> d         SpecNode d False <$> (getFilesAndDirectories dir >>= go dir)-      return $ combineSpecs (specsFromFiles files ++ nestedSpecs)+      (return . filterSpecs . combineSpecs) (specsFromFiles files ++ nestedSpecs)       where         specsFromFiles = map (\x -> SpecNode (stripSuffix x) True []) . filter (isSuffixOf suffix)           where             suffix = "Spec.hs"             stripSuffix = reverse . drop (length suffix) . reverse++        -- remove empty leafs+        filterSpecs :: [SpecNode] -> [SpecNode]+        filterSpecs = filter (\x -> specNodeInhabited x || (not . null . specNodeChildren) x)          -- sort specs, and merge nodes with the same name         combineSpecs :: [SpecNode] -> [SpecNode]