-# Copyright 1997-2016 Free Software Foundation, Inc.
+# Copyright 1997-2017 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
standard_testfile
-if {[prepare_for_testing $testfile.exp $testfile $srcfile debug]} {
- untested $testfile.exp
+if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
return -1
}
# Follow parent / keep child: two inferiors under debug, the
# parent is the current inferior.
- gdb_test "info inferiors" " 2 .*process.*\\* 1 .*process.*" \
+ gdb_test "info inferiors" "\\* 1 .*process.* 2 .*process.*" \
"info inferiors"
gdb_test "inferior 2" "Switching to inferior 2 .*"
# Follow child / detach parent: the child is under debug and is
# the current inferior. The parent is listed but is not under
# debug.
- gdb_test "info inferiors" "\\* 2 .*process.* 1 .*<null>.*" \
+ gdb_test "info inferiors" " 1 .*<null>.*\\* 2 .*process.*" \
"info inferiors"
} elseif {$who == "child" && $detach == "off"} {
# Follow child / keep parent: two inferiors under debug, the
# child is the current inferior.
- gdb_test "info inferiors" "\\* 2 .*process.* 1 .*process.*" \
+ gdb_test "info inferiors" " 1 .*process.*\\* 2 .*process.*" \
"info inferiors"
gdb_test "inferior 1" "Switching to inferior 1 .*"