blob: 34e8f198e320fe6944951dd0a386d3bb15ccc35a (
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
|
#!/bin/sh
#
# PM-QA validation test suite for the power management on Linux
#
# Copyright (C) 2011, Linaro Limited.
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
#
# Contributors:
# Amit Daniel <amit.kachhap@linaro.org> (Samsung Electronics)
# - initial API and implementation
#
# URL : https://wiki.linaro.org/WorkingGroups/PowerManagement/Resources/TestSuite/PmQaSpecification#thermal_01
. ../include/functions.sh
ATTRIBUTES="mode temp type uevent"
check_thermal_zone_attributes() {
zone_name=$1
dirpath=$THERMAL_PATH/$zone_name
shift 1
for attribute in $ATTRIBUTES; do
check_file $attribute $dirpath || return 1
done
check_valid_temp "temp" $zone_name || return 1
}
check_thermal_zone_mode() {
zone_name=$1
dirpath=$THERMAL_PATH/$zone_name
shift 1
prev_mode=$(cat $dirpath/mode)
echo -n enabled > $dirpath/mode
cur_mode=$(cat $dirpath/mode)
check "$zone_name cur_mode=$cur_mode"\
"test $cur_mode = enabled" || return 1
echo -n disabled > $dirpath/mode
cur_mode=$(cat $dirpath/mode)
check "$zone_name cur_mode=$cur_mode"\
"test $cur_mode = disabled" || return 1
echo $prev_mode > $dirpath/mode
}
check_thermal_zone_trip_level() {
thermal_zones=$(ls $THERMAL_PATH | grep "thermal_zone['$MAX_ZONE']")
for thermal_zone in $thermal_zones; do
for_each_trip_point_of_zone $thermal_zone "validate_trip_level" || return 1
done
}
check_thermal_zone_bindings() {
thermal_zones=$(ls $THERMAL_PATH | grep "thermal_zone['$MAX_ZONE']")
for thermal_zone in $thermal_zones; do
for_each_binding_of_zone $thermal_zone "validate_trip_bindings" || return 1
done
}
for_each_thermal_zone check_thermal_zone_attributes
for_each_thermal_zone check_thermal_zone_mode
check_thermal_zone_trip_level
check_thermal_zone_bindings
test_status_show
|