Adding upstream version 1:4.13.0.upstream/1%4.13.0

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 351 insertions, 0 deletions

diff --git a/tools/ocf-tester.in b/tools/ocf-tester.in
new file mode 100755
index 0000000..cfdfd70
--- /dev/null
+++ b/tools/ocf-tester.in
@@ -0,0 +1,351 @@
+#!/bin/sh
+#
+#	$Id: ocf-tester,v 1.2 2006/08/14 09:38:20 andrew Exp $
+#
+# Copyright (c) 2006 Novell Inc, Andrew Beekhof
+#                    All Rights Reserved.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of version 2 of the GNU General Public License as
+# published by the Free Software Foundation.
+#
+# This program is distributed in the hope that it would be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+#
+# Further, this software is distributed without any warranty that it is
+# free of the rightful claim of any third person regarding infringement
+# or the like.  Any license provided herein, whether implied or
+# otherwise, applies only to this software file.  Patent licenses, if
+# any, provided herein do not apply to combinations of this program with
+# other software, or any other product whatsoever.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write the Free Software Foundation,
+# Inc., 59 Temple Place - Suite 330, Boston MA 02111-1307, USA.
+#
+
+DATADIR=@datadir@
+METADATA_LINT="xmllint --noout --valid -"
+
+# set some common meta attributes, which are expected to be
+# present by resource agents
+export OCF_RESKEY_CRM_meta_timeout=20000  # 20 seconds timeout
+export OCF_RESKEY_CRM_meta_interval=10000  # reset this for probes
+
+num_errors=0
+
+info() {
+    [ "$quiet" -eq 1 ] && return
+    echo "$*"
+}
+debug() {
+    [ "$verbose" -eq 0 ] && return
+    echo "$*"
+}
+usage() {
+    # make sure to output errors on stderr
+    [ "x$1" = "x0" ] || exec >&2
+
+    echo "Tool for testing if a cluster resource is OCF compliant"
+    echo ""
+    echo "Usage: ocf-tester [-hvqdX] -n resource_name [-o name=value]* /full/path/to/resource/agent"
+    echo ""
+    echo "Options:"
+    echo "  -h       		This text"
+    echo "  -v       		Be verbose while testing"
+    echo "  -q       		Be quiet while testing"
+    echo "  -d       		Turn on RA debugging"
+    echo "  -X       		Turn on RA tracing (expect large output)"
+    echo "  -n name		Name of the resource"	
+    echo "  -o name=value		Name and value of any parameters required by the agent"
+    exit $1
+}
+
+assert() {
+    rc=$1; shift
+    target=$1; shift
+    msg=$1; shift
+    local targetrc matched
+
+    if [ $# = 0 ]; then
+	exit_code=0
+    else
+	exit_code=$1; shift
+    fi
+
+    for targetrc in `echo $target | tr ':' ' '`; do
+        [ $rc -eq $targetrc ] && matched=1
+    done
+    if [ "$matched" != 1 ]; then
+	num_errors=`expr $num_errors + 1`
+	echo "* rc=$rc: $msg"
+	if [ $exit_code != 0 ]; then
+	    [ -n "$command_output" ] && cat<<EOF
+$command_output
+EOF
+	    echo "Aborting tests"
+	    exit $exit_code
+	fi
+    fi
+    command_output=""
+}
+
+done=0
+ra_args=""
+verbose=0
+quiet=0
+while test "$done" = "0"; do
+    case "$1" in
+	-n) OCF_RESOURCE_INSTANCE=$2; ra_args="$ra_args OCF_RESOURCE_INSTANCE=$2"; shift; shift;;
+	-o) name=${2%%=*}; value=${2#*=}; 
+		lrm_ra_args="$lrm_ra_args $2";
+		ra_args="$ra_args OCF_RESKEY_$name='$value'"; shift; shift;;
+	-v) verbose=1; shift;;
+	-d) export HA_debug=1; shift;;
+	-X) export OCF_TRACE_RA=1; verbose=1; shift;;
+	-q) quiet=1; shift;;
+	-?|--help) usage 0;;
+	--version) echo "@PACKAGE_VERSION@"; exit 0;;
+	-*) echo "unknown option: $1" >&2; usage 1;;
+	*) done=1;;
+    esac
+done
+
+if [ "x" = "x$OCF_ROOT" ]; then
+    if [ -d /usr/lib/ocf ]; then
+	export OCF_ROOT=/usr/lib/ocf
+    else
+	echo "You must supply the location of OCF_ROOT (common location is /usr/lib/ocf)" >&2
+	usage 1
+    fi
+fi
+
+if [ "x" = "x$OCF_RESOURCE_INSTANCE" ]; then
+    echo "You must give your resource a name, set OCF_RESOURCE_INSTANCE" >&2
+    usage 1
+fi
+
+agent=$1
+if [ ! -e $agent ]; then
+    echo "You must provide the full path to your resource agent" >&2
+    usage 1
+fi
+installed_rc=5
+stopped_rc=7
+has_demote=1
+has_promote=1
+
+test_permissions() {
+    action=meta-data
+    debug ${1:-"Testing permissions with uid nobody"}
+    su nobody -s /bin/sh -c "$agent $action" > /dev/null
+}
+
+test_metadata() {
+    action=meta-data
+    msg=${1:-"Testing: $action"}
+    debug $msg
+    $agent $action | (cd $DATADIR/resource-agents && $METADATA_LINT)
+    rc=$?
+    #echo rc: $rc
+    return $rc
+}
+
+test_command() {
+    action=$1; shift
+    export __OCF_ACTION=$action
+    msg=${1:-"Testing: $action"}
+    #echo Running: "export $ra_args; $agent $action 2>&1 > /dev/null"
+    if [ $verbose -eq 0 ]; then
+	command_output=`$agent $action 2>&1`
+    else
+    	debug $msg
+	$agent $action
+    fi
+    rc=$?
+    #echo rc: $rc
+    return $rc
+}
+
+# Begin tests
+info "Beginning tests for $agent..."
+
+if [ ! -f $agent ]; then
+    assert 7 0 "Could not find file: $agent"
+fi
+
+if [ `id -u` = 0 ]; then
+	test_permissions
+	assert $? 0 "Your agent has too restrictive permissions: should be 755"
+else
+	echo "WARN: Can't check agent's permissions because we're not root; they should be 755"
+fi
+
+test_metadata
+assert $? 0 "Your agent produces meta-data which does not conform to ra-api-1.dtd"
+
+OCF_TESTER_FAIL_HAVE_BINARY=1
+export OCF_TESTER_FAIL_HAVE_BINARY
+test_command meta-data
+rc=$?
+if [ $rc -eq 3 ]; then
+    assert $rc 0 "Your agent does not support the meta-data action"
+else
+    assert $rc 0 "The meta-data action cannot fail and must return 0"
+fi
+unset OCF_TESTER_FAIL_HAVE_BINARY
+
+ra_args="export $ra_args"
+eval $ra_args
+test_command validate-all
+rc=$?
+if [ $rc -eq 3 ]; then
+    assert $rc 0 "Your agent does not support the validate-all action"
+elif [ $rc -ne 0 ]; then
+    assert $rc 0 "Validation failed.  Did you supply enough options with -o ?" 1
+    usage $rc
+fi
+
+test_command monitor "Checking current state"
+rc=$?
+if [ $rc -eq 3 ]; then
+    assert $rc 7 "Your agent does not support the monitor action" 1
+
+elif [ $rc -eq 8 ]; then
+    test_command demote "Cleanup, demote"
+    assert $? 0 "Your agent was promoted and could not be demoted" 1
+
+    test_command stop "Cleanup, stop"
+    assert $? 0 "Your agent was promoted and could not be stopped" 1
+
+elif [ $rc -ne 7 ]; then
+    test_command stop
+    assert $? 0 "Your agent was active and could not be stopped" 1
+fi
+
+test_command monitor
+assert $? $stopped_rc "Monitoring a stopped resource should return $stopped_rc"
+
+OCF_TESTER_FAIL_HAVE_BINARY=1
+export OCF_TESTER_FAIL_HAVE_BINARY
+OCF_RESKEY_CRM_meta_interval=0
+test_command monitor
+assert $? $stopped_rc:$installed_rc "The initial probe for a stopped resource should return $stopped_rc or $installed_rc even if all binaries are missing"
+unset OCF_TESTER_FAIL_HAVE_BINARY
+OCF_RESKEY_CRM_meta_interval=20000
+
+test_command start
+assert $? 0 "Start failed.  Did you supply enough options with -o ?" 1
+
+test_command monitor
+assert $? 0 "Monitoring an active resource should return 0"
+
+OCF_RESKEY_CRM_meta_interval=0
+test_command monitor
+assert $? 0 "Probing an active resource should return 0"
+OCF_RESKEY_CRM_meta_interval=20000
+
+test_command notify
+rc=$?
+if [ $rc -eq 3 ]; then
+    info "* Your agent does not support the notify action (optional)"
+else
+    assert $rc 0 "The notify action cannot fail and must return 0"
+fi
+
+test_command demote "Checking for demote action"
+if [ $? -eq 3 ]; then
+    has_demote=0
+    info "* Your agent does not support the demote action (optional)"
+fi
+
+test_command promote "Checking for promote action"
+if [ $? -eq 3 ]; then
+    has_promote=0
+    info "* Your agent does not support the promote action (optional)"
+fi
+
+if [ $has_promote -eq 1 -a $has_demote -eq 1 ]; then
+    test_command demote "Testing: demotion of started resource"
+    assert $? 0 "Demoting a start resource should not fail"
+
+    test_command promote
+    assert $? 0 "Promote failed"
+
+    test_command demote
+    assert $? 0 "Demote failed" 1
+
+    test_command demote "Testing: demotion of demoted resource"
+    assert $? 0 "Demoting a demoted resource should not fail"
+
+    test_command promote "Promoting resource"
+    assert $? 0 "Promote failed" 1
+
+    test_command promote "Testing: promotion of promoted resource"
+    assert $? 0 "Promoting a promoted resource should not fail"
+
+    test_command demote "Demoting resource"
+    assert $? 0 "Demote failed" 1
+
+elif [ $has_promote -eq 0 -a $has_demote -eq 0 ]; then
+    info "* Your agent does not support promotable clones (optional)"
+
+else
+    echo "* Your agent partially supports promotable clones"
+    num_errors=`expr $num_errors + 1`
+fi
+
+test_command stop
+assert $? 0 "Stop failed" 1
+
+test_command monitor
+assert $? $stopped_rc "Monitoring a stopped resource should return $stopped_rc"
+
+test_command start "Restarting resource..."
+assert $? 0 "Start failed" 1
+
+test_command monitor
+assert $? 0 "Monitoring an active resource should return 0"
+
+test_command start "Testing: starting a started resource"
+assert $? 0 "Starting a running resource is required to succeed"
+
+test_command monitor
+assert $? 0 "Monitoring an active resource should return 0"
+
+test_command stop "Stopping resource"
+assert $? 0 "Stop could not clean up after multiple starts" 1
+
+test_command monitor
+assert $? $stopped_rc "Monitoring a stopped resource should return $stopped_rc"
+
+test_command stop "Testing: stopping a stopped resource"
+assert $? 0 "Stopping a stopped resource is required to succeed"
+
+test_command monitor
+assert $? $stopped_rc "Monitoring a stopped resource should return $stopped_rc"
+
+test_command migrate_to "Checking for migrate_to action"
+rc=$?
+if [ $rc -ne 3 ]; then
+    test_command migrate_from "Checking for migrate_from action"
+fi
+if [ $? -eq 3 ]; then
+    info "* Your agent does not support the migrate action (optional)"
+fi
+
+test_command reload "Checking for reload action"
+if [ $? -eq 3 ]; then
+    info "* Your agent does not support the reload action (optional)"
+fi
+
+if [ $num_errors -gt 0 ]; then
+    echo "Tests failed: $agent failed $num_errors tests" >&2
+    exit 1
+else 
+    echo $agent passed all tests
+    exit 0
+fi
+
+# vim:et:ts=8:sw=4