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

}