47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
# Test cleanup
# Test result
set result ""
foreach key $list2 {
if {[info exists config($key)]} {
set result $config($key)
}
}
append line [format {-match exact -result %s} $result]
# Return codes
#append line { -returnCodes 0}
|
>
>
>
>
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
# Test cleanup
# Test result
set result ""
foreach key $list2 {
if {[info exists config($key)]} {
set result $config($key)
# Convert hex to lowercase
if {[string index $result 0] ne "\""} {
set result [string tolower $result]
}
}
}
append line [format {-match exact -result %s} $result]
# Return codes
#append line { -returnCodes 0}
|