perl-Net-SSLeay.sh

#!/bin/bash
###########################################################################################
## Copyright 2003, 2015 IBM Corp                                                          ##
##                                                                                        ##
## Redistribution and use in source and binary forms, with or without modification,       ##
## are permitted provided that the following conditions are met:                          ##
##	1.Redistributions of source code must retain the above copyright notice,          ##
##        this list of conditions and the following disclaimer.                           ##
##	2.Redistributions in binary form must reproduce the above copyright notice, this  ##
##        list of conditions and the following disclaimer in the documentation and/or     ##
##        other materials provided with the distribution.                                 ##
##                                                                                        ##
## THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS AND ANY EXPRESS       ##
## OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF        ##
## MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL ##
## THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,    ##
## EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF     ##
## SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) ##
## HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,  ##
## OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS  ##
## SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.                           ##
############################################################################################
### File :       perl-Net-SSLeay.sh                                           ##
##
### Description: Test for perl-Net-SSLeay  package                             ##
##
### Author:      Athira Rajeev <atrajeev@in.ibm.com>                     ##
###########################################################################################

######cd $(dirname $0)
#LTPBIN=${LTPBIN%/shared}/perl_Net_SSLeay
source $LTPBIN/tc_utils.source
TESTS_DIR="${LTPBIN%/shared}/perl_Net_SSLeay"
REQUIRED="perl"

function tc_local_setup()
{
	tc_exec_or_break $REQUIRED || return 
}

function install_check()
{
        tc_check_package perl-Net-SSLeay
	tc_break_if_bad $? "perl-Net-SSLeay not installed"
}

function run_test()
{
	pushd $TESTS_DIR >/dev/null
	# Excluding t/local/00_ptr_cast.t 
	# as it tests compiling binary for 
	# casting integer pointer
	TESTS=`ls t/local/*.t t/handle/local/*.t | grep -v t/local/00_ptr_cast.t | grep -v t/local/04_basic.t`
	TST_TOTAL=`echo $TESTS | wc -w`+1
	for test in $TESTS; do
		tc_register "Test $test" 
		perl $test >$stdout 2>$stderr 
		tc_pass_or_fail $? "$test failed"
	done
		tc_register "Test t/local/04_basic.t"
		perl t/local/04_basic.t >$stdout 2>$stderr
		RC=$?
		if [ `grep -v "Version info" $stderr | grep -v "Testing Net" $stderr | grep -v "OpenSSL version" $stderr \
		| grep -v "OpenSSL platform" $stderr | grep -v "^$*" $stderr | wc -l` -eq 0 ] 
			then
			cat /dev/null > $stderr
			fi
		tc_pass_or_fail $RC "$test failed"
	popd >/dev/null
}

#
# main
#
tc_setup
install_check && run_test