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

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