attoparsec-text-0.8.0.0: tests/TestFastSet.hs

module Main (main) where

import qualified Data.Attoparsec.Text.FastSet as F
import Test.QuickCheck

prop_AllMembers s =
    let set = F.fromList s
    in all (`F.member` set) s

main = do
  quickCheck prop_AllMembers