remote.test   [plain text]

set srcdir [lindex $argv 0]
set subdir [lindex $argv 1]
set objdir [lindex $argv 2]

if [ file exists $objdir/setval.tmp ] {
    source $objdir/setval.tmp
} else {
    puts "ERROR: $objdir/setval.tmp doesn't exist"
}
if [ file exists $srcdir/$subdir/default_procs.tcl ] {
    source "$srcdir/$subdir/default_procs.tcl"
} else {
    puts "ERROR: $srcdir/$subdir/default_procs.tcl doesn't exist"
}

set file $srcdir/../lib/remote.exp    
if [ file exists $file] {
    source $file
} else {
    puts "ERROR: $file doesn't exist"
}

global errno ""

#
# Create a false target config array
#
set target_info(idp,name)       "idp"
set target_info(idp,ldflags)    "-Tidp.ld"
set target_info(idp,config)     m68k-unknown-aout
set target_info(idp,cflags)     ""
set target_info(idp,connect)    telnet
set target_info(idp,target)     "s12"
set target_info(idp,serial)     "tstty12"
set target_info(idp,netport)    "localhost:23"
set target_info(idp,baud)       "9600"
# MVME target
set target_info(mvme,name)      "mvme"
set target_info(mvme,ldflags)   "-Tmvme.ld"
set target_info(mvme,config)    m68k-unknown-aout
set target_info(mvme,cflags)    ""
set target_info(mvme,connect)   telnet
set target_info(mvme,target)    "s12"
set target_info(mvme,serial)    "tstty8"
set target_info(mvme,netport)   "localhost:23"
set target_info(mvme,baud)      "9600"

# Test remote open. We try not to use any of the support procs in
# target.exp to for isolation testing. "target" is the name of the
# default array setup by the procs in target.exp.

set timeout 100
set errno ""

#
# Force connection errors
#

# force an rlogin error
if { [rlogin foobar.barfoo.com] < 0 } {
    puts "PASSED: rlogin bogus host"
} else {
    puts "FAILED: rlogin bogus"
}

# force an rsh error
if { [rsh foobar.barfoo.com] < 0 } {
    puts "PASSED: rsh bogus host"
} else {
    puts "FAILED: rsh bogus"
}

# force a telnet error
if { [telnet foobar.barfoo.com] < 0 } {
    puts "PASSED: telnet bogus host"
} else {
    puts "FAILED: telnet bogus"
}

#
# Connect to localhost
#

# localhost rlogin test
if { [rlogin localhost] < 0 } {
    if [string match "*unencrypted connection" $errno] {
	NOTTESTED "rlogin localhost"
    } else {
	puts "FAILED: rlogin localhost"
    }
} else {
    puts "PASSED: rlogin localhost"
}
catch "exp_send exit\n"
catch "close -i $spawn_id"
catch "wait -i $spawn_id"

# localhost rsh test
if { [rsh localhost] < 0 } {
    if [string match "*kinit" $errno] {
	puts "NOTTESTED: rsh localhost"
    } else {
	puts "FAILED: rsh localhost"
    }
} else {
    puts "PASSED: rsh localhost"
}
catch "exp_send exit\n"
catch "close -i $spawn_id"
catch "wait -i $spawn_id"

# localhost telnet test. In this case it will return
# an error cause we get prompted for a password or login. For
# now this is considered an error, as we usually only
# telnet to a terminal server.
if { [telnet localhost] < 0 } {
    if [string match "*password." $errno] {
	puts "NOTTESTED: telnet localhost"
    } else {
	puts "FAILED: telnet localhost"
    }
} else {
    puts "PASSED: telnet localhost"
}
catch "exp_send exit\n"
catch "close -i $spawn_id"
catch "wait -i $spawn_id"

#
# Connect to the configured target
# 
set target_info(target,netport) $target_info(idp,netport)
set target_info(target,target)  localhost
set target_info(target,connect) rlogin
if { [rlogin target] < 0 } {
    if [ string match "*kinit" $errno] {
	puts "NOTTESTED: rlogin target"
    } else {
	puts "FAILED: rlogin target"
    }
} else {
    puts "PASSED: rlogin target"
}
catch "exp_send exit\n"
catch "close -i $spawn_id"
catch "wait -i $spawn_id"

# test remote_open
if { [rsh target] < 0 } {
    if [ string match "*kinit" $errno] {
	puts "NOTTESTED: rsh target"
    } else {
	puts "FAILED: rsh target"
    }
} else {
    puts "PASSED: rsh target"
}
catch "exp_send exit\n"
catch "close -i $spawn_id"
catch "wait -i $spawn_id"

# telnet to host
# FIXME: This won't work till we figure out how to telnet and
# not get a password prompt.

#
# Connect to the configured host
# 
set target_info(host,connect) rlogin
set target_info(host,netport) $target_info(idp,netport)
set target_info(host,target)  localhost

# rlogin to host
if { [rlogin host] < 0 } {
    if [ string match "*kinit*" $errno] {
	puts "NOTTESTED: rlogin host"
    } else {
	puts "FAILED: rlogin host"
    }
} else {
    puts "PASSED: rlogin host"
}
catch "exp_send exit\n"
catch "close -i $spawn_id"
catch "wait -i $spawn_id"

# rsh to host
if { [rsh host] < 0 } {
    if [ string match "*kinit*" $errno] {
	puts "NOTTESTED: rsh host"
    } else {
	puts "FAILED: rsh host"
    }
} else {
    puts "PASSED: rsh host"
}
catch "exp_send exit\n"
catch "close -i $spawn_id"
catch "wait -i $spawn_id"

# telnet to host
# FIXME: This won't work till we figure out how to telnet and
# not get a password prompt.

# tip port
# remote_close args
# rcp_download src dest
# tip_download shell_id file
# kermit args
# download args