From: elserj <elserj@localhost>
Date: Fri, 3 Sep 2010 21:50:06 +0000 (+0000)
Subject: Added test for genes from find_species.pl subroutines
X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=d616e5b37be7909860cd73d07a144ec5d1334bc9;p=old-jaiswallab-svn%2F.git

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 45b6fc8..e56054d 100755
--- 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";
+