github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-26 08:25:19 +03:00
Code Issues Projects Releases Wiki Activity

Shorter names

Browse Source
This commit is contained in:
Matt Diephouse 2016-02-17 15:59:16 -05:00
parent bf12a2a13e
commit 5c1e1ce597
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/CorpusSpec.hs
View File

@ -37,11 +37,11 @@ spec = do
-- | required as the test may be verifying that the inputs don't crash.
examples :: FilePath -> IO [(FilePath, FilePath, Maybe FilePath)]
examples directory = do
aDict <- toDict <$> globFor "*.A.*"
bDict <- toDict <$> globFor "*.B.*"
diffDict <- toDict <$> globFor "*.diff.*"
let keys = Set.unions $ keysSet <$> [aDict, bDict]
return $ (\name -> (aDict ! name, bDict ! name, Map.lookup name diffDict)) <$> sort (Set.toList keys)
as <- toDict <$> globFor "*.A.*"
bs <- toDict <$> globFor "*.B.*"
diffs <- toDict <$> globFor "*.diff.*"
let keys = Set.unions $ keysSet <$> [as, bs]
return $ (\name -> (as ! name, bs ! name, Map.lookup name diffs)) <$> sort (Set.toList keys)
where
globFor :: String -> IO [FilePath]