github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 09:55:52 +03:00
Code Issues Projects Releases Wiki Activity

Test that comparisons of the empty list against a list returns all values in That.

Browse Source
This commit is contained in:
Rob Rix 2017-03-20 11:32:03 -04:00
parent 2f86a8d374
commit 2556e0f1e1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/SES/Myers/Spec.hs
View File

@ -14,3 +14,6 @@ spec = do
prop "returns deletions in This" $
\ as -> runMyers (==) (ses (makeEditGraph as [] :: EditGraph Char Char)) `shouldBe` fmap This as
prop "returns insertions in That" $
\ bs -> runMyers (==) (ses (makeEditGraph [] bs :: EditGraph Char Char)) `shouldBe` fmap That bs