Merge pull request #110 from Ensembl/ENSCORESW-1633

Allow a seq_region_name of 0 to be returned from Slice, and do a litt…

modules/Bio/EnsEMBL/DBSQL/SliceAdaptor.pm

@@ -2121,7 +2121,7 @@ sub store {
   my $sr_len = $slice->length();
   my $sr_name  = $slice->seq_region_name();
 
-  if(!$sr_name) {
+  if($sr_name eq '') {
     throw("Slice must have valid seq region name.");
   }
 

modules/t/slice.t

@@ -128,6 +128,16 @@ is($test_slice->seq(), 'NNN', "Test slice seq is only N's");
 
 is($test_slice->name(), '::test:1:3:1', "Slice name is $test_slice->name");
 
+# Test we can make a Slice with a seq_region_name of 0, odd but legal
+$slice = new Bio::EnsEMBL::Slice
+    (-seq_region_name   => 0,
+     -seq_region_length => $SEQ_REGION_LENGTH,
+     -start             => $START,
+     -end               => $END,
+     -strand            => $STRAND,
+     -coord_system      => $coord_system);
+
+is($slice->seq_region_name(), 0, 'Create Slice with seq_region_name of 0, odd but legal');
 
 $slice = new Bio::EnsEMBL::Slice
   (-seq_region_name   => $CHR,