# This testcase is part of GDB, the GNU debugger.
-# Copyright 2007, 2009, 2010 Free Software Foundation, Inc.
+# Copyright 2007-2013 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
load_lib gdbserver-support.exp
-set testfile "server"
-set srcfile ${testfile}.c
-set binfile ${objdir}/${subdir}/ext-run
+standard_testfile server.c
if { [skip_gdbserver_tests] } {
return 0
}
-if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
+if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
return -1
}
gdb_load $binfile
gdb_reinitialize_dir $srcdir/$subdir
+# Make sure we're disconnected, in case we're testing with an
+# extended-remote board, therefore already connected.
+gdb_test "disconnect" ".*"
+
set target_exec [gdbserver_download_current_prog]
gdbserver_start_extended
# On Linux, gdbserver can also report the list of processes.
# But only if xml support is compiled in.
if { $do_xml_test } {
- gdb_test "info os processes" ".*pid +user +command.*1 +root +\[/a-z\]*init.*" "get process list"
+ # This is done in a way to avoid the timeout that can occur from
+ # applying .* regexp to large output.
+ gdb_test_sequence "info os processes" "get process list" \
+ { "pid +user +command" "1 +root +\[/a-z\]*(init|systemd)" }
}
}
gdb_test "kill" "" "kill" "Kill the program being debugged.*" "y"
-gdb_test "monitor exit" ""
+
+gdb_load $binfile
+gdb_test "monitor help" "The following monitor commands.*" \
+ "load new file without any gdbserver inferior"
+
+gdb_test_no_output "monitor exit"