use Set::Object;

print "1..2\n";

{
	# Malcolm Purvis <malcolm.purvis@alcatel.com.au>
	my $s1 = Set::Object->new("A");
	my $s1_again = Set::Object->new("A");
	my $s2 = $s1->union($s1_again);
	my $s3 = Set::Object->new("C");
	my $s4 = $s2->difference($s3);
	print "not " unless $s4 eq "Set::Object(A)";
	print "ok 1\n";
}

{
	# Malcolm Purvis <malcolm.purvis@alcatel.com.au>
	my $s1 = Set::Object->new(("A", "B"));
	my $s1_again = Set::Object->new(("A", "B"));
	my $s2 = $s1->union($s1_again);  
	my $s3 = Set::Object->new("C");
	my $s4 = $s2->difference($s3);
	print "not " unless $s4 eq "Set::Object(A B)";
	print "ok 2\n";
}