From patchwork Fri Feb 9 11:56:15 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Alexandra Petlanova Hajkova X-Patchwork-Id: 85514 Return-Path: X-Original-To: patchwork@sourceware.org Delivered-To: patchwork@sourceware.org Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id CA59C3858291 for ; Fri, 9 Feb 2024 11:56:42 +0000 (GMT) X-Original-To: gdb-patches@sourceware.org Delivered-To: gdb-patches@sourceware.org Received: from us-smtp-delivery-124.mimecast.com (us-smtp-delivery-124.mimecast.com [170.10.129.124]) by sourceware.org (Postfix) with ESMTPS id 7F7853858C35 for ; Fri, 9 Feb 2024 11:56:19 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 7F7853858C35 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=redhat.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=redhat.com ARC-Filter: OpenARC Filter v1.0.0 sourceware.org 7F7853858C35 Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=170.10.129.124 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1707479781; cv=none; b=Ffl5CBapHOFg2OA2y3GVmO6nG6xUJtYM/sGWvI7Pc+L2Q23Yz8cS+AaxgZbxsfFE1qTY5vHRwzyBIyHzUa0ktgxE5IlG8ST5VBeysTcQ2LRU71jB6U5Qhz/vQUnkjCyOYsTqCCfo564ha/Qlm/w0I0uYhL0COCfL32KvzO1h9sc= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1707479781; c=relaxed/simple; bh=EuU+l6xOg11Wan4m4nLyw3cPKObWFHy4/Mf7YUL5uPI=; h=DKIM-Signature:From:To:Subject:Date:Message-ID:MIME-Version; b=DF8jehWJQUJrLLq66f8826o8ISt+1kIU1ZnYf9cBRBs6DjyMJstjRzaRiEP4CSUBRkF1oBvvXK/GWMZw6L5iCXFunQdl30y/UtpVXP/GsgxtDo3hZtxh/4xHqIzsx0e/BBDcTjoeAaD1qKQwqoPC/PCJ6f2ksiWONtT7o8VNuu0= ARC-Authentication-Results: i=1; server2.sourceware.org DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=redhat.com; s=mimecast20190719; t=1707479779; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version:content-type:content-type: content-transfer-encoding:content-transfer-encoding; bh=03W/raEKiLwsffJcpC8AzJsJtJX9PlTWMjokoQKSXZQ=; b=Kj1piyrBodhjXADO55KfIUoCl7Az9QDCplBPLIAwV8DoT0AMkATkBPdPZAnpUoEGR3F8Bt xhx1edpLp2n35Rzi0+k6f/0AzOmVx+5YV+B9LQDx+uVFp+yHcWBRfmyk5kHWNe9HrHq+o/ 3+oRziCHGnGtAviKD4ZNC9id/GkIRcU= Received: from mimecast-mx02.redhat.com (mx-ext.redhat.com [66.187.233.73]) by relay.mimecast.com with ESMTP with STARTTLS (version=TLSv1.3, cipher=TLS_AES_256_GCM_SHA384) id us-mta-463-eDrlanXSOX6dckQLRA_L8w-1; Fri, 09 Feb 2024 06:56:18 -0500 X-MC-Unique: eDrlanXSOX6dckQLRA_L8w-1 Received: from smtp.corp.redhat.com (int-mx08.intmail.prod.int.rdu2.redhat.com [10.11.54.8]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) by mimecast-mx02.redhat.com (Postfix) with ESMTPS id D26E529AA395 for ; Fri, 9 Feb 2024 11:56:17 +0000 (UTC) Received: from fedora.redhat.com (unknown [10.45.242.18]) by smtp.corp.redhat.com (Postfix) with ESMTPS id 40557C0FDCB for ; Fri, 9 Feb 2024 11:56:17 +0000 (UTC) From: =?utf-8?q?Alexandra_H=C3=A1jkov=C3=A1?= To: gdb-patches@sourceware.org Subject: [PATCH] Add a test for the gcore script. Date: Fri, 9 Feb 2024 12:56:15 +0100 Message-ID: <20240209115615.133907-1-ahajkova@redhat.com> MIME-Version: 1.0 X-Scanned-By: MIMEDefang 3.4.1 on 10.11.54.8 X-Mimecast-Spam-Score: 0 X-Mimecast-Originator: redhat.com X-Spam-Status: No, score=-10.9 required=5.0 tests=BAYES_00, DKIMWL_WL_HIGH, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, KAM_SHORT, RCVD_IN_DNSWL_NONE, RCVD_IN_MSPIKE_H2, SPF_HELO_NONE, SPF_NONE, TXREP, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.30 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: gdb-patches-bounces+patchwork=sourceware.org@sourceware.org It also tests the gcore script being run without its accessible terminal. This file was written by Jan Kratochvil a long time ago. I modernized the test making it use various procs from lib/gdb.exp and added some comments. Tested by using make check-all-boards. --- gdb/testsuite/gdb.base/gcorebg.c | 65 ++++++++++++++++++++ gdb/testsuite/gdb.base/gcorebg.exp | 95 ++++++++++++++++++++++++++++++ gdb/testsuite/lib/gdb.exp | 7 +++ 3 files changed, 167 insertions(+) create mode 100644 gdb/testsuite/gdb.base/gcorebg.c create mode 100644 gdb/testsuite/gdb.base/gcorebg.exp diff --git a/gdb/testsuite/gdb.base/gcorebg.c b/gdb/testsuite/gdb.base/gcorebg.c new file mode 100644 index 00000000000..5749e4fcc8e --- /dev/null +++ b/gdb/testsuite/gdb.base/gcorebg.c @@ -0,0 +1,65 @@ +/* Copyright 2024 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 . */ + +#include +#include +#include +#include +#include +#include +#include + +int +main (int argc, char **argv) +{ + pid_t pid = 0; + pid_t ppid; + char buf[1024*2 + 500]; + int gotint; + + if (argc != 4) + { + fprintf (stderr, "Syntax: %s {standard|detached} \n", + argv[0]); + exit (1); + } + + pid = fork (); + + switch (pid) + { + case 0: + if (strcmp (argv[1], "detached") == 0) + setpgrp (); + ppid = getppid (); + gotint = snprintf (buf, sizeof (buf), "sh %s -o %s %d", argv[2], argv[3], (int) ppid); + assert (gotint < sizeof (buf)); + system (buf); + fprintf (stderr, "Killing parent PID %d\n", ppid); + kill (ppid, SIGTERM); + break; + + case -1: + perror ("fork err\n"); + exit (1); + break; + + default: + fprintf (stderr,"Sleeping as PID %d\n", getpid ()); + sleep (60); + } + + return 0; +} diff --git a/gdb/testsuite/gdb.base/gcorebg.exp b/gdb/testsuite/gdb.base/gcorebg.exp new file mode 100644 index 00000000000..a9cbee4b580 --- /dev/null +++ b/gdb/testsuite/gdb.base/gcorebg.exp @@ -0,0 +1,95 @@ +# Copyright 2024 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 . +# +# This is a test for the gcore script (not the gcore command form +# inside GDB). It also tests the gcore script being run without its +# accessible terminal. + +standard_testfile +require {!is_remote host} +require {!is_remote target} + +set corefile [standard_output_file ${testfile}.test] + +if {[build_executable $testfile.exp $testfile ${srcfile}] == -1 } { + untested gcorebg.exp + return -1 +} + +# Cleanup. + +proc core_clean {} { + global corefile + + foreach file [glob -nocomplain [join [list $corefile *] ""]] { + verbose "Delete file $file" 1 + remote_file target delete $file + } +} +core_clean +remote_file target delete "./gdb" + +# Generate the core file. +proc test_body { detached } { + global binfile + global GCORE + global corefile + + # We can't use gdb_test_multiple here because GDB is not started. + set res [remote_spawn target "$binfile $detached $GCORE $corefile"] + if { $res < 0 || $res == "" } { + fail "Spawning $detached gcore" + return 1 + } + pass "Spawning $detached gcore" + remote_expect target 20 { + timeout { + fail "Spawned $detached gcore finished (timeout)" + remote_exec target "kill -9 -[exp_pid -i $res]" + return 1 + } + "Saved corefile .*\r\nKilling parent PID " { + pass "Spawned $detached gcore finished" + remote_wait target 20 + } + } + + if {1 == [llength [glob -nocomplain [join [list $corefile *] ""]]]} { + pass "Core file generated by $detached gcore" + } else { + fail "Core file generated by $detached gcore" + } + core_clean +} + +global env + +save_vars { $env(PATH) } { + set env(PATH) [join [list . $env(PATH)] ":"] + verbose "PATH = $env(PATH)" 2 + + # First a general gcore script spawn with its controlling terminal available. + + test_body standard + + # And now gcore script spawn without its controlling terminal available. + # It is spawned through `gcorebg.c' using setpgrp (). + + test_body detached +} + +# Cleanup. + +remote_file target delete "./gdb" diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 9a906f0f349..255b4ae7c83 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -146,6 +146,13 @@ load_lib gdb-utils.exp load_lib memory.exp load_lib check-test-names.exp +# The path to the GCORE script to test. +global GCORE +if ![info exists GCORE] { + set GCORE [findfile $base_dir/../../gcore] +} +verbose "using GCORE = $GCORE" 2 + # The path to the GDB binary to test. global GDB