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

Test union asymmetry.

Browse Source
This commit is contained in:
Rob Rix 2015-12-14 18:15:56 -05:00
parent 79d5e38b26
commit e9cac45f65
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/OrderedMapSpec.hs
View File

@ -16,6 +16,9 @@ spec = do
it "should return those elements in either a or b" $ it "should return those elements in either a or b" $
Map.union a b `shouldBe` (Map.fromList $ Map.toList a ++ [ ("d", -4) ]) Map.union a b `shouldBe` (Map.fromList $ Map.toList a ++ [ ("d", -4) ])
it "is asymmetrical" $ do
Map.union a b `shouldNotBe` Map.union b a
describe "unions" $ do describe "unions" $ do
it "is the union of multiple maps" $ it "is the union of multiple maps" $
Map.unions [ a, b ] `shouldBe` Map.union a b Map.unions [ a, b ] `shouldBe` Map.union a b