diff options
Diffstat (limited to 'libphobos/testsuite/libphobos.config')
-rw-r--r-- | libphobos/testsuite/libphobos.config/config.exp | 46 | ||||
-rw-r--r-- | libphobos/testsuite/libphobos.config/test19433.d | 7 | ||||
-rw-r--r-- | libphobos/testsuite/libphobos.config/test20459.d | 5 |
3 files changed, 58 insertions, 0 deletions
diff --git a/libphobos/testsuite/libphobos.config/config.exp b/libphobos/testsuite/libphobos.config/config.exp new file mode 100644 index 00000000000..e8f4d943ff3 --- /dev/null +++ b/libphobos/testsuite/libphobos.config/config.exp @@ -0,0 +1,46 @@ +# Copyright (C) 2021 Free Software Foundation, Inc. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with GCC; see the file COPYING3. If not see +# <http://www.gnu.org/licenses/>. + +load_lib libphobos-dg.exp + +set dg-output-text [list] + +# Test, arguments to pass to the test program, and return code. +set config_test_list [list \ + { test19433 "--DRT-dont-eat-me" 0 } \ + { test20459 "foo bar -- --DRT-gcopts=profile:1" 0 } \ +] + +# Initialize dg. +dg-init + +# Main loop. +foreach config_test $config_test_list { + set test "$srcdir/$subdir/[lindex $config_test 0].d" + + set libphobos_run_args "[lindex $config_test 1]" + set shouldfail [lindex $config_test 2] + set libphobos_test_name "[dg-trim-dirname $srcdir $test] $libphobos_run_args" + + dg-runtest $test "" $DEFAULT_DFLAGS + + set libphobos_test_name "" + set shouldfail 0 + set libphobos_run_args "" +} + +# All done. +dg-finish diff --git a/libphobos/testsuite/libphobos.config/test19433.d b/libphobos/testsuite/libphobos.config/test19433.d new file mode 100644 index 00000000000..1c58145103e --- /dev/null +++ b/libphobos/testsuite/libphobos.config/test19433.d @@ -0,0 +1,7 @@ +extern(C) __gshared bool rt_cmdline_enabled = false; + +void main(string[] args) +{ + assert(args.length == 2); + assert(args[1] == "--DRT-dont-eat-me"); +} diff --git a/libphobos/testsuite/libphobos.config/test20459.d b/libphobos/testsuite/libphobos.config/test20459.d new file mode 100644 index 00000000000..248720d8f30 --- /dev/null +++ b/libphobos/testsuite/libphobos.config/test20459.d @@ -0,0 +1,5 @@ +void main (string[] args) +{ + assert(args.length == 5); + assert(args[1 .. $] == [ "foo", "bar", "--", "--DRT-gcopts=profile:1" ]); +} |