|
#!/usr/local/bin/perl -w
BEGIN { plan tests => 2, todo => [1] }
my $apph = get_readonly_apph();
my $node = $apph ->get_term({ acc =>7585});
printf "node=$node\n" ;
my $ass_list ;
eval {
$ass_list = $node ->association_list( -sort_by => 'ev_code' );
ok( $ass_list ->[0]->evidience_list->[0]->code eq 'IGI' );
};
if ($@) {
print $@;
ok(0);
}
eval {
$ass_list = $node ->association_list( -sort_by => 'gene_product' );
my $bad = 0;
for ( my $i =1; $i < @$ass_list ; $i ++) {
$bad =1 if
$ass_list ->[ $i -1]->gene_product->symbol gt $ass_list ->[ $i ]->gene_product->symbol;
}
ok(! $bad );
};
if ($@) {
print $@;
ok(0);
}
|