40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
# connect.test --
|
|
#
|
|
# This file tests the dp_connect and dp_accept commands.
|
|
#
|
|
|
|
if {[string compare test [info procs test]] == 1} then {source ../tests/defs}
|
|
set VERBOSE 1
|
|
|
|
if {$win == 1} {
|
|
|
|
test connect-1.1 {dp_connect command} {
|
|
list [catch {dp_connect} msg] $msg
|
|
} {1 {wrong # args: should be "dp_connect channelType ?args ...?"
|
|
Valid channel types are: packoff serial udp plugfilter identity tcp ipm }}
|
|
|
|
test connect-1.2 {dp_connect command} {
|
|
list [catch {dp_connect foobar} msg] $msg
|
|
} {1 {Unknown channel type "foobar"
|
|
Valid channel types are: packoff serial udp plugfilter identity tcp ipm }}
|
|
|
|
} else {
|
|
|
|
test connect-1.1 {dp_connect command} {
|
|
list [catch {dp_connect} msg] $msg
|
|
} {1 {wrong # args: should be "dp_connect channelType ?args ...?"
|
|
Valid channel types are: packoff serial udp plugfilter identity email tcp ipm }}
|
|
|
|
test connect-1.2 {dp_connect command} {
|
|
list [catch {dp_connect foobar} msg] $msg
|
|
} {1 {Unknown channel type "foobar"
|
|
Valid channel types are: packoff serial udp plugfilter identity email tcp ipm }}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|