microecta-0.1.0.0: test/Utility/HashJoinSpec.hs

module Utility.HashJoinSpec (spec) where

import Data.List (nub, sort)

import Test.Hspec
import Test.QuickCheck

import Utility.HashJoin

-----------------------------------------------------------------

spec :: Spec
spec = do
    describe "hash utilities" $ do
        it "nubByIdSinglePass is same as nub" $
            property $
                \(xs :: [Int]) -> sort (nub xs) == sort (nubByIdSinglePass id xs)