Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Fixed indentation

  • Loading branch information...
commit 90f76a073e4db912a494f209e59a4b3682ea6c57 1 parent c4fcdea
Florent Angly fangly authored

Showing 1 changed file with 29 additions and 29 deletions. Show diff stats Hide diff stats

  1. +29 29 t/SeqTools/CodonTable.t
58 t/SeqTools/CodonTable.t
@@ -5,12 +5,12 @@ use strict;
5 5
6 6 BEGIN {
7 7 use lib '.';
8   - use Bio::Root::Test;
9   -
10   - test_begin(-tests => 61);
11   -
12   - use_ok('Bio::Tools::CodonTable');
13   - use_ok('Bio::CodonUsage::IO');
  8 + use Bio::Root::Test;
  9 +
  10 + test_begin(-tests => 61);
  11 +
  12 + use_ok('Bio::Tools::CodonTable');
  13 + use_ok('Bio::CodonUsage::IO');
14 14 }
15 15
16 16 # create a table object by giving an ID
@@ -58,7 +58,7 @@ my @res = qw(T T X V L Z );
58 58 my $test = 1;
59 59 for my $i (0..$#ii) {
60 60 if ($res[$i] ne $myCodonTable->translate($ii[$i], 1) ) {
61   - $test = 0;
  61 + $test = 0;
62 62 print $ii[$i], ": |", $res[$i], "| ne |",
63 63 $myCodonTable->translate($ii[$i], 1), "|\n" if( $DEBUG);
64 64 last ;
@@ -102,10 +102,10 @@ print join (' ', @res), "\n" if( $DEBUG );
102 102 $test = 1;
103 103 for my $i (0..$#ii) {
104 104 if ($res[$i] ne $myCodonTable->translate($ii[$i]) ) {
105   - $test = 0;
106   - print $ii[$i], ": |", $res[$i], "| ne |",
107   - $myCodonTable->translate($ii[$i]), "| @ $i\n" if( $DEBUG);
108   - last ;
  105 + $test = 0;
  106 + print $ii[$i], ": |", $res[$i], "| ne |",
  107 + $myCodonTable->translate($ii[$i]), "| @ $i\n" if( $DEBUG);
  108 + last ;
109 109 }
110 110 }
111 111 ok $test;
@@ -119,27 +119,27 @@ is $myCodonTable->revtranslate('I'), 3;
119 119
120 120 @ii = qw(A l ACN Thr sER ter Glx);
121 121 @res = (
122   - [qw(gct gcc gca gcg)],
123   - [qw(ggc gga ggg act acc aca acg)],
124   - [qw(tct tcc tca tcg agt agc)],
125   - [qw(act acc aca acg)],
126   - [qw(tct tcc tca tcg agt agc)],
127   - [qw(taa tag tga)],
128   - [qw(gaa gag caa cag)]
129   - );
  122 + [qw(gct gcc gca gcg)],
  123 + [qw(ggc gga ggg act acc aca acg)],
  124 + [qw(tct tcc tca tcg agt agc)],
  125 + [qw(act acc aca acg)],
  126 + [qw(tct tcc tca tcg agt agc)],
  127 + [qw(taa tag tga)],
  128 + [qw(gaa gag caa cag)]
  129 + );
130 130
131 131 $test = 1;
132 132 TESTING: {
133 133 for my $i (0..$#ii) {
134   - my @codonres = $myCodonTable->revtranslate($ii[$i]);
135   - for my $j (0..$#codonres) {
136   - if ($codonres[$j] ne $res[$i][$j]) {
137   - $test = 0;
138   - print $ii[$i], ': ', $codonres[$j], " ne ",
139   - $res[$i][$j], "\n" if( $DEBUG);
140   - last TESTING;
141   - }
142   - }
  134 + my @codonres = $myCodonTable->revtranslate($ii[$i]);
  135 + for my $j (0..$#codonres) {
  136 + if ($codonres[$j] ne $res[$i][$j]) {
  137 + $test = 0;
  138 + print $ii[$i], ': ', $codonres[$j], " ne ",
  139 + $res[$i][$j], "\n" if( $DEBUG);
  140 + last TESTING;
  141 + }
  142 + }
143 143 }
144 144 }
145 145 ok $test;
@@ -192,7 +192,7 @@ is $seq->translate(undef, undef, undef, undef, undef, undef, $myCodonTable)->seq
192 192 # test gapped translated
193 193
194 194 ok $seq = Bio::PrimarySeq->new(-seq => 'atg---aar------aay',
195   - -alphabet => 'dna');
  195 + -alphabet => 'dna');
196 196 is $seq->translate->seq, 'M-K--N';
197 197
198 198 ok $seq = Bio::PrimarySeq->new(-seq =>'ASDFGHKL');

0 comments on commit 90f76a0

Please sign in to comment.
Something went wrong with that request. Please try again.