github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 11:02:26 +03:00
Code Issues Projects Releases Wiki Activity

Fix up tests

Browse Source
This commit is contained in:
Timothy Clem 2019-03-25 13:14:04 -07:00
parent 23920a04cd
commit 8b9bc575b6
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Data/Functor/Listable.hs
View File

@ -568,7 +568,7 @@ instance Listable Span where
tiers = cons2 Span tiers = cons2 Span
instance Listable Blob where instance Listable Blob where
tiers = cons3 Blob tiers = cons4 Blob
instance Listable BlobPair where instance Listable BlobPair where
tiers = liftTiers tiers tiers = liftTiers tiers

2
test/Reprinting/Spec.hs
View File

@ -67,5 +67,5 @@ spec = describe "reprinting" $ do
it "should be able to parse the output of a refactor" $ do it "should be able to parse the output of a refactor" $ do
let (Just tagged) = rewrite (mark Unmodified tree) (topDownAny increaseNumbers) let (Just tagged) = rewrite (mark Unmodified tree) (topDownAny increaseNumbers)
let (Right printed) = runReprinter src defaultJSONPipeline tagged let (Right printed) = runReprinter src defaultJSONPipeline tagged
tree' <- runTaskOrDie (parse jsonParser (Blob printed path Language.JSON)) tree' <- runTaskOrDie (parse jsonParser (Blob printed path Language.JSON mempty))
length tree' `shouldSatisfy` (/= 0) length tree' `shouldSatisfy` (/= 0)

2
test/Semantic/Spec.hs
View File

@ -22,4 +22,4 @@ spec = parallel $ do
output <- fmap runBuilder . runTaskOrDie $ parseTermBuilder TermSExpression [methodsBlob] output <- fmap runBuilder . runTaskOrDie $ parseTermBuilder TermSExpression [methodsBlob]
output `shouldBe` "(Statements\n (Method\n (Empty)\n (Identifier)\n (Statements)))\n" output `shouldBe` "(Statements\n (Method\n (Empty)\n (Identifier)\n (Statements)))\n"
where where
methodsBlob = Blob "def foo\nend\n" "methods.rb" Ruby methodsBlob = Blob "def foo\nend\n" "methods.rb" Ruby mempty