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

   1 #   Copyright (C) 2011-2015 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 dg-init
  20 v3-build_support
  21
  22 global GDB
  23 if ![info exists ::env(GUALITY_GDB_NAME)] {
  24     if [info exists GDB] {
  25         set guality_gdb_name "$GDB"
  26     } else {
  27         set guality_gdb_name "[transform gdb]"
  28     }
  29     setenv GUALITY_GDB_NAME "$guality_gdb_name"
  30 }
  31
  32 if {! [gdb_version_check]} {
  33     dg-finish
  34     # Only print unsupported message in one instance.
  35     if ![gcc_parallel_test_run_p prettyprinters] {
  36         return
  37     }
  38     gcc_parallel_test_enable 0
  39     unsupported "prettyprinters.exp"
  40     gcc_parallel_test_enable 1
  41     return
  42 }
  43
  44 # This can be used to keep the .exe around.  dg-test has an option for
  45 # this but there is no way to pass it through dg-runtest.
  46 global dg-interpreter-batch-mode
  47 set dg-interpreter-batch-mode 1
  48
  49 global DEFAULT_CXXFLAGS
  50 global PCH_CXXFLAGS
  51 dg-runtest [lsort [glob $srcdir/$subdir/*.cc]] \
  52   "" "$DEFAULT_CXXFLAGS $PCH_CXXFLAGS"
  53
  54 if [info exists guality_gdb_name] {
  55     unsetenv GUALITY_GDB_NAME
  56 }
  57
  58 dg-finish