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

reenable all the tests

Browse Source
This commit is contained in:
Patrick Thomson 2018-09-18 13:18:31 -04:00
parent 5c442ff7dd
commit 9eb7fe5cd8
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Language/JSON/PrettyPrint.hs
View File

@ -61,7 +61,7 @@ beautifyingJSON _ = repeatedly (await >>= step) where
step (Defer el cs) = lift (throwError (NoTranslation el cs))
step (Verbatim txt) = emit txt
step (New el cs txt) = case (el, cs) of
(TOpen, THash:_) -> emit txt *> layout HardWrap *> indent 2 (hashDepth cs)
(TOpen, THash:_) -> emit txt *> layout HardWrap *> indent 2 (hashDepth cs)
(TClose, THash:rest) -> layout HardWrap *> indent 2 (hashDepth rest) *> emit txt
(TSep, TList:_) -> emit txt *> space
(TSep, TPair:_) -> emit txt *> space

17
test/Control/Rewriting/Spec.hs
View File

@ -4,17 +4,18 @@ module Control.Rewriting.Spec (spec) where
import SpecHelpers
import Control.Abstract.Matching as Matching
import Control.Rewriting as Rewriting
import qualified Data.ByteString as B
import Data.Either
import Data.Text (Text)
import Control.Abstract.Matching as Matching
import Control.Rewriting as Rewriting
import Data.History as History
import qualified Data.Source as Source
import Data.Sum
import qualified Data.Syntax.Literal as Literal
import Language.JSON.PrettyPrint
import Data.History as History
import Data.Text (Text)
import Reprinting.Pipeline
-- import Reprinting.Pipeline
@ -51,6 +52,6 @@ spec = describe "rewriting" $ do
length (runMatcher @[] isHi refactored) `shouldBe` 1
-- let res = runReprinter bytes defaultJSONPipeline refactored
-- expected <- Source.fromUTF8 <$> B.readFile "test/fixtures/json/rewriting/add_keys_expected.json"
-- res `shouldBe` Right expected
let res = runReprinter bytes defaultJSONPipeline refactored
expected <- Source.fromUTF8 <$> B.readFile "test/fixtures/json/rewriting/add_keys_expected.json"
res `shouldBe` Right expected