[Bioperl-guts-l] [15315] bioperl-run/trunk/t/Ensembl.t: Don' t todo tests that work for other people - it causes test failure; reverted and changed test to handle presumed difference in Bio:: EnsEMBL versions

[Chris Fields]

That works.  Is there a specific version of EnsEMBL API you are  
using?  species_id doesn't work for me.

chris

On Jan 7, 2009, at 4:59 PM, Senduran Balasubramaniam wrote:

> Revision: 15315
> Author:   sendu
> Date:     2009-01-07 17:59:55 -0500 (Wed, 07 Jan 2009)
>
> Log Message:
> -----------
> Don't todo tests that work for other people - it causes test  
> failure; reverted and changed test to handle presumed difference in  
> Bio::EnsEMBL versions
>
> Modified Paths:
> --------------
>    bioperl-run/trunk/t/Ensembl.t
>
> Modified: bioperl-run/trunk/t/Ensembl.t
> ===================================================================
> --- bioperl-run/trunk/t/Ensembl.t	2009-01-07 21:58:52 UTC (rev 15314)
> +++ bioperl-run/trunk/t/Ensembl.t	2009-01-07 22:59:55 UTC (rev 15315)
> @@ -20,11 +20,12 @@
>     # get an adaptor
>     ok my $adaptor = Bio::Tools::Run::Ensembl->get_adaptor('human',  
> 'Exon');
>     isa_ok $adaptor, 'Bio::EnsEMBL::DBSQL::ExonAdaptor';
> -    TODO: {
> -        local $TODO = 'species_id is not implemented in ExonAdaptor';
> -        can_ok($adaptor, 'species_id');
> -        #is $adaptor->species_id, 1;
> +    if ($adaptor->can('species_id')) {
> +        is $adaptor->species_id, 1;
>     }
> +    else {
> +        ok 1;
> +    }
>
>     # get an 'easy' gene - one that is in Ensembl
>     ok my $gene = Bio::Tools::Run::Ensembl->get_gene_by_name(- 
> species => 'human',
>
>
> _______________________________________________
> Bioperl-guts-l mailing list
> Bioperl-guts-l at lists.open-bio.org
> http://lists.open-bio.org/mailman/listinfo/bioperl-guts-l