# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Map.t'

#########################

BEGIN {
    eval { require Test; };
    use Test;    
    plan tests => 63;
}

#########################

use OBO::Core::SubsetDef;
use OBO::Util::SubsetDefMap;
use strict;

my $my_map = OBO::Util::SubsetDefMap->new();
my $my_ssd = OBO::Core::SubsetDef->new();
ok(1);

$my_ssd->as_string('GO_SS', 'Term used for My GO');
ok(!$my_map->contains_key('GO_SS'));
ok(!$my_map->contains_value($my_ssd));
ok($my_map->size() == 0);
ok($my_map->is_empty());

# put: key=string, value=subset_def
$my_map->put('GO_SS', $my_ssd);

my @my_ssd = $my_map->values();
ok($my_ssd[0]->name() eq 'GO_SS');
ok($my_ssd[0]->description() eq 'Term used for My GO');

ok($my_map->contains_key('GO_SS'));
ok($my_map->contains_value($my_ssd));
ok($my_map->size() == 1);
ok(!$my_map->is_empty());

my $my_ssd1 = OBO::Core::SubsetDef->new();
my $my_ssd2 = OBO::Core::SubsetDef->new();
my $my_ssd3 = OBO::Core::SubsetDef->new();

$my_ssd1->as_string('APO', 'Application Ontology');
$my_ssd2->as_string('PO', 'Plant Ontology');
$my_ssd3->as_string('SO', 'Sequence Ontology');

my $another_map = OBO::Util::SubsetDefMap->new();
$another_map->put('APO', $my_ssd1);
$another_map->put('PO', $my_ssd2);
$another_map->put('SO', $my_ssd3);
ok($another_map->size() == 3);

$my_map->put_all($another_map);
ok($my_map->size() == 4);

ok($my_map->equals($my_map));
ok($another_map->equals($another_map));
ok(!$my_map->equals($another_map));
ok(!$another_map->equals($my_map));

$another_map->put('GO_SS', $my_ssd);
ok($another_map->size() == 4);

ok($another_map->equals($another_map));
ok($my_map->equals($another_map));
ok($another_map->equals($my_map));

my $my_map2 = OBO::Util::SubsetDefMap->new();

ok(!$my_map->equals($my_map2));
ok(!$my_map2->equals($my_map));

$my_map2->put('APO', $my_ssd1);
$my_map2->put('PO', $my_ssd2);
$my_map2->put('SO', $my_ssd3);

ok(!$my_map2->equals($my_map));
ok(!$my_map->equals($my_map2));

$my_map2->put('GO_SS', $my_ssd);
ok($my_map2->equals($my_map));
ok($my_map->equals($my_map2));

ok($my_map2->get('GO_SS')->equals($my_ssd));
ok($my_map2->get('APO')->equals($my_ssd1));
ok($my_map2->get('PO')->equals($my_ssd2));
ok($my_map2->get('SO')->equals($my_ssd3));

my $i = 0;
my @values = sort {lc($a->name()) cmp lc($b->name())} $my_map->values();
foreach my $subsetdef (sort {lc($a->name()) cmp lc($b->name())} $my_map2->values()) {
	ok($subsetdef->name() eq $values[$i]->name());
	ok($subsetdef->description() eq $values[$i++]->description());
}

my $my_ssd4 = OBO::Core::SubsetDef->new();
$my_ssd4->as_string('TO', 'Trait Ontology');
$my_map2->put('TO', $my_ssd4);

ok(!$my_map->equals($my_map2));
ok(!$my_map2->equals($my_map));
ok($my_map2->size() == 5);

$my_map->clear();
ok($my_map->size() == 0);

$my_map->put_all($my_map2);
ok($my_map->equals($my_map2));
ok($my_map2->equals($my_map));
ok($my_map->size() == 5);

my $UD = $my_map->remove('XO');
ok(!defined $UD);

ok($my_map->contains_key('GO_SS'));
ok($my_map->contains_value($my_ssd));

my $GO = $my_map->remove('GO');
ok(!defined $GO);

my $GO_SS = $my_map->remove('GO_SS');
ok(!$my_map->contains_key('GO_SS'));
ok(!$my_map->contains_value($my_ssd));
ok($GO_SS->equals($my_ssd));

ok($my_map->size() == 4);
ok($my_map->contains_value($my_ssd1));
my $APO = $my_map->remove('APO');
ok(!$my_map->contains_key('APO'));
ok(!$my_map->contains_value($my_ssd1));

ok($APO->equals($my_ssd1));
ok($my_map->size() == 3);
$my_map->remove('PO');
ok($my_map->size() == 2);
$my_map->remove('SO');
ok($my_map->size() == 1);
$my_map->remove('TO');
ok($my_map->size() == 0);

ok(1);