diff options
-rw-r--r-- | gdb/selftest-arch.c | 29 | ||||
-rw-r--r-- | gdb/selftest-arch.h | 3 | ||||
-rw-r--r-- | gdb/testsuite/gdb.gdb/unittest.exp | 25 |
3 files changed, 47 insertions, 10 deletions
diff --git a/gdb/selftest-arch.c b/gdb/selftest-arch.c index 1375838..f434da7 100644 --- a/gdb/selftest-arch.c +++ b/gdb/selftest-arch.c @@ -49,14 +49,15 @@ static bool skip_arch (const char *arch) return false; } -/* Register a kind of selftest that calls the test function once for each - gdbarch known to GDB. */ +/* Generate a selftest for each gdbarch known to GDB. */ -void -register_test_foreach_arch (const std::string &name, - self_test_foreach_arch_function *function) +static std::vector<selftest> +foreach_arch_test_generator (const std::string &name, + self_test_foreach_arch_function *function) { + std::vector<selftest> tests; std::vector<const char *> arches = gdbarch_printable_names (); + tests.reserve (arches.size ()); for (const char *arch : arches) { if (skip_arch (arch)) @@ -73,10 +74,22 @@ register_test_foreach_arch (const std::string &name, reset (); }); - std::string test_name - = name + std::string ("::") + std::string (arch); - register_test (test_name, test_fn); + tests.emplace_back (string_printf ("%s::%s", name.c_str (), arch), + test_fn); } + return tests; +} + +/* See selftest-arch.h. */ + +void +register_test_foreach_arch (const std::string &name, + self_test_foreach_arch_function *function) +{ + add_lazy_generator ([=] () + { + return foreach_arch_test_generator (name, function); + }); } void diff --git a/gdb/selftest-arch.h b/gdb/selftest-arch.h index f359e4a..6bdef26 100644 --- a/gdb/selftest-arch.h +++ b/gdb/selftest-arch.h @@ -23,6 +23,9 @@ typedef void self_test_foreach_arch_function (struct gdbarch *); namespace selftests { + +/* Register a selftest running FUNCTION for each arch supported by GDB. */ + extern void register_test_foreach_arch (const std::string &name, self_test_foreach_arch_function *function); diff --git a/gdb/testsuite/gdb.gdb/unittest.exp b/gdb/testsuite/gdb.gdb/unittest.exp index 46583cd..2967b99 100644 --- a/gdb/testsuite/gdb.gdb/unittest.exp +++ b/gdb/testsuite/gdb.gdb/unittest.exp @@ -58,11 +58,12 @@ proc run_selftests { binfile } { } -re "Selftests have been disabled for this build.\r\n$gdb_prompt $" { unsupported $test + set num_ran 0 set enabled 0 } } - return $enabled + return [list $enabled $num_ran] } # Test completion of command "maintenance selftest". @@ -86,7 +87,27 @@ proc_with_prefix test_completion {} { } with_test_prefix "no executable loaded" { - set self_tests_enabled [run_selftests ""] + set res [run_selftests ""] + set self_tests_enabled [lindex $res 0] + set num_ran [lindex $res 1] +} + +if { $self_tests_enabled && ![is_remote host] } { + # Check that we have the same amount of selftests whatever the + # initialization order of GDB. + with_test_prefix "reversed initialization" { + save_vars { env(GDB_REVERSE_INIT_FUNCTIONS) } { + if [info exists env(GDB_REVERSE_INIT_FUNCTIONS)] { + unset env(GDB_REVERSE_INIT_FUNCTIONS) + } else { + set env(GDB_REVERSE_INIT_FUNCTIONS) 1 + } + + set res [run_selftests ""] + gdb_assert "$num_ran == [lindex $res 1]" \ + "selftest not dependent on initialization order" + } + } } with_test_prefix "executable loaded" { |