#!/bin/sh

test_description='pdsh dynamic module support'

TEST_MODULE_PATH="$(pwd)/test-modules"

. ${srcdir:-.}/test-lib.sh

if ! test_have_prereq DYNAMIC_MODULES; then
	skip_all='skipping dynamic module tests, pdsh built with static modules'
	test_done
fi


if ! test -f $TEST_MODULE_PATH/a.la -a -f $TEST_MODULE_PATH/b.la; then
	echo "$0: Test modules A & B not built, please run \"make check.\"" >&2
	exit 1
fi


module_list () {
	pdsh -L "$EXTRA_PDSH_ARGS" 2>&1 | \
		perl -n -e '\
			chomp; ($k,$v) = split(/: */);
			$m = $v if ($k eq "Module");
			print "$m $v\n" if ($k eq "Active");'
}

loaded_modules() {
	module_list | awk '$2 == "yes" {print $1}'
}

conflicting_modules() {
	module_list | awk '$2 == "no" {print $1}'
}

module_is_active() {
	loaded_modules | while read m; do
		if [ "$m" = "$1" ]; then
			return 0
        fi 
	done
}

module_is_inactive() {
	conflicting_modules | while read m; do
		if [ "$m" = "$1" ]; then
			return 0
        fi 
	done
}

test_output_matches() {
	OUTPUT="$1"
	PATTERN="$2"
	if ! echo "$OUTPUT" | grep -q "$PATTERN" ; then
		say_color error "Error: Didn't find pattern \"$PATTERN\""
		say_color info  "OUTPUT=$OUTPUT"
		false
	fi
}

unset EXTRA_PDSH_ARGS

test_expect_success NOTROOT 'PDSH_MODULE_DIR functionality' '
	PDSH_MODULE_DIR=$TEST_DIRECTORY/test-modules
	module_is_active A && module_is_active B
'

export PDSH_MODULE_DIR="$TEST_DIRECTORY/test-modules"

test_expect_success NOTROOT 'module A takes precedence over B' '
	module_is_active misc/A && module_is_inactive misc/B
'

test_expect_success NOTROOT 'pdsh -M B ativates module B' '
	EXTRA_PDSH_ARGS="-M B" 
	module_is_active misc/B && module_is_inactive misc/A
'
test_expect_success NOTROOT 'PDSH_MISC_MODULES option works' '
	PDSH_MISC_MODULES=B
	module_is_active misc/B && module_is_inactive misc/A
'
test_expect_success NOTROOT '-M option overrides PDSH_MISC_MODULES environment var' '
	OUTPUT=$(PDSH_MISC_MODULES=B pdsh -MA -L 2>&1)
	say_color error "$OUTPUT"
'
test_expect_success NOTROOT 'pdsh help string correctly displays options of loaded modules' '
	OUTPUT=$(pdsh -h 2>&1 | grep ^-a) &&
	test_output_matches "$OUTPUT" "Module A" &&
	OUTPUT=$(pdsh -M B -h 2>&1 | grep ^-a) &&
	test_output_matches "$OUTPUT" "Module B"
'
test_expect_success NOTROOT 'Loading conflicting module with -M causes error' '
	OUTPUT=$(pdsh -MA,B 2>&1 | grep Warning)
	test_output_matches "$OUTPUT" \
		"Failed to initialize requested module \"misc/B\""
'

test_expect_success NOTROOT 'Conflicting modules dont run init()' '
    PDSH_MODULE_DIR=$TEST_DIRECTORY/test-modules
    if pdsh -q 2>&1 | grep "B: in init"; then
	    say_color error "Error: init routine for module B run unexpectedly"
		false
	fi
'
test_expect_success NOTROOT 'Force loaded module runs init()' '
    PDSH_MODULE_DIR=$TEST_DIRECTORY/test-modules
    if ! pdsh -q -MB 2>&1 | grep "B: in init"; then
	    say_color error "Error: init routine for module B not run with -M B"
		false
    fi
'
test_expect_success NOTROOT 'New conflicting module does not run init() with -M' '
    PDSH_MODULE_DIR=$TEST_DIRECTORY/test-modules
    if pdsh -q -MB 2>&1 | grep "A: in init"; then
		say_color error "Error: A init routine run with -M B"
		false
	fi
'

test_done