[gdb/testsuite] Rewrite catch-follow-exec.exp
authorTom de Vries <tdevries@suse.de>
Thu, 4 Oct 2018 22:04:27 +0000 (00:04 +0200)
committerTom de Vries <tdevries@suse.de>
Tue, 16 Oct 2018 20:40:41 +0000 (22:40 +0200)
There are two problems with the current catch-follow-exec.exp:
- INTERNAL_GDBFLAGS (containing the datadir setting) is not used
- remote host testing doesn't work

Fix the former by using gdb_spawn_with_cmdline_opts.  Fix the latter by
requiring gdb-native.

Build on x86_64-linux with and without ubsan, and tested.

2018-10-16  Tom de Vries  <tdevries@suse.de>

PR gdb/23730
* gdb.base/catch-follow-exec.c: Add copyright notice.
* gdb.base/catch-follow-exec.exp: Rewrite to use
gdb_spawn_with_cmdline_opts.  Require gdb-native.

gdb/testsuite/ChangeLog
gdb/testsuite/gdb.base/catch-follow-exec.c
gdb/testsuite/gdb.base/catch-follow-exec.exp

index fae99216b4518f87a6fbb6c6f7b7ce45d6265406..90ce8af3ae5ba91710f3979308d58cc342ac7d5f 100644 (file)
@@ -1,3 +1,10 @@
+2018-10-16  Tom de Vries  <tdevries@suse.de>
+
+       PR gdb/23730
+       * gdb.base/catch-follow-exec.c: Add copyright notice.
+       * gdb.base/catch-follow-exec.exp: Rewrite to use
+       gdb_spawn_with_cmdline_opts.  Require gdb-native.
+
 2018-10-12  Sandra Loosemore  <sandra@codesourcery.com>
 
        * gdb.trace/actions-changed.exp: Check for arch support.
index fa68a2a34e4b337fa68336cb025e03ffd083e8e7..1a59f58aa58405cb903f9185710cf3c2962b32f6 100644 (file)
@@ -1,3 +1,20 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+   Copyright 2018 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
+   the Free Software Foundation; either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
 #include <stdio.h>
 #include <string.h>
 #include <unistd.h>
index 0e32ed4a6f6c5d725053957e1b10cc758344b0fb..c3c7c7ecddab7fcc1d28d962dbd31b69968a0b1a 100644 (file)
 
 standard_testfile
 
-if {[build_executable "failed to prepare" $testfile $srcfile debug] == -1} {
-    return -1
-}
-
-if { ![remote_file target exists /bin/bash] } {
-    unsupported "no bash"
+if { [target_info gdb_protocol] != "" } {
+    # Even though the feature under features being tested are supported by
+    # gdbserver, the way this test is written doesn't make it easy with a
+    # remote target.
+    unsupported "not native"
     return
 }
 
@@ -32,9 +31,13 @@ if { ![remote_file target exists /bin/ls] } {
     return
 }
 
+if { [build_executable "failed to prepare" $testfile $srcfile debug] == -1 } {
+    return -1
+}
+
 proc catch_follow_exec { } {
     global binfile
-    global GDB
+    global gdb_spawn_id
 
     set test "catch-follow-exec"
 
@@ -45,13 +48,36 @@ proc catch_follow_exec { } {
     append FLAGS " -ex \"run\""
     append FLAGS " -ex \"info prog\""
 
-    catch {exec /bin/bash -c "$GDB $FLAGS"} catchlog
-    send_log "$catchlog\n"
+    gdb_exit
+    if {[gdb_spawn_with_cmdline_opts "$FLAGS"] != 0} {
+       fail "spawn"
+       return
+    }
+
+    gdb_test_multiple "" "run til exit" {
+       "runtime error:" {
+           # Error in case of --enable-ubsan
+           fail "no runtime error"
+       }
+       eof {
+           set result [wait -i $gdb_spawn_id]
+           verbose $result
+
+           gdb_assert { [lindex $result 2] == 0 }
+
+           # We suspect this will be zero instead of one after fixing PR23368
+           # - "gdb goes to into background when hitting exec catchpoint with
+           # follow-exec-mode new"
+           gdb_assert { [lindex $result 3] != 0 }
+
+           # Error in case of --disable-ubsan, we get
+           # "CHILDKILLED SIGSEGV {segmentation violation}" as extra
+           # argument(s).
+           gdb_assert { [llength $result] == 4 }
+       }
 
-    if { [regexp {No selected thread} $catchlog] } {
-       pass $test
-    } else {
-       fail $test
+       remote_close host
+       clear_gdb_spawn_id
     }
 }