1# Copyright (C) 2021-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 GCC; see the file COPYING3. If not see 15# <http://www.gnu.org/licenses/>. 16 17load_lib libphobos-dg.exp 18 19set dg-output-text [list] 20 21# Test, arguments to pass to the test program, and return code. 22set config_test_list [list \ 23 { test19433 "--DRT-dont-eat-me" 0 } \ 24 { test20459 "foo bar -- --DRT-gcopts=profile:1" 0 } \ 25 { test22523 "-- --DRT-testmode=run-main" 0 } \ 26] 27 28# Initialize dg. 29dg-init 30 31# Main loop. 32foreach config_test $config_test_list { 33 set test "$srcdir/$subdir/[lindex $config_test 0].d" 34 35 set libphobos_run_args "[lindex $config_test 1]" 36 set shouldfail [lindex $config_test 2] 37 set libphobos_test_name "[dg-trim-dirname $srcdir $test] $libphobos_run_args" 38 39 dg-runtest $test "" $DEFAULT_DFLAGS 40 41 set libphobos_test_name "" 42 set shouldfail 0 43 set libphobos_run_args "" 44} 45 46# All done. 47dg-finish 48