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

Add a spec testing difference.

Browse Source
This commit is contained in:
Rob Rix 2015-12-14 17:43:49 -05:00
parent 205a885305
commit aebf6dd488
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/OrderedMapSpec.hs
View File

@ -2,3 +2,9 @@ module OrderedMapSpec where
import Data.Map as Map import Data.Map as Map
orderedMapSpec :: IO ()
orderedMapSpec = hspec $ do
describe "OrderedMap" $ do
describe "difference" $ do
it "should return those elements of a not in b" $
Map.difference (Map.fromList [ ("a", 1), ("b", 2), ("c", 3) ]) (Map.fromList [ ("b", 2), ("c", 3), ("d", 4) ]) `shouldBe` (Map.fromList [ ("a", 1) ])