From 51d105180001bb8c0be8c1ea8b59a10b6e602f34 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Sat, 29 Jan 2011 10:24:44 +0000
Subject: [PATCH] added version test of perl and ruby

git-svn-id: http://biopieces.googlecode.com/svn/trunk@1221 74ccb610-7750-0410-82ae-013aeee3265d
---
 bp_test/lib/test.sh | 26 ++++++++++++++++++++++++++
 bp_test/test_all    |  3 +++
 2 files changed, 29 insertions(+)

diff --git a/bp_test/lib/test.sh b/bp_test/lib/test.sh
index fd2566d..5d33f1d 100755
--- a/bp_test/lib/test.sh
+++ b/bp_test/lib/test.sh
@@ -96,3 +96,29 @@ function clean
         rm "$tmp"
     fi
 }
+
+function test_perl
+{
+    echo -n "Testing Perl version ... "
+
+    if error=$( perl -e 'use 5.8.0;' 2>&1 ); then
+        echo_green "OK"
+    else
+        echo $error | sed "s/, stopped.*//"
+        echo_red "FAIL"
+        exit
+    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
+        echo_green "OK"
+    else
+        echo $error | sed "s/.*: //"
+        echo_red "FAIL"
+        exit
+    fi  
+}
diff --git a/bp_test/test_all b/bp_test/test_all
index 6e2ddc8..397db6a 100755
--- a/bp_test/test_all
+++ b/bp_test/test_all
@@ -6,6 +6,9 @@ if [ -f $log_file ]; then
     rm $log_file
 fi
 
+test_perl
+test_ruby
+
 count=0
 time0=`date +%s`
 
-- 
2.39.2