Use new example repository for integration testing

.gitignore

@@ -8,6 +8,8 @@ xcuserdata
 profiles
 tags
 
+tmp/
+
 vendor/icu/tools
 vendor/icu/lib
 vendor/icu/layoutex

test/SemanticDiffSpec.hs

@@ -21,31 +21,25 @@ spec :: Spec
 spec = parallel $ do
   describe "fetchDiffs" $ do
     it "generates diff summaries for two shas" $ do
-      (errors, summaries) <- getSummaryOutput $ args "test/fixtures/git/examples/ruby.git" "03d0b4db2c6f47c1bb440b9d886a77671e8db340" "5cf7a3421535e139c9a9e47f823db037df3248f6" ["methods.rb"] Renderer.Summary
+      (errors, summaries) <- getOutput summaryText $ args "test/fixtures/git/examples/all-languages.git" "dfac8fd681b0749af137aebf3203e77a06fbafc2" "2e4144eb8c44f007463ec34cb66353f0041161fe" ["methods.rb"] Renderer.Summary
       errors `shouldBe` Just (fromList [])
       summaries `shouldBe` Just (fromList [("methods.rb", ["Added the 'foo()' method"])])
 
     it "generates toc summaries for two shas" $ do
-      (errors, summaries) <- getTOCOutput $ args "test/fixtures/git/examples/ruby.git" "03d0b4db2c6f47c1bb440b9d886a77671e8db340" "5cf7a3421535e139c9a9e47f823db037df3248f6" ["methods.rb"] Renderer.TOC
+      (errors, summaries) <- getOutput termText $ args "test/fixtures/git/examples/all-languages.git" "dfac8fd681b0749af137aebf3203e77a06fbafc2" "2e4144eb8c44f007463ec34cb66353f0041161fe" ["methods.rb"] Renderer.TOC
       errors `shouldBe` Just (fromList [])
       summaries `shouldBe` Just (fromList [("methods.rb", ["foo"])])
 
     xit "is ok with bad shas" $ do
-      (errors, summaries) <- getSummaryOutput $ args "test/fixtures/git/examples/ruby.git" "dead" "beef" ["methods.rb"] Renderer.Summary
+      (errors, summaries) <- getOutput summaryText $ args "test/fixtures/git/examples/all-languages.git" "dead" "beef" ["methods.rb"] Renderer.Summary
       errors `shouldBe` Just (fromList [])
       summaries `shouldBe` Just (fromList [("methods.rb", ["Added the 'foo()' method"])])
 
-getSummaryOutput :: Arguments -> IO (Maybe (Map Text Value), Maybe (Map Text [Text]))
-getSummaryOutput arguments = do
+getOutput :: (Object -> Text) -> Arguments -> IO (Maybe (Map Text Value), Maybe (Map Text [Text]))
+getOutput f arguments = do
   diffs <- fetchDiffs arguments
   let json = fromJust . decode . E.encodeUtf8 $ T.fromChunks [concatOutputs diffs]
-  pure (errors json, summaries summaryText json)
-
-getTOCOutput :: Arguments -> IO (Maybe (Map Text Value), Maybe (Map Text [Text]))
-getTOCOutput arguments = do
-  diffs <- fetchDiffs arguments
-  let json = fromJust . decode . E.encodeUtf8 $ T.fromChunks [concatOutputs diffs]
-  pure (errors json, summaries termText json)
+  pure (errors json, summaries f json)
 
 -- Diff Summaries payloads look like this:
 -- {
@@ -61,11 +55,11 @@ getTOCOutput arguments = do
 -- }
 summaries :: (Object -> Text) -> Object -> Maybe (Map Text [Text])
 summaries f = parseMaybe $ \o -> do
-              changes <- o .: "changes" :: Parser (Map Text (V.Vector Object))
-              xs <- for (toList changes) $ \(path, s) -> do
-                let ys = fmap f s
-                pure (path, V.toList ys)
-              pure $ fromList xs
+                changes <- o .: "changes" :: Parser (Map Text (V.Vector Object))
+                xs <- for (toList changes) $ \(path, s) -> do
+                  let ys = fmap f s
+                  pure (path, V.toList ys)
+                pure $ fromList xs
 
 summaryText :: Object -> Text
 summaryText o = fromMaybe (panic "key 'summary' not found") $
@@ -75,8 +69,5 @@ termText :: Object -> Text
 termText o = fromMaybe (panic "key 'term' not found") $
   parseMaybe (.: "term") o
 
-textForKey key o = fromMaybe (panic "key '" <> key <> "' not found") $
-  parseMaybe (.: key) o
-
 errors :: Object -> Maybe (Map Text Value)
 errors = parseMaybe (.: "errors")

test/fixtures/git/examples/all-languages.git/HEAD

@@ -0,0 +1 @@
+ref: refs/heads/master

test/fixtures/git/examples/all-languages.git/config

@@ -0,0 +1,6 @@
+[core]
+	repositoryformatversion = 0
+	filemode = true
+	bare = true
+	ignorecase = true
+	precomposeunicode = true

test/fixtures/git/examples/all-languages.git/info/refs

@@ -0,0 +1 @@
+2e4144eb8c44f007463ec34cb66353f0041161fe	refs/heads/master

test/fixtures/git/examples/all-languages.git/objects/info/packs

@@ -0,0 +1,2 @@
+P pack-5780c6ea9558e3f68939b63e4f2365eb390e658d.pack
+

test/fixtures/git/examples/all-languages.git/packed-refs

@@ -0,0 +1,2 @@
+# pack-refs with: peeled fully-peeled 
+2e4144eb8c44f007463ec34cb66353f0041161fe refs/heads/master