Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
done_testing;

__END__

Select or download this

$ cat Recip/do.re.mi.fa.so.la.ti.1.Recip.blast.top 
gi|110123922|gb|EC817325.1|EC817325 gi|110095377|gb|EC788780.1|EC78878
+0
gi|110123921|gb|EC817324.1|EC817324 gi|110105430|gb|EC798833.1|EC79883
+3 6
gi|110123920|gb|EC817323.1|EC817323 gi|110106464|gb|EC799867.1|EC79986
+7

Select or download this

$ cat Recip/do.re.mi.fa.so.la.ti.2.Recip.blast.top 
gi|110123922|gb|EC817325.1|EC817325 gi|110095377|gb|EC788780.1|EC78878
+0
gi|110123921|gb|EC817324.1|EC817324 gi|110105430|gb|EC798833.1|EC79883
+3 6
gi|110123920|gb|EC817323.1|EC817323 gi|110106464|gb|EC799867.1|EC79986
+7

Select or download this

$ cat Lab/do.re.mi.fa.so.la.ti.1 
gi|110095377|gb|EC788780.1|EC788780   gi|110123922|gb|EC817325.1|EC817
+325
gi|110105430|gb|EC798833.1|EC798833 6 gi|110123921|gb|EC817324.1|EC817
+324
gi|110106464|gb|EC799867.1|EC799867   gi|110123920|gb|EC817323.1|EC817
+323

Select or download this

$ cat Lab/do.re.mi.fa.so.la.ti.2
gi|110095377|gb|EC788780.1|EC788780   gi|110123922|gb|EC817325.1|EC817
+325
gi|210105430|gb|EC798833.1|EC798833 6 gi|110123921|gb|EC817324.1|EC817
+324
gi|110106464|gb|EC799867.1|EC799867   gi|110123920|gb|EC817323.1|EC817
+323

Select or download this
```
$ perl 1141288.pl
$
```

Select or download this

$ cat test_results.txt 
ok 1 - Lab/do.re.mi.fa.so.la.ti.1
not ok 2 - Lab/do.re.mi.fa.so.la.ti.2
1..2

Select or download this

$ cat test_failure.do.re.mi.fa.so.la.ti.2.txt 
#   Failed test 'Lab/do.re.mi.fa.so.la.ti.2'
...
# |   4|]                         |]                         |
# +----+--------------------------+--------------------------+
# Looks like you failed 1 test of 2.