Added a test script for find_species.pl subroutines

svn path=/; revision=23

diff --git a/interactome_scripts/find_species_test.pl b/interactome_scripts/find_species_test.pl
new file mode 100755 (executable)
index 0000000..45b6fc8
--- /dev/null
+++ b/interactome_scripts/find_species_test.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+# script to test if current version of find_species.pl subroutines are correct
+#  run from protein sequences directory
+
+use strict;
+use warnings;
+
+require "$ENV{HOME}/scripts/jaiswallab/interactome_scripts/find_species.pl";
+
+my @file_array = qx(ls | grep -v ___ | grep -v bad_sequence);
+
+for(my $i =0; $i<@file_array; $i++) {
+       $file_array[$i] =~ s/\r//g;
+       $file_array[$i] =~ s/\n//g;
+       #print "$files[$i]\n";
+}
+
+foreach my $file (@file_array) {
+       my $spec = find_species($file);
+       print "$file\t\t$spec\n";
+}