libstdc++-v3/testsuite/lib/dg-options.exp

   1 # Handlers for additional dg-xxx keywords in tests.
   2
   3 # Copyright (C) 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 2 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # This program is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with this program; if not, write to the Free Software
  17 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  18 # 02110-1301, USA.
  19
  20 proc dg-require-c-std { args } {
  21     if { ![ check_v3_target_c_std ] } {
  22         upvar dg-do-what dg-do-what
  23         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
  24         return
  25     }
  26     return
  27 }
  28
  29 proc dg-require-debug-mode { args } {
  30     if { ![ check_v3_target_debug_mode ] } {
  31         upvar dg-do-what dg-do-what
  32         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
  33         return
  34     }
  35     return
  36 }
  37
  38 proc dg-require-parallel-mode { args } {
  39     if { ![ check_v3_target_parallel_mode ] } {
  40         upvar dg-do-what dg-do-what
  41         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
  42         return
  43     }
  44     return
  45 }
  46
  47 proc dg-require-fileio { args } {
  48     if { ![ check_v3_target_fileio ] } {
  49         upvar dg-do-what dg-do-what
  50         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
  51         return
  52     }
  53     return
  54 }
  55
  56 proc dg-require-namedlocale { args } {
  57     if { ![ check_v3_target_namedlocale ] } {
  58         upvar dg-do-what dg-do-what
  59         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
  60         return
  61     }
  62     return
  63 }
  64
  65 proc dg-require-sharedlib { args } {
  66     if { ![ check_v3_target_sharedlib ] } {
  67         upvar dg-do-what dg-do-what
  68         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
  69         return
  70     }
  71     return
  72 }
  73
  74 proc dg-require-time { args } {
  75     if { ![ check_v3_target_time ] } {
  76         upvar dg-do-what dg-do-what
  77         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
  78         return
  79     }
  80     return
  81 }
  82
  83 proc dg-require-rvalref { args } {
  84     if { ![ check_v3_target_rvalref ] } {
  85         upvar dg-do-what dg-do-what
  86         set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
  87         return
  88     }
  89     return
  90 }