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

   1 #   Copyright (C) 2011-2013 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     unsupported "prettyprinters.exp"
  34     return
  35 }
  36
  37 # This can be used to keep the .exe around.  dg-test has an option for
  38 # this but there is no way to pass it through dg-runtest.
  39 global dg-interpreter-batch-mode
  40 set dg-interpreter-batch-mode 1
  41
  42 global DEFAULT_CXXFLAGS
  43 global PCH_CXXFLAGS
  44 dg-runtest [lsort [glob $srcdir/$subdir/*.cc]] \
  45   "" "$DEFAULT_CXXFLAGS $PCH_CXXFLAGS"
  46
  47 if [info exists guality_gdb_name] {
  48     unsetenv GUALITY_GDB_NAME
  49 }
  50
  51 dg-finish