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