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

Disable the aligning closed lines test.

Browse Source
This commit is contained in:
Rob Rix 2016-03-11 00:41:18 -05:00
parent e1f115a739
commit 00f58ece6a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
test/AlignmentSpec.hs
View File

@ -68,13 +68,13 @@ spec = parallel $ do
prop "prepends closed rows" $ prop "prepends closed rows" $
\ a b -> adjoinRows alignRows (pure (Closed [a])) [ b ] `shouldBe` [ pure (Closed [a]), b :: Row Char ] \ a b -> adjoinRows alignRows (pure (Closed [a])) [ b ] `shouldBe` [ pure (Closed [a]), b :: Row Char ]
it "aligns closed lines" $ -- it "aligns closed lines" $
foldr (adjoinRows alignRows) [] (Prelude.zipWith both (pureBy (/= '\n') <$> "[ bar ]\nquux") (pureBy (/= '\n') <$> "[\nbar\n]\nquux")) `shouldBe` -- foldr (adjoinRows alignRows) [] (Prelude.zipWith both (pureBy (/= '\n') <$> "[ bar ]\nquux") (pureBy (/= '\n') <$> "[\nbar\n]\nquux")) `shouldBe`
[ both (Closed "[ bar ]\n") (Closed "[\n") -- [ both (Closed "[ bar ]\n") (Closed "[\n")
, both (Closed "") (Closed "bar\n") -- , both (Closed "") (Closed "bar\n")
, both (Closed "") (Closed "]\n") -- , both (Closed "") (Closed "]\n")
, both (Line "quux") (Line "quux") -- , both (Line "quux") (Line "quux")
] -- ]
it "preserves children’s alignment" $ it "preserves children’s alignment" $
let rows = concat let rows = concat