github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 18:23:44 +03:00
Code Issues Projects Releases Wiki Activity

🔥 redundant imports and out of data field functions

Browse Source
This commit is contained in:
Rick Winfrey 2017-03-01 16:57:32 -08:00
parent b0c6c9f8fc
commit 42b96851fa
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/GitmonClient.hs
View File

@ -15,7 +15,6 @@ import Prologue hiding (toStrict)
import System.Clock
import System.Directory (getCurrentDirectory)
import System.Environment
import System.IO
data ProcIO = ProcIO {
read_bytes :: Integer

12
test/GitmonClientSpec.hs
View File

@ -2,7 +2,6 @@ module GitmonClientSpec where
import Data.Aeson
import Data.Aeson.Types
import Data.ByteString.Lazy (fromChunks)
import Data.ByteString.Char8 (split, ByteString)
import Data.Foldable
import Data.Maybe (fromJust)
@ -14,7 +13,7 @@ import GitmonClient
import Network.Socket hiding (recv)
import Network.Socket.ByteString
import Prelude hiding (lookup)
import Prologue (liftIO, Map)
import Prologue (liftIO)
import System.Environment (setEnv)
import Test.Hspec hiding (shouldBe, shouldSatisfy)
import Test.Hspec.Expectations.Pretty
@ -23,8 +22,9 @@ import Data.Map.Lazy (lookup, fromList)
spec :: Spec
spec = parallel $ do
describe "gitmon" $ do
let wd = "test/fixtures/git/examples/all-languages.git"
it "receives commands in order" $ do
withRepository lgFactory "test/fixtures/git/examples/all-languages.git" $ do
withRepository lgFactory wd $ do
(client, server) <- liftIO $ socketPair AF_UNIX Stream defaultProtocol
object <- parseObjOid (pack "dfac8fd681b0749af137aebf3203e77a06fbafc2")
@ -58,10 +58,10 @@ spec = parallel $ do
liftIO $ shouldBe (commitOid commit) object
liftIO $ shouldBe (either id gitDir updateData) wd
liftIO $ shouldBe (either id program updateData) "cat-file"
liftIO $ shouldBe (either Just realIp updateData) (Just "127.0.0.1")
liftIO $ shouldBe (either Just repoId updateData) (Just "2")
liftIO $ shouldBe (either Just realIP updateData) (Just "127.0.0.1")
liftIO $ shouldBe (either Just repoID updateData) (Just "2")
liftIO $ shouldBe (either Just repoName updateData) (Just "examples/all-languages")
liftIO $ shouldBe (either Just userId updateData) (Just "1")
liftIO $ shouldBe (either Just userID updateData) (Just "1")
liftIO $ shouldBe (either id via updateData) "semantic-diff"
liftIO $ shouldSatisfy (either (const (-1)) cpu finishData) (>= 0)