# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl APO_ID_Term_Map.t'
#########################
BEGIN {
eval { require Test; };
use Test;
plan tests => 27;
}
#########################
use Data::Dumper;
use OBO::APO::APO_ID_Term_Map;
use strict;
my $my_map = OBO::APO::APO_ID_Term_Map->new("./t/data/apo_id_term.map");
#
# check the current entries:
#
ok($my_map->contains_key('APO:B0000001'));
ok($my_map->contains_value('Q6NMC8_ARATH'));
ok($my_map->contains_key('APO:B0000002'));
ok($my_map->contains_value('RK20renamed_ARATH'));
ok($my_map->contains_key('APO:B0000003'));
ok($my_map->contains_value('Q6XJG8_ARATH'));
ok($my_map->contains_key('APO:B0000004'));
ok($my_map->contains_value('Q84JF0_ARATH'));
ok($my_map->contains_key('APO:B0000006'));
ok($my_map->contains_value('(S)-N-acetyl-1-phenylethylamine hydrolase protein'));
ok($my_map->contains_key('APO:B0000007'));
ok($my_map->contains_value('(-)-endo-fenchol synthase protein'));
ok($my_map->contains_key('APO:B0000008'));
ok($my_map->contains_value('[acetyl-CoA carboxylase] kinase protein'));
ok($my_map->contains_key('APO:B0000009'));
ok($my_map->contains_value('(-)-menthol dehydrogenase protein'));
ok($my_map->size() == 8);
#
# put (new id, new name)
#
ok($my_map->put('APO:B0000005', 'Q84JF1_ARATH'));
ok($my_map->contains_key('APO:B0000005'));
ok($my_map->contains_value('Q84JF1_ARATH'));
ok($my_map->size() == 9);
#
# put (existing id, new name) <- update the value
#
ok($my_map->put('APO:B0000005', 'Q84JF2_ARATH'));
ok($my_map->contains_value('Q84JF2_ARATH'));
ok($my_map->size() == 9);
#
# removing
#
$my_map->remove_by_key('APO:B0000005');
ok(!$my_map->contains_key('APO:B0000005'));
ok(!$my_map->contains_value('Q84JF2_ARATH'));
ok($my_map->size() == 8);