name changes to follow naming conventions

modules/Bio/EnsEMBL/Intron.pm

@@ -81,10 +81,10 @@ sub new {
 }
 
 
-=head2 prev_exon
+=head2 prev_Exon
 
   Args       : none
-  Example    : $exon = $intron->prev_exon
+  Example    : $exon = $intron->prev_Exon
   Description: Returns the exon before this Intron
   Returntype : Bio::EnsEMBL::Exon
   Exceptions : none
@@ -92,17 +92,17 @@ sub new {
 
 =cut
 
-sub prev_exon {
+sub prev_Exon {
   my ($self) = shift;
 
   return $self->{'prev'};
 }
 
 
-=head2 next_exon
+=head2 next_Exon
 
   Args       : none
-  Example    : $exon = $intron->next_exon
+  Example    : $exon = $intron->next_Exon
   Description: Returns the exon after this Intron
   Returntype : Bio::EnsEMBL::Exon
   Exceptions : none
@@ -110,7 +110,7 @@ sub prev_exon {
 
 =cut
 
-sub next_exon {
+sub next_Exon {
   my ($self) = shift;
 
   return $self->{'next'};

modules/t/intron.t

+use lib 't';
+use strict;
+
+BEGIN { $| = 1;
+	use Test ;
+	plan tests => 14;
+}
+
+my $loaded = 0;
+END {print "not ok 1\n" unless $loaded;}
+
+use MultiTestDB;
+use TestUtils qw(debug test_getter_setter);
+
+our $verbose = 0; #set to 1 to turn on debug printouts
+
+$loaded = 1;
+my $multi = MultiTestDB->new();
+
+ok(1);
+
+my $db = $multi->get_DBAdaptor( 'core' );
+
+ok($db);
+
+my $stable_id = 'ENST00000217347';
+my $transcript_adaptor = $db->get_TranscriptAdaptor();
+my $transcript = 
+  $transcript_adaptor->fetch_by_stable_id($stable_id);
+
+
+my @exons = (@{$transcript->get_all_Exons()});  
+my @introns = (@{$transcript->get_all_Introns()});  
+
+my $i=0;
+foreach my $intron (@introns){
+  ok($intron->prev_Exon->end == $intron->start-1);
+  ok($intron->next_Exon->start == $intron->end+1);
+}
+
+
+$multi->restore();
+