summaryrefslogtreecommitdiff
path: root/testsuite/runtest
blob: 2cf85f5d8ee48cdb7f597c35ff25388876f71d07 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#!/bin/sh

PATH=$(dirname $(pwd)):$PATH

show_result ()
{
	local resolution=$1
	local testcase=$2
	local status=0

	if [ $resolution = XPASS -o $resolution = FAIL ]; then
		status=1
	fi

	if [ "$verbose" -o $status -eq 1 ]; then
		echo "$resolution: $testcase"
	fi

	return $status
}

run_applet_testcase ()
{
	local applet=$1
	local testcase=$2

	local status=0
	local X=

	local uc_applet=$(echo $applet | tr a-z A-Z)
	local testname=$(basename $testcase)

	if grep -q "^# CONFIG_${uc_applet} is not set$" ../.config; then
		show_result UNTESTED $testname
		return 0
	fi

	if grep -q "^# FEATURE: " $testcase; then
		local feature=`sed -ne 's/^# FEATURE: //p' $testcase`

		if grep -q "^# ${feature} is not set$" ../.config; then
			show_result UNTESTED $testname
			return 0
		fi
	fi

	if grep -q "^# XFAIL$" $testcase; then
		X=X
	fi

	mkdir tmp
	pushd tmp >/dev/null

	if . ../$testcase >/dev/null 2>&1; then
		show_result ${X}PASS $testname
		status=$?
	else
		show_result ${X}FAIL $testname
		status=$?
	fi

	popd >/dev/null
	rm -rf tmp

	return $status
}

run_applet_tests ()
{
	local applet=$1

	local status=0

	for testcase in $applet/*; do
		if [ "$testcase" = "$applet/CVS" ]; then
			continue
		fi

		if run_applet_testcase $applet $testcase; then
			:
		else
			status=1
		fi
	done

	return $status
}


status=0

if [ x"$1" = x"-v" ]; then
	verbose=1
	shift
fi

if [ $# -ne 0 ]; then
	applets="$@"
else
	applets="*"
fi

for applet in $applets; do
	if [ "$applet" != CVS -a -d "$applet" ]; then
		if run_applet_tests $applet; then
			:
		else
			status=1
		fi
	fi
done

exit $status