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 bd1df14bd950289998dc7045732222ef3419c6e8..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-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
@@ -22,8 +22,7 @@ if { ![istarget "*-*-linux*"] && ![istarget "*-*-openbsd*"] } then {
 
 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
 }
 
@@ -139,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 .*"
@@ -150,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 .*"