added tests for length() and seq() methods added to Translation

modules/t/translation.t

+use strict;
+use warnings;
+
 use lib 't';
 use TestUtils qw(debug test_getter_setter);
 use Bio::EnsEMBL::Translation;
@@ -5,7 +8,7 @@ use Bio::EnsEMBL::Exon;
 
 BEGIN { $| = 1;  
 	use Test;
-	plan tests => 19;
+	plan tests => 21;
 }
 
 my $loaded = 0;
@@ -110,4 +113,17 @@ my @domain_features = @{$translation->get_all_DomainFeatures()};
 debug("Got " . scalar(@domain_features) . " domain features.");
 ok(@domain_features == 3);
 
-ok($translation->display_id eq $translation->stable_id);
\ No newline at end of file
+ok($translation->display_id eq $translation->stable_id);
+
+
+
+#
+# test length() and seq()
+#
+my $seq = $translation->seq();
+debug("Seq = $seq");
+ok($seq);
+
+debug("Lenth = " . $translation->length());
+ok(length($seq) == $translation->length());
+