archie/tcl-dp/tests/connect.test
2024-05-27 16:13:40 +02:00

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 }}
}