diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c7ac56a65a2..05418ed35ad 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,16 @@ +2005-12-05 Janis Johnson + + PR testsuite/25247 + * lib/target-supports-dg.exp (dg-skip-if): Fix target selector for + use in selector expressions. + (dg-xfail-if): Ditto. + * gcc.test-framework/dg-dot-run-sif-exp-P.c: New test. + * gcc.test-framework/dg-dot-run-sif-exp-U.c: New test. + * gcc.test-framework/dg-dot-run-xif-exp-P.c: New test. + * gcc.test-framework/dg-dot-run-xif-exp-XP.c: New test. + * gcc.test-framework/test-framework.exp: Skip generated tests if + CHECK_TEST_FRAMEWORK is not 1. + 2005-12-05 Eric Botcazou PR tree-optimization/24963 diff --git a/gcc/testsuite/gcc.test-framework/dg-dot-run-sif-exp-P.c b/gcc/testsuite/gcc.test-framework/dg-dot-run-sif-exp-P.c new file mode 100644 index 00000000000..bf473616abb --- /dev/null +++ b/gcc/testsuite/gcc.test-framework/dg-dot-run-sif-exp-P.c @@ -0,0 +1,8 @@ +/* { dg-do run { target { *-*-* && yes } } } */ +/* { dg-skip-if "comment" { no && yes } { "*" } { "" } } */ + +int +main () +{ + return 0; +} diff --git a/gcc/testsuite/gcc.test-framework/dg-dot-run-sif-exp-U.c b/gcc/testsuite/gcc.test-framework/dg-dot-run-sif-exp-U.c new file mode 100644 index 00000000000..65008c8ab28 --- /dev/null +++ b/gcc/testsuite/gcc.test-framework/dg-dot-run-sif-exp-U.c @@ -0,0 +1,8 @@ +/* { dg-do run { target { *-*-* || no } } } */ +/* { dg-skip-if "comment" { *-*-* && yes } { "*" } { "" } } */ + +int +main () +{ + return 0; +} diff --git a/gcc/testsuite/gcc.test-framework/dg-dot-run-xif-exp-P.c b/gcc/testsuite/gcc.test-framework/dg-dot-run-xif-exp-P.c new file mode 100644 index 00000000000..eb2af26081f --- /dev/null +++ b/gcc/testsuite/gcc.test-framework/dg-dot-run-xif-exp-P.c @@ -0,0 +1,8 @@ +/* { dg-do run { target { *-*-* && yes } } } */ +/* { dg-xfail-if "comment" { empty-*-* && yes } { "*" } { "" } } */ + +int +main () +{ + return 0; +} diff --git a/gcc/testsuite/gcc.test-framework/dg-dot-run-xif-exp-XP.c b/gcc/testsuite/gcc.test-framework/dg-dot-run-xif-exp-XP.c new file mode 100644 index 00000000000..59cb7689401 --- /dev/null +++ b/gcc/testsuite/gcc.test-framework/dg-dot-run-xif-exp-XP.c @@ -0,0 +1,8 @@ +/* { dg-do compile { target { *-*-* empty-*-* } } } */ +/* { dg-xfail-if "comment" { *-*-* && yes } { "*" } { "" } } */ + +int +main () +{ + return 0; +} diff --git a/gcc/testsuite/gcc.test-framework/test-framework.exp b/gcc/testsuite/gcc.test-framework/test-framework.exp index 2e4236a584b..495ffe2cb99 100644 --- a/gcc/testsuite/gcc.test-framework/test-framework.exp +++ b/gcc/testsuite/gcc.test-framework/test-framework.exp @@ -51,6 +51,12 @@ dg-init # Run tests from the source directory. dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/dg-*.c]] "" "" +# Skip generated tests unless CHECK_TEST_FRAMEWORK is 1. +if { $env(CHECK_TEST_FRAMEWORK) != 1 } { + verbose "skipping generated test framework tests, CHECK_TEST_FRAMEWORK is not 1" 0 + return +} + # Generate additional tests. set tstobjdir "$tmpdir/gcc.test-framework" set generator "$srcdir/$subdir/gen_directive_tests" diff --git a/gcc/testsuite/lib/target-supports-dg.exp b/gcc/testsuite/lib/target-supports-dg.exp index b595149c06b..4f77f85135b 100644 --- a/gcc/testsuite/lib/target-supports-dg.exp +++ b/gcc/testsuite/lib/target-supports-dg.exp @@ -183,7 +183,7 @@ proc check_test_flags { args } { proc dg-skip-if { args } { set args [lreplace $args 0 0] - set selector "target [join [lindex $args 1]]" + set selector [list target [lindex $args 1]] if { [dg-process-target $selector] == "S" } { # The target list matched; now check the flags. The DejaGnu proc # check_conditional_xfail will look at the options in compiler_flags, @@ -223,7 +223,7 @@ proc dg-xfail-if { args } { } set args [lreplace $args 0 0] - set selector "target [join [lindex $args 1]]" + set selector [list target [lindex $args 1]] if { [dg-process-target $selector] == "S" } { global compiler_conditional_xfail_data set compiler_conditional_xfail_data [lreplace $args 1 1 "*-*-*"]