#!/usr/bin/perl -w
use strict;
use Test::More qw(no_plan);
use Set::Object qw(set);
my $set = set();
$set->remove(undef);
pass("didn't segfault removing undef from an empty set");
$set->insert(undef);
is($set->size, 0, "set ignores undef as a member");
my $removed = $set->remove(undef);
is($removed, 0, "undef can never exist in a set");
is($set->includes(undef), '', "undef is never included in a set");