connect.tcl

网络数据管理协议的开发

#                               -*- Mode: Tcl -*- 
# connect.tcl
# 
# Description     : NDMP connect request message tests.
# 
# Copyright (c) 1996,1997 PDC, Network Appliance. All Rights Reserved.
#
# $Id: connect.tcl,v 1.4 1998/02/09 06:40:10 tim Exp $
# 

if ![info exists env(SYSTEM_SCRIPT)] {
    source system.tcl
} else {
    source $env(SYSTEM_SCRIPT)
}

# Test handling of invalid protocol version
# The following should generate an error
connect_open 5

# The following should work.
connect_open 3

# Attempt to authenticate server before authenticating connection.
# This should fail.
connect_server_auth text

# Lets see if auth type NONE is supported
connect_client_auth none

# Test handling of a bogus user
connect_client_auth text bogus-user bogus-password

# Test handling of an incorrect password
connect_client_auth text root bogus-password

# Test connection authentication
eval $auth_cmd

# Test connection authentication using MD5.
connect_client_auth md5 root ndmpsdk

# Test server authentication.
connect_server_auth none
connect_server_auth text
connect_server_auth md5

connect_close