import Control.Search.SetFunctions
import Data.List (nub)
import TestLib
import Family (sibling)

siblingDet :: String -> [String]
siblingDet x = nub (sortValues (set1 sibling x))
-- nub removes duplicates.

tests =
    [ "Fiona" ~: siblingDet "Fiona" ~?= ["George", "Mary"]
    , "Frederick" ~: siblingDet "Frederick" ~?= ["Mary"]
    , "Henry" ~: siblingDet "Henry" ~?= []
    ]

main = testlibMain tests