# -*-Perl-*-
## Bioperl Test Harness Script for Modules
## $Id: AnnotationAdaptor.t,v 1.2 2004/11/24 02:14:06 allenday Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
use strict;
BEGIN { 
    # to handle systems with no installed Test module
    # we include the t dir (where a copy of Test.pm is located)
    # as a fallback
    eval { require Test; };
    if( $@ ) { 
        use lib 't';
    }
    use Test;
    plan tests => 19;
}
use Bio::SeqFeature::Generic;
use Bio::SeqFeature::AnnotationAdaptor;
use Bio::Annotation::DBLink;
use Bio::Annotation::Comment;
use Bio::Annotation::SimpleValue;
ok(1);
my $feat = Bio::SeqFeature::Generic->new();
$feat->add_tag_value("tag1", "value of tag1");
$feat->add_tag_value("tag1", "another value of tag1");
$feat->add_tag_value("tag2", "some value for a tag");
my $link1 = new Bio::Annotation::DBLink(-database => 'TSC',
                                        -primary_id => 'TSC0000030',
                                        #cannot use "tag2", already claimed by Bio::Annotation::SimpleValue by above $feat->add_tag_value() call.
                                        -tagname => "tag3"
                                       );
$feat->annotation->add_Annotation($link1);
ok(1);
my $anncoll = Bio::SeqFeature::AnnotationAdaptor->new(-feature => $feat);
ok ($anncoll->get_num_of_annotations(), 4);
ok (scalar($anncoll->get_all_annotation_keys()), 3);
my @anns = $anncoll->get_Annotations("tag1");
my @vals = $feat->each_tag_value("tag1");
ok (scalar(@anns), scalar(@vals));
for(my $i = 0; $i < @anns; $i++) {
  ok ($anns[$i]->value(), $vals[$i]);
}
@anns = $anncoll->get_Annotations("tag3");
my @fanns = $feat->annotation->get_Annotations("tag3");
@vals = $feat->each_tag_value("tag3");
ok (scalar(@fanns), 1);
ok (scalar(@anns), 1);
ok (scalar(@vals), 1);
ok ($anns[0]->primary_id(), $vals[0]);
ok ($anns[0]->primary_id(), $fanns[0]->primary_id());
my $comment = Bio::Annotation::Comment->new( '-text' => 'sometext');
$anncoll->add_Annotation('comment', $comment);
@fanns = $feat->annotation->get_Annotations("comment");
ok (scalar(@fanns), 1);
ok ($fanns[0]->text(), "sometext");
my $tagval = Bio::Annotation::SimpleValue->new(-value => "boring value",
                                               -tagname => "tag2");
$anncoll->add_Annotation($tagval);
@anns = $anncoll->get_Annotations("tag3");
@fanns = $feat->annotation->get_Annotations("tag3");
@vals = $feat->each_tag_value("tag3");
ok (scalar(@fanns), 1);
ok (scalar(@anns), 1);
ok (scalar(@vals), 1);
ok ($anns[0]->primary_id(), $vals[0]);
ok ($anncoll->get_num_of_annotations(), 6);