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

Test openLineBy, not openLine.

Browse Source
This commit is contained in:
Rob Rix 2015-12-21 10:01:00 -05:00
parent c9f13f2f41
commit 9404ee75c3
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/SplitSpec.hs
View File

@ -142,16 +142,16 @@ spec = do
Line True [ span "*/" ] Line True [ span "*/" ]
], Range 0 5) ], Range 0 5)
describe "openLine" $ do describe "openLineBy" $ do
it "should produce the earliest non-empty line in a list, if open" $ it "should produce the earliest non-empty line in a list, if open" $
openLine [ openLineBy openElement [
Line True [ Div (Just "delete") [ span "*/" ] ], Line True [ Div (Just "delete") [ span "*/" ] ],
Line True [ Div (Just "delete") [ span " * Debugging", Break ] ], Line True [ Div (Just "delete") [ span " * Debugging", Break ] ],
Line True [ Div (Just "delete") [ span "/*", Break ] ] Line True [ Div (Just "delete") [ span "/*", Break ] ]
] `shouldBe` (Just $ Line True [ Div (Just "delete") [ span "*/" ] ]) ] `shouldBe` (Just $ Line True [ Div (Just "delete") [ span "*/" ] ])
it "should return Nothing if the earliest non-empty line is closed" $ it "should return Nothing if the earliest non-empty line is closed" $
openLine [ openLineBy openElement [
Line True [ Div (Just "delete") [ span " * Debugging", Break ] ] Line True [ Div (Just "delete") [ span " * Debugging", Break ] ]
] `shouldBe` Nothing ] `shouldBe` Nothing
@ -167,6 +167,6 @@ spec = do
offsetInfo by (Info (Range start end) categories) = Info (Range (start + by) (end + by)) categories offsetInfo by (Info (Range start end) categories) = Info (Range (start + by) (end + by)) categories
offsetAnnotated by1 by2 (Annotated (left, right) syntax) = Annotated (offsetInfo by1 left, offsetInfo by2 right) syntax offsetAnnotated by1 by2 (Annotated (left, right) syntax) = Annotated (offsetInfo by1 left, offsetInfo by2 right) syntax
span = Span (Just "category-leaf") span = Span (Just "category-leaf")
isOpen (Row a b) = (maybe False (const True) $ openLine [ a ]) && (maybe False (const True) $ openLine [ b ]) isOpen (Row a b) = (maybe False (const True) $ openLineBy openElement [ a ]) && (maybe False (const True) $ openLineBy openElement [ b ])
isClosed (Row a@(Line _ _) b@(Line _ _)) = (maybe True (const False) $ openLine [ a ]) && (maybe True (const False) $ openLine [ b ]) isClosed (Row a@(Line _ _) b@(Line _ _)) = (maybe True (const False) $ openLineBy openElement [ a ]) && (maybe True (const False) $ openLineBy openElement [ b ])
isClosed (Row _ _) = False isClosed (Row _ _) = False