Added test for genes from find_species.pl subroutines

svn path=/; revision=26

diff --git a/interactome_scripts/find_species_test.pl b/interactome_scripts/find_species_test.pl
index 45b6fc8463e3cafe71f2c9be02377d7be6d2bfc8..e56054dcd9032a5ad84b73be9ba46b9964b7f3e0 100755 (executable)
--- a/interactome_scripts/find_species_test.pl
+++ b/interactome_scripts/find_species_test.pl
@@ -18,5 +18,14 @@ for(my $i =0; $i<@file_array; $i++) {
 
 foreach my $file (@file_array) {
        my $spec = find_species($file);
-       print "$file\t\t$spec\n";
+       
+       my $line = qx(head -n 1 $file);
+       chomp $line;
+       
+       my $gene = find_gene($line,$spec);
+       
+       print "$file\t\t$spec\t\t$gene\n";
 }
+
+print "\nIf it it didn't die with an error and looks correct, species and gene lookup is okay\n\n";
+