view release on metacpan or  search on metacpan

t/GenBank.t  view on Meta::CPAN

        is $seq->alphabet, shift(@result);
    }

		is(@result, 0, @result ? "Missing results:".join(",", @result) : "All results checked");

    # Real batch retrieval using epost/efetch
    # these tests may change if integrated further into Bio::DB::Gen*
    # Currently only useful for retrieving GI's via get_seq_stream
    $gb = Bio::DB::GenBank->new(%params);
    eval {$seqin = $gb->get_seq_stream(-uids => [4887706 ,431229, 147460], -mode => 'batch');};
    skip "Couldn't connect to complete GenBank batchmode epost/efetch tests. Skipping those tests: $@", 8 if $@;
    my %result = ('M59757' => 12611 ,'X76083'=> 3140, 'J01670'=> 1593);
		my $ct = 0;

		# Test number is labile (dependent on remote results)
    while ($seq = $seqin->next_seq) {
			$ct++;
			my $acc = $seq->accession;
      ok exists $result{ $acc };
      is $seq->length, $result{ $acc };
			delete $result{$acc};