libstdc++-v3/testsuite/libstdc++-xmethods/xmethods.exp

   1 #   Copyright (C) 2014-2022 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program; see the file COPYING3.  If not see
  15 # <http://www.gnu.org/licenses/>.
  16
  17 load_lib gdb-test.exp
  18
  19 # Only run whole xmethods.exp in one instance, serially.
  20 if ![gcc_parallel_test_run_p xmethods] {
  21     return
  22 }
  23 gcc_parallel_test_enable 0
  24
  25 dg-init
  26 v3-build_support
  27
  28 global GDB
  29 if ![info exists ::env(GUALITY_GDB_NAME)] {
  30     if [info exists GDB] {
  31         set guality_gdb_name "$GDB"
  32     } else {
  33         set guality_gdb_name "[transform gdb]"
  34     }
  35     setenv GUALITY_GDB_NAME "$guality_gdb_name"
  36 }
  37
  38 if {! [gdb_version_check_xmethods]} {
  39     dg-finish
  40     unsupported "xmethods.exp"
  41     gcc_parallel_test_enable 1
  42     return
  43 }
  44
  45 global DEFAULT_CXXFLAGS
  46 global PCH_CXXFLAGS
  47 gdb-dg-runtest [lsort [glob $srcdir/$subdir/*.cc]] \
  48   "" "$DEFAULT_CXXFLAGS $PCH_CXXFLAGS"
  49
  50 if [info exists guality_gdb_name] {
  51     unsetenv GUALITY_GDB_NAME
  52 }
  53
  54 dg-finish
  55 gcc_parallel_test_enable 1