From d616e5b37be7909860cd73d07a144ec5d1334bc9 Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Fri, 3 Sep 2010 21:50:06 +0000
Subject: [PATCH] Added test for genes from find_species.pl subroutines

svn path=/; revision=26
---
 interactome_scripts/find_species_test.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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";
+
-- 
2.34.1