No support for the registry in SQLite yet.

modules/t/exon.t

@@ -305,11 +305,14 @@ ok( $exon->cdna_coding_end($transcript) == 462 );
 ok( $exon->coding_region_start($transcript) == 30577779 );
 ok( $exon->coding_region_end($transcript) == 30578038 );
 
-#test the get_species_and_object_type method from the Registry
-my $registry = 'Bio::EnsEMBL::Registry';
-my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('ENSE00000859937');
-ok( $species eq 'homo_sapiens' && $object_type eq 'Exon');
+SKIP: {
+  skip 'No registry support for SQLite yet', 1 if $db->dbc->driver() eq 'SQLite';
 
+  #test the get_species_and_object_type method from the Registry
+  my $registry = 'Bio::EnsEMBL::Registry';
+  my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('ENSE00000859937');
+  ok( $species eq 'homo_sapiens' && $object_type eq 'Exon');
+}
 
 # UTR and coding region tests. Only testing simple +ve orientation transcript ATMO but it is a start
 # tests are based on offsetted coordinates from ENST00000000233 in release 67

modules/t/gene.t

@@ -780,10 +780,14 @@ ok($gene->is_current == 1);
 
 $multi->restore;
 
-#test the get_species_and_object_type method from the Registry
-my $registry = 'Bio::EnsEMBL::Registry';
-my ($species, $object_type, $db_type) = $registry->get_species_and_object_type('ENSG00000355555');
-ok($species eq 'homo_sapiens' && $object_type eq 'Gene');
+SKIP: {
+  skip 'No registry support for SQLite yet', 1 if $db->dbc->driver() eq 'SQLite';
+
+  #test the get_species_and_object_type method from the Registry
+  my $registry = 'Bio::EnsEMBL::Registry';
+  my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('ENSG00000355555');
+  ok( $species eq 'homo_sapiens' && $object_type eq 'Gene');
+}
 
 # Testing compara dba retrieval
 {

modules/t/operon.t

@@ -81,11 +81,14 @@ is( $operon2->analysis(),
 	$operon->analysis(),
 	"Analysis" );
 
-#test the get_species_and_object_type method from the Registry
-my $registry = 'Bio::EnsEMBL::Registry';
-my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('16152-16153-4840');
-ok( $species eq 'homo_sapiens' && $object_type eq 'Operon');
-
+SKIP: {
+  skip 'No registry support for SQLite yet', 1 if $operon_adaptor->dbc->driver() eq 'SQLite';
+
+  #test the get_species_and_object_type method from the Registry
+  my $registry = 'Bio::EnsEMBL::Registry';
+  my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('16152-16153-4840');
+  ok( $species eq 'homo_sapiens' && $object_type eq 'Operon');
+}
 
 debug ("Operon->list_stable_ids");
 my $stable_ids = $operon_adaptor->list_stable_ids();

modules/t/operon_transcript.t

@@ -222,10 +222,14 @@ $dba->get_OperonAdaptor()->remove($operon);
 $dba->get_GeneAdaptor()->remove($gene);
 $dba->get_GeneAdaptor()->remove($gene2);
 
-#test the get_species_and_object_type method from the Registry
-my $registry = 'Bio::EnsEMBL::Registry';
-my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('T16152-16153-4840');
-ok( $species eq 'homo_sapiens' && $object_type eq 'OperonTranscript');
+SKIP: {
+  skip 'No registry support for SQLite yet', 1 if $dba->dbc->driver() eq 'SQLite';
+
+  #test the get_species_and_object_type method from the Registry
+  my $registry = 'Bio::EnsEMBL::Registry';
+  my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('T16152-16153-4840');
+  ok( $species eq 'homo_sapiens' && $object_type eq 'OperonTranscript');
+}
 
 #48
 my $ota = $dba->get_OperonTranscriptAdaptor();

modules/t/transcript.t

@@ -699,7 +699,9 @@ $multi->restore;
   
 }
 
-{
+SKIP: {
+  skip 'No registry support for SQLite yet', 1 if $db->dbc->driver() eq 'SQLite';
+
   #test the get_species_and_object_type method from the Registry
   my $registry = 'Bio::EnsEMBL::Registry';
   my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('ENST00000355555');

modules/t/translation.t

@@ -290,10 +290,14 @@ ok($tl->cdna_end() == 1690);
 ok($tl->genomic_start() == 30572315);
 ok($tl->genomic_end() == 30578038);
 
-#test the get_species_and_object_type method from the Registry
-my $registry = 'Bio::EnsEMBL::Registry';
-my ($species, $object_type, $db_type) = $registry->get_species_and_object_type('ENSP00000201961');
-ok($species eq 'homo_sapiens' && $object_type eq 'Translation');
+SKIP: {
+  skip 'No registry support for SQLite yet', 1 if $db->dbc->driver() eq 'SQLite';
+
+  #test the get_species_and_object_type method from the Registry
+  my $registry = 'Bio::EnsEMBL::Registry';
+  my ( $species, $object_type, $db_type ) = $registry->get_species_and_object_type('ENSP00000201961');
+  ok( $species eq 'homo_sapiens' && $object_type eq 'Translation');
+}
 
 #41