350 |
# COMMAND EXPECT [PATTERN] |
# COMMAND EXPECT [PATTERN] |
351 |
# COMMAND - Command to send to radtest. |
# COMMAND - Command to send to radtest. |
352 |
# EXPECT - Expect command. |
# EXPECT - Expect command. |
353 |
# PATTERN - Sequence to expect in return. If ommitted, defaults to "PASS". |
# PATTERN - Sequence to expect in return. If omitted, defaults to "PASS". |
354 |
# MESSAGE - [optional] message to output |
# MESSAGE - [optional] message to output |
355 |
proc simple_radius_test { args } { |
proc simple_radius_test { args } { |
356 |
global verbose |
global verbose |
357 |
global radtest_prompt |
global radtest_prompt |
358 |
global suppress_flag; |
global suppress_flag; |
359 |
|
global CAPABILITY |
360 |
upvar timeout timeout |
upvar timeout timeout |
361 |
|
|
362 |
set default "" |
set default "" |