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
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#!/usr/bin/perl -w
#
# Run this program on the integrator.
#
# - Tests module parameter default values.
# - Tests setting of valid module parameter values via modprobe.
# - Tests invalid module parameter values.
# -----------------------------------------------------------------------------
use strict;
use dwc_otg_test;
check_arch() or die;
#
#
sub test {
my ($param,$expected) = @_;
my $value = get($param);
if ($value == $expected) {
print "$param = $value, okay\n";
}
else {
warn "ERROR: value of $param != $expected, $value\n";
$errors ++;
}
}
#
#
sub get {
my $param = shift;
my $tmp = `cat $paramdir/$param`;
chomp $tmp;
return $tmp;
}
#
#
sub test_main {
print "\nTesting Module Parameters\n";
load_module("") or die;
# Test initial values
print "\nTesting Default Values\n";
foreach (@{$params}) {
test ($_->{NAME}, $_->{DEFAULT});
}
# Test low value
print "\nTesting Low Value\n";
my $cmd_params = "";
foreach (@{$params}) {
$cmd_params = $cmd_params . "$_->{NAME}=$_->{LOW} ";
}
load_module($cmd_params) or die;
foreach (@{$params}) {
test ($_->{NAME}, $_->{LOW});
}
# Test high value
print "\nTesting High Value\n";
$cmd_params = "";
foreach (@{$params}) {
$cmd_params = $cmd_params . "$_->{NAME}=$_->{HIGH} ";
}
load_module($cmd_params) or die;
foreach (@{$params}) {
test ($_->{NAME}, $_->{HIGH});
}
# Test Enum
print "\nTesting Enumerated\n";
foreach (@{$params}) {
if (defined $_->{ENUM}) {
my $value;
foreach $value (@{$_->{ENUM}}) {
$cmd_params = "$_->{NAME}=$value";
load_module($cmd_params) or die;
test ($_->{NAME}, $value);
}
}
}
# Test Invalid Values
print "\nTesting Invalid Values\n";
$cmd_params = "";
foreach (@{$params}) {
$cmd_params = $cmd_params . sprintf "$_->{NAME}=%d ", $_->{LOW}-1;
}
load_module($cmd_params) or die;
foreach (@{$params}) {
test ($_->{NAME}, $_->{DEFAULT});
}
$cmd_params = "";
foreach (@{$params}) {
$cmd_params = $cmd_params . sprintf "$_->{NAME}=%d ", $_->{HIGH}+1;
}
load_module($cmd_params) or die;
foreach (@{$params}) {
test ($_->{NAME}, $_->{DEFAULT});
}
print "\nTesting Enumerated\n";
foreach (@{$params}) {
if (defined $_->{ENUM}) {
my $value;
foreach $value (@{$_->{ENUM}}) {
$value = $value + 1;
$cmd_params = "$_->{NAME}=$value";
load_module($cmd_params) or die;
test ($_->{NAME}, $_->{DEFAULT});
$value = $value - 2;
$cmd_params = "$_->{NAME}=$value";
load_module($cmd_params) or die;
test ($_->{NAME}, $_->{DEFAULT});
}
}
}
test_status() or die;
}
test_main();
0;
|