diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsuite/bluegnu.all/remote.test')
| -rw-r--r-- | contrib/bluegnu2.0.3/testsuite/bluegnu.all/remote.test | 217 |
1 files changed, 0 insertions, 217 deletions
diff --git a/contrib/bluegnu2.0.3/testsuite/bluegnu.all/remote.test b/contrib/bluegnu2.0.3/testsuite/bluegnu.all/remote.test deleted file mode 100644 index 9df5e56..0000000 --- a/contrib/bluegnu2.0.3/testsuite/bluegnu.all/remote.test +++ /dev/null @@ -1,217 +0,0 @@ -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 - - - - - - - |