testsuite/runtest.libs/remote.test

   1 # Test procedures in lib/remote.exp.                            -*- Tcl -*-
   2 #
   3 # Copyright (C) 1996-2019, 2020 Free Software Foundation, Inc.
   4 #
   5 # This file is part of DejaGnu.
   6 #
   7 # DejaGnu is free software: you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation, either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # DejaGnu is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 # General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with DejaGnu.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 if [ file exists $srcdir/$subdir/default_procs.tcl ] {
  21     source $srcdir/$subdir/default_procs.tcl
  22 } else {
  23     puts "ERROR: $srcdir/$subdir/default_procs.tcl doesn't exist"
  24 }
  25
  26 proc load_lib { lib } {
  27      global srcdir
  28      source $srcdir/../lib/$lib
  29 }
  30
  31 set file $srcdir/../lib/remote.exp
  32 if [ file exists $file] {
  33     source $file
  34 } else {
  35     puts "ERROR: $file doesn't exist"
  36 }
  37
  38 global errno ""
  39
  40 #
  41 # Create a false board config array
  42 #
  43 set board_info(idp,name)       "idp"
  44 set board_info(idp,ldflags)    "-Tidp.ld"
  45 set board_info(idp,config)     m68k-unknown-aout
  46 set board_info(idp,cflags)     ""
  47 set board_info(idp,connect)    telnet
  48 set board_info(idp,target)     "s12"
  49 set board_info(idp,serial)     "tstty12"
  50 set board_info(idp,netport)    "localhost:23"
  51 set board_info(idp,baud)       "9600"
  52 # MVME target
  53 set board_info(mvme,name)      "mvme"
  54 set board_info(mvme,ldflags)   "-Tmvme.ld"
  55 set board_info(mvme,config)    m68k-unknown-aout
  56 set board_info(mvme,cflags)    ""
  57 set board_info(mvme,connect)   telnet
  58 set board_info(mvme,target)    "s12"
  59 set board_info(mvme,serial)    "tstty8"
  60 set board_info(mvme,netport)   "localhost:23"
  61 set board_info(mvme,baud)      "9600"
  62
  63 # Test remote open. We try not to use any of the support procs in
  64 # target.exp to for isolation testing. "target" is the name of the
  65 # default array setup by the procs in target.exp.
  66
  67 puts "END remote.test"