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

Test diff equality reflexivity.

Browse Source
This commit is contained in:
Rob Rix 2015-12-11 16:02:08 -05:00
parent f9a72f75e1
commit fa4e5011ac
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Spec.hs
View File

@ -77,6 +77,10 @@ main = hspec $ do
prop "equality is reflexive" $ prop "equality is reflexive" $
\ a -> unTerm a == unTerm (a :: ArbitraryTerm String ()) \ a -> unTerm a == unTerm (a :: ArbitraryTerm String ())
describe "Diff" $ do
prop "equality is reflexive" $
\ a -> a == (a :: Diff String CategorySet)
describe "annotatedToRows" $ do describe "annotatedToRows" $ do
it "outputs one row for single-line unchanged leaves" $ it "outputs one row for single-line unchanged leaves" $
annotatedToRows (unchanged "a" "leaf" (Leaf "")) "a" "a" `shouldBe` ([ Row (Line [ span "a" ]) (Line [ span "a" ]) ], (Range 0 1, Range 0 1)) annotatedToRows (unchanged "a" "leaf" (Leaf "")) "a" "a" `shouldBe` ([ Row (Line [ span "a" ]) (Line [ span "a" ]) ], (Range 0 1, Range 0 1))