Commit 64889c7e authored by Patrick Meidl's avatar Patrick Meidl
Browse files

brought up-to-date with current schema and API

parent b525d09a
use strict;
use warnings;
no warnings qw(uninitialized);
BEGIN { $| = 1;
use Test;
......@@ -36,7 +36,7 @@ ok( $asi );
my $pre_asis = $asi->get_all_predecessors();
for my $asi ( @$pre_asis ) {
debug( "Pre G1" );
debug( "\tPre G1" );
_print_asi( $asi );
}
......@@ -49,13 +49,13 @@ ok( scalar( @$pre_asis ) == 2 );
my $transcripts = $pre_asis->[0]->get_all_transcript_archive_ids();
for my $asi ( @$transcripts ) {
debug( "Transcripts G1" );
debug( "\tTranscripts G1" );
_print_asi( $asi );
#get_translation_archive_id was changed to give back listref.
#this makes the function poorly named, but it is what the
#webteam uses so....
my $tl = $asi->get_translation_archive_id();
my $tl = $asi->get_all_translation_archive_ids();
foreach my $asi2 (@$tl) {
_print_asi( $asi2 );
}
......@@ -69,7 +69,7 @@ ok( scalar( @$transcripts ) == 1);
$pre_asis = $pre_asis->[0]->get_all_predecessors();
debug( "Predecessors: ".scalar( @$pre_asis ) );
debug( "\tPredecessors: ".scalar( @$pre_asis ) );
#
......@@ -81,7 +81,7 @@ $asi = $asia->fetch_by_stable_id_dbname( "G4", "release_1" );
my $succ_asis = $asi->get_all_successors();
for my $asi ( @$succ_asis ) {
debug( "Succ G4.1" );
debug( "\tSucc G4.1" );
_print_asi( $asi );
}
......@@ -93,7 +93,7 @@ ok( scalar( @$succ_asis ) == 1 );
$succ_asis = $succ_asis->[0]->get_all_successors();
for my $asi ( @$succ_asis ) {
debug( "Succ Succ G4.1" );
debug( "\tSucc Succ G4.1" );
_print_asi( $asi );
}
......@@ -111,7 +111,7 @@ ok( scalar( @$succ_asis ) == 0 );
$asi = $asia->fetch_by_stable_id_dbname( "G2", "release_1" );
my $asis = $asia->fetch_all_currently_related( $asi );
debug( "Currently related from G2.release_1" );
debug( "\tCurrently related from G2.release_1" );
for my $asi ( @$asis ) {
_print_asi( $asi );
}
......@@ -131,12 +131,12 @@ ok( ! defined $asia->fetch_by_stable_id_dbname( "FooBar", "release_unknown" ));
sub _print_asi {
my $asi = shift;
debug( "stable id: ".$asi->stable_id().
"\nversion: ".$asi->version().
"\ntype: ".$asi->type().
"\ndbname: ".$asi->db_name().
"\nTranscripts ".($asi->get_all_transcript_archive_ids()||"").
"\nTranslation ".($asi->get_translation_archive_id()||"").
"\nPeptide ".($asi->get_peptide()||"")."\n" );
debug( "\ttype: ".$asi->type().
"\n\tstable id: ".$asi->stable_id().
"\n\tversion: ".$asi->version().
"\n\tdbname: ".$asi->db_name().
"\n\tTranscripts: ".(join(", ", map { $_->stable_id } @{ $asi->get_all_transcript_archive_ids })).
"\n\tTranslations: ".(join(", ", map { $_->stable_id } @{ $asi->get_all_translation_archive_ids })).
"\n\tPeptide: ".$asi->get_peptide."\n" );
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment