From patchwork Fri Jul 26 18:51:31 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tom Tromey X-Patchwork-Id: 33816 Received: (qmail 25732 invoked by alias); 26 Jul 2019 18:51:43 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 25483 invoked by uid 89); 26 Jul 2019 18:51:41 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-18.9 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, KAM_SHORT, RCVD_IN_DNSWL_NONE, SPF_HELO_PASS autolearn=ham version=3.3.1 spammy= X-HELO: gateway24.websitewelcome.com Received: from gateway24.websitewelcome.com (HELO gateway24.websitewelcome.com) (192.185.51.172) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 26 Jul 2019 18:51:39 +0000 Received: from cm13.websitewelcome.com (cm13.websitewelcome.com [100.42.49.6]) by gateway24.websitewelcome.com (Postfix) with ESMTP id 0B729796B for ; Fri, 26 Jul 2019 13:51:38 -0500 (CDT) Received: from box5379.bluehost.com ([162.241.216.53]) by cmsmtp with SMTP id r5JahZfywYTGMr5JahOGGj; Fri, 26 Jul 2019 13:51:38 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=tromey.com; s=default; h=References:In-Reply-To:Message-Id:Date:Subject:Cc:To:From: Sender:Reply-To:MIME-Version:Content-Type:Content-Transfer-Encoding: Content-ID:Content-Description:Resent-Date:Resent-From:Resent-Sender: Resent-To:Resent-Cc:Resent-Message-ID:List-Id:List-Help:List-Unsubscribe: List-Subscribe:List-Post:List-Owner:List-Archive; bh=0J2ydfFyh87PuNMt7IDAi11VHyZBm6xm2kQDS9zifLk=; b=PXjEIs0JTLqJAhFXag94Y0Hhgl R01J8Qsh1qQJCOxwIHsEsoII/Ucspkfi/3+MMusjX+7ssRNsBLiNwxPLXI4/pBO1jSHUn/Zgs1mox 11LRFjkusxl3+wBeYtIaK8ojK; Received: from 97-122-178-82.hlrn.qwest.net ([97.122.178.82]:48912 helo=bapiya.Home) by box5379.bluehost.com with esmtpsa (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256) (Exim 4.92) (envelope-from ) id 1hr5JZ-002aT1-QR; Fri, 26 Jul 2019 13:51:37 -0500 From: Tom Tromey To: gdb-patches@sourceware.org Cc: Tom Tromey Subject: [PATCH v2 5/8] Add TUI test for "list" Date: Fri, 26 Jul 2019 12:51:31 -0600 Message-Id: <20190726185134.1856-6-tom@tromey.com> In-Reply-To: <20190726185134.1856-1-tom@tromey.com> References: <20190726185134.1856-1-tom@tromey.com> This adds a test to check that the "list" command will update the TUI source window. 2019-07-21 Tom Tromey * gdb.tui/list.exp: New file. --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/gdb.tui/list.exp | 40 ++++++++++++++++++++++++++++++++++ 2 files changed, 44 insertions(+) create mode 100644 gdb/testsuite/gdb.tui/list.exp diff --git a/gdb/testsuite/gdb.tui/list.exp b/gdb/testsuite/gdb.tui/list.exp new file mode 100644 index 00000000000..0229b81c8a7 --- /dev/null +++ b/gdb/testsuite/gdb.tui/list.exp @@ -0,0 +1,40 @@ +# Copyright 2019 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 . + +# Ensure that "list" will switch to the source view. + +load_lib "tuiterm.exp" + +standard_testfile tui-layout.c + +if {[build_executable "failed to prepare" ${testfile} ${srcfile}] == -1} { + return -1 +} + +Term::clean_restart 24 80 $testfile +if {![Term::enter_tui]} { + unsupported "TUI not supported" +} + +set text [Term::get_all_lines] +gdb_assert {[regexp "No Source Available" $text]} "initial source listing" + +Term::command "layout asm" +set text [Term::get_all_lines] +gdb_assert {[regexp "$hex
" $text]} "asm window shows main" + +Term::command "list main" +set text [Term::get_all_lines] +gdb_assert {[regexp "21 *return 0" $text]} "list main"