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

Fix up these tests

Browse Source
This commit is contained in:
Timothy Clem 2018-08-15 14:01:58 -07:00
parent b39721ec4f
commit 600942dcf1
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
test/Reprinting/Spec.hs
View File

@ -11,6 +11,7 @@ import Data.Algebra
import Reprinting.Tokenize
import Reprinting.Pipeline
import Data.Sum
import Data.Foldable
import Semantic.IO
import Data.Blob
@ -26,29 +27,29 @@ spec = describe "reprinting" $ do
describe "tokenization" $ do
it "should pass over a pristine tree" $ do
let tagged = mark Pristine tree
let tagged = mark Unmodified tree
let toks = tokenizing src tagged
toks `shouldBe` [Chunk src]
it "should emit control tokens but only 1 chunk for a wholly-modified tree" $ do
let toks = tokenizing src (mark Modified tree)
forM_ @[] [List, Associative] $ \t -> do
toks `shouldSatisfy` (elem (TControl (Enter t)))
toks `shouldSatisfy` (elem (TControl (Exit t)))
let toks = tokenizing src (mark Refactored tree)
for_ @[] [List, Associative] $ \t -> do
toks `shouldSatisfy` elem (TControl (Enter t))
toks `shouldSatisfy` elem (TControl (Exit t))
describe "pipeline" $ do
it "should roundtrip exactly over a pristine tree" $ do
let tagged = mark Pristine tree
let tagged = mark Unmodified tree
let printed = runReprinter (Proxy @'Language.JSON) src tagged
printed `shouldBe` Right src
it "should roundtrip exactly over a wholly-modified tree" $ do
let tagged = mark Modified tree
let tagged = mark Refactored tree
let printed = runReprinter (Proxy @'Language.JSON) src tagged
printed `shouldBe` Right src
it "should be able to parse the output of a refactor" $ do
let tagged = increaseNumbers (mark Modified tree)
let tagged = increaseNumbers (mark Refactored tree)
let (Right printed) = runReprinter (Proxy @'Language.JSON) src tagged
tree' <- runTask (parse jsonParser (Blob printed path Language.JSON))
length tree `shouldSatisfy` (/= 0)
length tree' `shouldSatisfy` (/= 0)