added perl module and ruby gem test to bp_test

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1442 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/bp_test/lib/test.sh b/bp_test/lib/test.sh
index 68b83defc2beef6543b6ee6d2977c6ecd80ffb18..cabff6902aa99c6b53dde4af67f35c9f7db76457 100755 (executable)
--- a/bp_test/lib/test.sh
+++ b/bp_test/lib/test.sh
@@ -117,11 +117,26 @@ function test_perl
     fi  
 }
 
+function test_perl_module
+{
+    local module=$1
+
+    echo -n "Checking required Perl module - \"$module\": "
+
+    if ! error=$( perl -M$module -e '' 2>&1 > /dev/null ); then
+        echo_red "FAIL"
+        echo "   Try: perl -MCPAN -e 'install $module'"
+        exit
+    else
+        echo_green "OK"
+    fi
+}
+
 function test_ruby
 {
     echo -n "Testing Ruby version ... "
 
-    if error=$( ruby -e 'raise "Ruby version 1.9 reqauired--this is only #{RUBY_VERSION}" if RUBY_VERSION < "1.9"' 2>&1 ); then
+    if error=$( ruby -e 'raise "Ruby version 1.9 required--this is only #{RUBY_VERSION}" if RUBY_VERSION < "1.9"' 2>&1 ); then
         echo_green "OK"
     else
         echo $error | sed "s/.*: //"
@@ -129,3 +144,19 @@ function test_ruby
         exit
     fi  
 }
+
+function test_ruby_gem
+{
+    local gem=$1
+
+    echo -n "Checking required Ruby gem - \"$gem\": "
+
+    if error=$( gem list --local | grep $gem ); then
+        echo_green "OK"
+    else
+        echo_red "FAIL"
+        echo "   Try: gem install $gem"
+        exit
+    fi
+}
+

diff --git a/bp_test/test_all b/bp_test/test_all
index 397db6aa206af5235b7366d89816324299ec339f..93486494ddcd8f4c2d7b28ffc81dd0d2182c6e74 100755 (executable)
--- a/bp_test/test_all
+++ b/bp_test/test_all
@@ -7,7 +7,14 @@ if [ -f $log_file ]; then
 fi
 
 test_perl
+test_perl_module "Inline"
+test_perl_module "JSON::XS"
+test_perl_module "SVG"
+test_perl_module "Bit::Vector"
+test_perl_module "Time::HiRes"
 test_ruby
+test_ruby_gem "gnuplot"
+test_ruby_gem "narray"
 
 count=0
 time0=`date +%s`