use strict;
use warnings;
BEGIN {
use Bio::Root::Test;
test_begin( -tests => 8, -requires_module => 'List::MoreUtils');
}
use_ok 'Bio::Tools::SeqPattern::Backtranslate';
can_ok 'Bio::Tools::SeqPattern::Backtranslate', '_reverse_translate_motif';
my @data;
while (<DATA>) {
chomp;
push @data, [split];
}
foreach my $line (@data) {
if ( $line->[1] ) {
is _reverse_translate_motif( $line->[0] ), $line->[1];
} else {
throws_ok { _reverse_translate_motif( $line->[0] ) }
qr/syntax token/;
}
}
__DATA__
MAEELKAVAP ATGGCNGARGARYTNAARGCNGTNGCNCCN
LKGHB[WhYq]Q YTNAARGGNCAYRAYYRNCAR
(LK){2,3}[^GHB][WHYQ]Q (YTNAAR){2,3}HBNYRNCAR
LK[^GHB][WHYQ]Q YTNAARHBNYRNCAR
(LK){2,3}[^GHB][WHYQ]QX.X (YTNAAR){2,3}HBNYRNCARNNNNNNNNN
/&%/&%(/)(/%