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
|
#===============================================================================
#
# bulk-boundaries.tcl
#
# Support for USB testing
#
#===============================================================================
## ####ECOSGPLCOPYRIGHTBEGIN####
## -------------------------------------------
## This file is part of eCos, the Embedded Configurable Operating System.
## Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
##
## eCos 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 or (at your option) any later
## version.
##
## eCos 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 eCos; if not, write to the Free Software Foundation, Inc.,
## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
##
## As a special exception, if other files instantiate templates or use
## macros or inline functions from this file, or you compile this file
## and link it with other works to produce a work based on this file,
## this file does not by itself cause the resulting work to be covered by
## the GNU General Public License. However the source code for this file
## must still be made available in accordance with section (3) of the GNU
## General Public License v2.
##
## This exception does not invalidate any other reasons why a work based
## on this file might be covered by the GNU General Public License.
## -------------------------------------------
## ####ECOSGPLCOPYRIGHTEND####
#===============================================================================
######DESCRIPTIONBEGIN####
#
# Author(s): asl
# Date: 2006-04-21
# Purpose: Test the bulk endpoints with different sizes of packets
# at the important boundaries.
#
#####DESCRIPTIONEND####
#===============================================================================
set pktsizes { 1 2 3 4 5 7 8 9 15 16 17 31 32 33 63 64 65 127 128 129 \
255 256 257 511 512 513 1023 1024 1025 2047 2048 2049 \
4095 4096 4097 }
if { 0 != [llength $usbtest::bulk_in_endpoints] } {
puts "Bulk IN endpoints: $usbtest::bulk_in_endpoints"
foreach ep $usbtest::bulk_in_endpoints {
puts [format " %2d: packet sizes %d to %d, padding %d" $ep \
$usbtest::bulk_in($ep,min_size) \
$usbtest::bulk_in($ep,max_size) \
$usbtest::bulk_in($ep,max_in_padding)]
foreach pktsize $pktsizes {
if { $pktsize <= $usbtest::bulk_in($ep,max_size) } {
puts [format "Testing IN endpoint %d with packet size %4d" \
$ep $pktsize]
usbtest::reset
usbtest::bulktest $ep in 5 txsize1=$pktsize format=byteseq \
data1=42 data* $usbtest::MULTIPLIER \
data+ $usbtest::INCREMENT
if { [usbtest::start 10] } {
puts "Passed"
} else {
puts "Failed"
foreach result $usbtest::results {
puts $result
}
}
}
}
}
}
if { 0 != [llength $usbtest::bulk_out_endpoints] } {
puts "Bulk OUT endpoints: $usbtest::bulk_out_endpoints"
foreach ep $usbtest::bulk_out_endpoints {
puts [format " %2d: packet sizes %d to %d" $ep \
$usbtest::bulk_out($ep,min_size) \
$usbtest::bulk_out($ep,max_size)]
foreach pktsize $pktsizes {
if { $pktsize <= $usbtest::bulk_out($ep,max_size) } {
puts [format "Testing OUT endpoint %d with packet size %4d" \
$ep $pktsize]
usbtest::reset
usbtest::bulktest $ep out 5 txsize1=$pktsize format=byteseq \
data1=42 data* $usbtest::MULTIPLIER \
data+ $usbtest::INCREMENT rxsize1=4096
if { [usbtest::start 10] } {
puts "Passed"
} else {
puts "Failed"
foreach result $usbtest::results {
puts $result
}
}
}
}
}
}
|
