Implement pahole-like 'ptype /o' option

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / foll-fork.exp

diff --git a/gdb/testsuite/gdb.base/foll-fork.exp b/gdb/testsuite/gdb.base/foll-fork.exp
index b2e2979ee95c782596be198dcb32eebd2d0d6c84..eab852b30f47093feb826aa16b570949804d030d 100644 (file)
--- a/gdb/testsuite/gdb.base/foll-fork.exp
+++ b/gdb/testsuite/gdb.base/foll-fork.exp
@@ -1,4 +1,4 @@
-#   Copyright 1997-2014 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
@@ -13,21 +13,16 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-if { [is_remote target] || ![isnative] } then {
-    continue
-}
-
 # Until "set follow-fork-mode" and "catch fork" are implemented on
 # other targets...
 #
-if {![istarget "hppa*-hp-hpux*"] && ![istarget "*-linux*"]} then {
+if { ![istarget "*-*-linux*"] && ![istarget "*-*-openbsd*"] } then {
     continue
 }
 
 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
 }
 
@@ -143,7 +138,7 @@ proc test_follow_fork { who detach cmd } {
 
            # 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 .*"
@@ -154,14 +149,14 @@ proc test_follow_fork { who detach cmd } {
            # 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 .*"