From 928087e1f5341df9a7fe228afe20c3a95efdc4a6 Mon Sep 17 00:00:00 2001 From: joshvera Date: Mon, 4 Apr 2016 17:38:41 -0400 Subject: [PATCH] :fire: --- test/CorpusSpec.hs | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/test/CorpusSpec.hs b/test/CorpusSpec.hs index f201ce097..2ddc22a61 100644 --- a/test/CorpusSpec.hs +++ b/test/CorpusSpec.hs @@ -44,14 +44,7 @@ spec = parallel $ do correctTests paths@(_, Nothing, Nothing, Nothing) = testsForPaths paths correctTests paths = List.filter (\(_, _, _, output) -> isJust output) $ testsForPaths paths testsForPaths :: (Both FilePath, Maybe FilePath, Maybe FilePath, Maybe FilePath) -> [(String, Renderer a, Both FilePath, Maybe FilePath)] - testsForPaths (paths, json, patch, split) = [ ("json", testJSON, paths, json), ("patch", testPatch, paths, patch), ("split", testSplit, paths, split) ] - testPatch :: Renderer a - testPatch diff sources = P.patch diff sources - testSplit :: Renderer a - testSplit diff sources = Split.split diff sources - testJSON :: Renderer a - testJSON diff sources = J.json diff sources - + testsForPaths (paths, json, patch, split) = [ ("json", J.json, paths, json), ("patch", P.patch, paths, patch), ("split", Split.split, paths, split) ] -- | Return all the examples from the given directory. Examples are expected to -- | have the form "foo.A.js", "foo.B.js", "foo.patch.js". Diffs are not