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, write to the Free Software Foundation,
  19 # Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
  20
  21 if [ file exists $srcdir/$subdir/default_procs.tcl ] {
  22     source $srcdir/$subdir/default_procs.tcl
  23 } else {
  24     puts "ERROR: $srcdir/$subdir/default_procs.tcl doesn't exist"
  25 }
  26
  27 proc load_lib { lib } {
  28      global srcdir
  29      source $srcdir/../lib/$lib
  30 }
  31
  32 set file $srcdir/../lib/remote.exp
  33 if [ file exists $file] {
  34     source $file
  35 } else {
  36     puts "ERROR: $file doesn't exist"
  37 }
  38
  39 global errno ""
  40
  41 #
  42 # Create a false board config array
  43 #
  44 set board_info(idp,name)       "idp"
  45 set board_info(idp,ldflags)    "-Tidp.ld"
  46 set board_info(idp,config)     m68k-unknown-aout
  47 set board_info(idp,cflags)     ""
  48 set board_info(idp,connect)    telnet
  49 set board_info(idp,target)     "s12"
  50 set board_info(idp,serial)     "tstty12"
  51 set board_info(idp,netport)    "localhost:23"
  52 set board_info(idp,baud)       "9600"
  53 # MVME target
  54 set board_info(mvme,name)      "mvme"
  55 set board_info(mvme,ldflags)   "-Tmvme.ld"
  56 set board_info(mvme,config)    m68k-unknown-aout
  57 set board_info(mvme,cflags)    ""
  58 set board_info(mvme,connect)   telnet
  59 set board_info(mvme,target)    "s12"
  60 set board_info(mvme,serial)    "tstty8"
  61 set board_info(mvme,netport)   "localhost:23"
  62 set board_info(mvme,baud)      "9600"
  63
  64 # Test remote open. We try not to use any of the support procs in
  65 # target.exp to for isolation testing. "target" is the name of the
  66 # default array setup by the procs in target.exp.
  67
  68 puts "END remote.test"