github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-06 06:46:07 +03:00
Code Issues Projects Releases Wiki Activity

Add failing unit tests.

Browse Source
This commit is contained in:
Patrick Thomson 2019-09-29 16:57:11 -04:00
parent 4f67f76b8b
commit a686344145
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/Semantic/IO/Spec.hs
View File

@ -22,8 +22,8 @@ makeGitRepo dir = shelly . silently $ do
cd (fromString dir) cd (fromString dir)
let git = run_ "git" let git = run_ "git"
git ["init"] git ["init"]
run_ "touch" ["foo.py", "bar.rb"] run_ "touch" ["日本語.py", "bar.rb"]
git ["add", "foo.py", "bar.rb"] git ["add", "日本語.py", "bar.rb"]
git ["config", "user.name", "'Test'"] git ["config", "user.name", "'Test'"]
git ["config", "user.email", "'test@test.test'"] git ["config", "user.email", "'test@test.test'"]
git ["commit", "-am", "'test commit'"] git ["commit", "-am", "'test commit'"]
@ -47,7 +47,7 @@ spec = do
makeGitRepo dir makeGitRepo dir
readBlobsFromGitRepoPath (Path.absDir dir </> Path.relDir ".git") (Git.OID "HEAD") [] [] readBlobsFromGitRepoPath (Path.absDir dir </> Path.relDir ".git") (Git.OID "HEAD") [] []
let files = sortOn fileLanguage (blobFile <$> blobs) let files = sortOn fileLanguage (blobFile <$> blobs)
files `shouldBe` [ File "foo.py" Python files `shouldBe` [ File "日本語.py" Python
, File "bar.rb" Ruby , File "bar.rb" Ruby
] ]
@ -56,16 +56,16 @@ spec = do
blobs <- liftIO . withSystemTempDirectory "semantic-temp-git-repo" $ \dir -> do blobs <- liftIO . withSystemTempDirectory "semantic-temp-git-repo" $ \dir -> do
let pdir = Path.absDir dir let pdir = Path.absDir dir
makeGitRepo dir makeGitRepo dir
readBlobsFromGitRepoPath (pdir </> Path.relDir ".git") (Git.OID "HEAD") [] [Path.relFile "foo.py"] readBlobsFromGitRepoPath (pdir </> Path.relDir ".git") (Git.OID "HEAD") [] [Path.relFile "日本語.py"]
let files = sortOn fileLanguage (blobFile <$> blobs) let files = sortOn fileLanguage (blobFile <$> blobs)
files `shouldBe` [ File "foo.py" Python ] files `shouldBe` [ File "日本語.py" Python ]
when hasGit . it "should read from a git directory with --exclude" $ do when hasGit . it "should read from a git directory with --exclude" $ do
-- This temporary directory will be cleaned after use. -- This temporary directory will be cleaned after use.
blobs <- liftIO . withSystemTempDirectory "semantic-temp-git-repo" $ \dir -> do blobs <- liftIO . withSystemTempDirectory "semantic-temp-git-repo" $ \dir -> do
makeGitRepo dir makeGitRepo dir
readBlobsFromGitRepoPath (Path.absDir dir </> Path.relDir ".git") (Git.OID "HEAD") [Path.relFile "foo.py"] [] readBlobsFromGitRepoPath (Path.absDir dir </> Path.relDir ".git") (Git.OID "HEAD") [Path.relFile "日本語.py"] []
let files = sortOn fileLanguage (blobFile <$> blobs) let files = sortOn fileLanguage (blobFile <$> blobs)
files `shouldBe` [ File "bar.rb" Ruby ] files `shouldBe` [ File "bar.rb" Ruby ]