forked from Imagelibrary/binutils-gdb
* gdb.gdbtk/Makefile.in: Add new example program "stack".
* gdb.gdbtk/browser.test,browser.exp: Add browser window
tests.
* gdb.gdbtk/stack1.c,stack2.c: Test case for browser window.
This commit is contained in:
Keith Seitz
@@ -24,12 +24,16 @@ Do-first:
|
||||
Things-to-keep:
|
||||
|
||||
Makefile.in
|
||||
browser.exp
|
||||
browser.test
|
||||
configure.in
|
||||
configure
|
||||
console.exp
|
||||
console.test
|
||||
defs
|
||||
simple.c
|
||||
stack1.c
|
||||
stack2.c
|
||||
|
||||
Things-to-lose:
|
||||
|
||||
|
||||
44
gdb/testsuite/gdb.gdbtk/browser.exp
Normal file
44
gdb/testsuite/gdb.gdbtk/browser.exp
Normal file
@@ -0,0 +1,44 @@
|
||||
if {$tracelevel} {
|
||||
strace $tracelevel
|
||||
}
|
||||
|
||||
#
|
||||
# test console window
|
||||
#
|
||||
set prms_id 0
|
||||
set bug_id 0
|
||||
|
||||
set testfile "stack"
|
||||
set binfile ${objdir}/${subdir}/${testfile}
|
||||
set r [gdb_compile "${srcdir}/${subdir}/stack1.c ${srcdir}/${subdir}/stack2.c" "${binfile}" executable {debug}]
|
||||
if { $r != "" } {
|
||||
gdb_suppress_entire_file \
|
||||
"Testcase compile failed, so some tests in this file will automatically fail."
|
||||
}
|
||||
|
||||
# Start with a fresh gdbtk
|
||||
gdb_exit
|
||||
set results [gdbtk_start [file join $srcdir $subdir browser.test]]
|
||||
set results [split $results \n]
|
||||
|
||||
# Analyze results
|
||||
foreach test $results {
|
||||
set status [lindex $test 0]
|
||||
set name [lindex $test 1]
|
||||
set description [lindex $test 2]
|
||||
set msg [lindex $test 3]
|
||||
|
||||
switch $status {
|
||||
pass {
|
||||
pass "$description ($name)"
|
||||
}
|
||||
|
||||
fail {
|
||||
fail "$description ($name)"
|
||||
}
|
||||
|
||||
error {
|
||||
# We should do something with this...
|
||||
}
|
||||
}
|
||||
}
|
||||
657
gdb/testsuite/gdb.gdbtk/browser.test
Normal file
657
gdb/testsuite/gdb.gdbtk/browser.test
Normal file
@@ -0,0 +1,657 @@
|
||||
# Copyright (C) 1998 Cygnus Solutions
|
||||
#
|
||||
# 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 2 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, write to the Free Software
|
||||
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
|
||||
# Please email any bugs, comments, and/or additions to this file to:
|
||||
# bug-gdb@prep.ai.mit.edu
|
||||
|
||||
# This file was written by Keith Seitz (keiths@cygnus.com)
|
||||
|
||||
# Read in the standard defs file
|
||||
|
||||
if {![gdbtk_read_defs]} {
|
||||
break
|
||||
}
|
||||
|
||||
global objdir test_ran
|
||||
|
||||
##### #####
|
||||
# #
|
||||
# Helper functions for this module #
|
||||
# #
|
||||
##### #####
|
||||
|
||||
# Set the search expression
|
||||
proc set_regexp {exp} {
|
||||
global Regexp
|
||||
|
||||
$Regexp delete 0 end
|
||||
$Regexp insert 0 $exp
|
||||
}
|
||||
|
||||
# Do the search; attempts to filter out compiler noise
|
||||
# like _DYNAMIC_ and __bss_start.
|
||||
proc do_search {} {
|
||||
global browser Funcs
|
||||
|
||||
$browser search
|
||||
set m [$Funcs get 0 end]
|
||||
|
||||
# Bogus -- we could get things like _DYNAMIC, __bss_start, etc...
|
||||
set matches {}
|
||||
foreach a $m {
|
||||
if {![regexp ^_.* $a]} {
|
||||
lappend matches $a
|
||||
}
|
||||
}
|
||||
return $matches
|
||||
}
|
||||
|
||||
# Set search on static functions only.
|
||||
proc set_static_only {on} {
|
||||
if {$on} {
|
||||
pref set gdb/search/static 1
|
||||
} else {
|
||||
pref set gdb/search/static 0
|
||||
}
|
||||
}
|
||||
|
||||
# Set search to use regular expressions.
|
||||
proc set_use_regexp {on} {
|
||||
if {$on} {
|
||||
pref set gdb/search/use_regexp 1
|
||||
} else {
|
||||
pref set gdb/search/use_regexp 0
|
||||
}
|
||||
}
|
||||
|
||||
##### #####
|
||||
# #
|
||||
# BROWSER TESTS #
|
||||
# #
|
||||
##### #####
|
||||
|
||||
# Load the test executable
|
||||
set file [file join $objdir stack]
|
||||
gdb_cmd "file $file"
|
||||
|
||||
# Open a browser
|
||||
set browser [manage open browser]
|
||||
set Files [$browser test_get FilesLB]
|
||||
set Funcs [$browser test_get FuncsLB]
|
||||
set Regexp [$browser test_get Regexp]
|
||||
|
||||
# Test: browser-1.1
|
||||
# Desc: Check file listbox contents
|
||||
gdbtk_test browser-1.1 {file listbox contents} {
|
||||
$Files get 0 end
|
||||
} {stack1.c stack2.c}
|
||||
|
||||
# Test: browser-2.1
|
||||
# Desc: Check all files/all funcs
|
||||
gdbtk_test browser-2.1 {all files/all funcs} {
|
||||
set_regexp ""
|
||||
do_search
|
||||
} {extern_func1_1 extern_func1_10 extern_func1_11 extern_func1_12 extern_func1_13 extern_func1_14 extern_func1_15 extern_func1_2 extern_func1_3 extern_func1_4 extern_func1_5 extern_func1_6 extern_func1_7 extern_func1_8 extern_func1_9 func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9 main static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
|
||||
|
||||
# Test: browser-2.2
|
||||
# Desc: Check all functions in stack1.c
|
||||
gdbtk_test browser-2.2 {all functions in stack1.c} {
|
||||
set_regexp ""
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9 main static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.3
|
||||
# Desc: Check all functions in stack2.c
|
||||
gdbtk_test browser-2.3 {all functions in stack2.c} {
|
||||
set_regexp ""
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {extern_func1_1 extern_func1_10 extern_func1_11 extern_func1_12 extern_func1_13 extern_func1_14 extern_func1_15 extern_func1_2 extern_func1_3 extern_func1_4 extern_func1_5 extern_func1_6 extern_func1_7 extern_func1_8 extern_func1_9}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.4
|
||||
# Desc: Check for all functions matching "func"
|
||||
gdbtk_test browser-2.4 {all functions matching "func"} {
|
||||
set_regexp func
|
||||
do_search
|
||||
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9}
|
||||
|
||||
# Test: browser-2.5
|
||||
# Desc: Check all functions matching "func" in stack1.c
|
||||
gdbtk_test browser-2.5 {all functions matching "func" in stack1.c} {
|
||||
set_regexp func
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.6
|
||||
# Desc: Check all functions matching "funcs" in stack2.c
|
||||
gdbtk_test browser-2.6 {all functions matching "func" in stack2.c} {
|
||||
set_regexp func
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.7
|
||||
# Desc: Check all functions matching "foobar"
|
||||
gdbtk_test browser-2.7 {all functions matching "foobar"} {
|
||||
set_regexp foobar
|
||||
do_search
|
||||
} {}
|
||||
|
||||
# Test: browser-2.8
|
||||
# Desc: Check all functions matching "foobar" in stack1.c
|
||||
gdbtk_test browser-2.8 {functions matching "foobar" in stack1.c} {
|
||||
set_regexp foobar
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.9
|
||||
# Desc: Check all functions matching "foobar" in stack2.c
|
||||
gdbtk_test browser-2.9 {functions matching "foobar" in stack2.c} {
|
||||
set_regexp foobar
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.10
|
||||
# Desc: Check all functions matching regexp "func"
|
||||
gdbtk_test browser-2.10 {all functions matching regexp "func"} {
|
||||
set_regexp func
|
||||
set_use_regexp 1
|
||||
do_search
|
||||
} {extern_func1_1 extern_func1_10 extern_func1_11 extern_func1_12 extern_func1_13 extern_func1_14 extern_func1_15 extern_func1_2 extern_func1_3 extern_func1_4 extern_func1_5 extern_func1_6 extern_func1_7 extern_func1_8 extern_func1_9 func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9 static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
}
|
||||
|
||||
# Test: browser-2.11
|
||||
# Desc: Check all functions matching regexp "func" in stack1.c
|
||||
gdbtk_test browser-2.11 {all functions matching regexp "func" in stack1.c} {
|
||||
set_regexp func
|
||||
set_use_regexp 1
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 func_2 func_3 func_4 func_5 func_6 func_7 func_8 func_9 static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.12
|
||||
# Desc: Check all functions matching regexp "func" in stack2.c
|
||||
gdbtk_test browser-2.12 {all functions matching regexp "func" in stack2.c} {
|
||||
set_regexp func
|
||||
set_use_regexp 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {extern_func1_1 extern_func1_10 extern_func1_11 extern_func1_12 extern_func1_13 extern_func1_14 extern_func1_15 extern_func1_2 extern_func1_3 extern_func1_4 extern_func1_5 extern_func1_6 extern_func1_7 extern_func1_8 extern_func1_9}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.13
|
||||
# Desc: Check all functions matching regexp "\_1$"
|
||||
gdbtk_test browser-2.13 {all functions matching regexp "\_1$"} {
|
||||
set_regexp {\_1$}
|
||||
set_use_regexp 1
|
||||
do_search
|
||||
} {extern_func1_1 func_1 static_func_1}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
}
|
||||
|
||||
# Test: browser-2.14
|
||||
# Desc: Check all functions matching regexp "\_1$" in stack1.c
|
||||
gdbtk_test browser-2.14 {all functions matching regexp "\_1$" in stack1.c} {
|
||||
set_regexp {\_1$}
|
||||
set_use_regexp 1
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {func_1 static_func_1}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
set_use_regexp 0
|
||||
}
|
||||
|
||||
# Test: browser-2.15
|
||||
# Desc: Check all functions matching regexp "\_1$" in stack2.c
|
||||
gdbtk_test browser-2.15 {all functions matching regexp "\_1$" in stack2.c} {
|
||||
set_regexp {\_1$}
|
||||
set_use_regexp 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {extern_func1_1}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
set_use_regexp 0
|
||||
}
|
||||
|
||||
# Test: browser-2.16
|
||||
# Desc: Check all functions matching regexp "foobar"
|
||||
gdbtk_test browser-2.16 {all functions matching regexp "foobar"} {
|
||||
set_regexp foobar
|
||||
set_use_regexp 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
}
|
||||
|
||||
# Test: browser-2.17
|
||||
# Desc: Check all functions matching regexp "foobar" in stack1.c
|
||||
gdbtk_test browser-2.17 {all functions matching regexp "foobar" in stack1.c} {
|
||||
set_regexp foobar
|
||||
set_use_regexp 1
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-2.18
|
||||
# Desc: Check all functions matching regexp "foobar"
|
||||
gdbtk_test browser-2.18 {all functions matching regexp "foobar"} {
|
||||
set_regexp foobar
|
||||
set_use_regexp 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.1
|
||||
# Desc: Check all static funcs
|
||||
gdbtk_test browser-3.1 {all static funcs} {
|
||||
set_static_only 1
|
||||
set_regexp ""
|
||||
do_search
|
||||
} {static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
}
|
||||
|
||||
# Test: browser-3.2
|
||||
# Desc: Check all static functions in stack1.c
|
||||
gdbtk_test browser-3.2 {all static functions in stack1.c} {
|
||||
set_regexp ""
|
||||
$Files selection set 0
|
||||
set_static_only 1
|
||||
do_search
|
||||
} {static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
set_static_only 0
|
||||
}
|
||||
|
||||
# Test: browser-3.3
|
||||
# Desc: Check all static functions in stack2.c
|
||||
gdbtk_test browser-3.3 {all static functions in stack2.c} {
|
||||
set_regexp ""
|
||||
set_static_only 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.4
|
||||
# Desc: Check for all static functions matching "func"
|
||||
gdbtk_test browser-3.4 {all static functions matching "func"} {
|
||||
set_regexp func
|
||||
set_static_only 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
}
|
||||
|
||||
# Test: browser-3.5
|
||||
# Desc: Check for all static functions matching "func" in stack1.c
|
||||
gdbtk_test browser-3.5 {all static functions matching "func" in stack1.c} {
|
||||
set_regexp func
|
||||
set_static_only 1
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.6
|
||||
# Desc: Check all static functions matching "func" in stack2.c
|
||||
gdbtk_test browser-3.6 {all static functions matching "func" in stack2.c} {
|
||||
set_regexp func
|
||||
set_static_only 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.7
|
||||
# Desc: Check all static functions matching "foobar"
|
||||
gdbtk_test browser-3.7 {all static functions matching "foobar"} {
|
||||
set_regexp foobar
|
||||
set_static_only 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
}
|
||||
|
||||
# Test: browser-3.8
|
||||
# Desc: Check all static functions matching "foobar" in stack1.c
|
||||
gdbtk_test browser-3.8 {all static functions matching "foobar" in stack1.c} {
|
||||
set_regexp foobar
|
||||
set_static_only 1
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.9
|
||||
# Desc: Check all static functions matching "foobar" in stack2.c
|
||||
gdbtk_test browser-3.9 {all static functions matching "foobar" stack2.c} {
|
||||
set_regexp foobar
|
||||
set_static_only 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.10
|
||||
# Desc: Check all static functions matching regexp "func"
|
||||
gdbtk_test browser-3.10 {all static functions matching regexp "func"} {
|
||||
set_regexp func
|
||||
set_static_only 1
|
||||
set_use_regexp 1
|
||||
do_search
|
||||
} {static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
set_static_only 0
|
||||
}
|
||||
|
||||
# Test: browser-3.11
|
||||
# Desc: Check all static functions matching regexp "func" in stack1.c
|
||||
gdbtk_test browser-3.11 {all static functions matching regexp "func" in stack1.c} {
|
||||
set_regexp func
|
||||
set_static_only 1
|
||||
set_use_regexp 1
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15 static_func_2 static_func_3 static_func_4 static_func_5 static_func_6 static_func_7 static_func_8 static_func_9}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.12
|
||||
# Desc: Check all static functions matching regexp "func" in stack2.c
|
||||
gdbtk_test browser-3.12 {all static functions matching regexp "func" in stack2.c} {
|
||||
set_regexp func
|
||||
set_static_only 1
|
||||
set_use_regexp 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.13
|
||||
# Desc: Check all static functions matching regexp "\_1$"
|
||||
gdbtk_test browser-3.13 {all static functions matching regexp "\_1$"} {
|
||||
set_regexp {\_1$}
|
||||
set_static_only 1
|
||||
set_use_regexp 1
|
||||
do_search
|
||||
} {static_func_1}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
set_use_regexp 0
|
||||
}
|
||||
|
||||
# Test: browser-3.14
|
||||
# Desc: Check all static functions matching regexp "\_1$" in stack1.c
|
||||
gdbtk_test browser-3.14 {all static functions matching regexp "\_1$" in stack1.c} {
|
||||
set_regexp {\_1$}
|
||||
set_static_only 1
|
||||
set_use_regexp 1
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {static_func_1}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.15
|
||||
# Desc: Check all static functions matching regexp "\_1$" in stack2.c
|
||||
gdbtk_test browser-3.15 {all static functions matching regexp "\_1$" in stack2.c} {
|
||||
set_regexp {\_1$}
|
||||
set_static_only 1
|
||||
set_use_regexp 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
set_static_only 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.16
|
||||
# Desc: Check all static functions matching regexp "foobar"
|
||||
gdbtk_test browser-3.16 {all static functions matching regexp "foobar"} {
|
||||
set_regexp foobar
|
||||
set_use_regexp 1
|
||||
set_static_only 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
set_use_regexp 0
|
||||
}
|
||||
|
||||
# Test: browser-3.17
|
||||
# Desc: Check all static functions matching regexp "foobar" in stack1.c
|
||||
gdbtk_test browser-3.17 {all static functions matching regexp "foobar" in stack1.c} {
|
||||
set_regexp foobar
|
||||
set_use_regexp 1
|
||||
set_static_only 1
|
||||
$Files selection set 0
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
set_use_regexp 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
# Test: browser-3.18
|
||||
# Desc: Check all static functions matching regexp "foobar" in stack2.c
|
||||
gdbtk_test browser-3.18 {all static functions matching regexp "foobar" in stack2.c} {
|
||||
set_regexp foobar
|
||||
set_static_only 1
|
||||
set_use_regexp 1
|
||||
$Files selection set 1
|
||||
do_search
|
||||
} {}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
set_use_regexp 0
|
||||
$Files selection clear 0 end
|
||||
}
|
||||
|
||||
set select [$browser test_get Select]
|
||||
# Test: browser-4.1
|
||||
# Desc: Check select button text initial
|
||||
gdbtk_test browser-4.1 {select all files button initial text} {
|
||||
$select cget -text
|
||||
} {Select All}
|
||||
|
||||
# Test: browser-4.2
|
||||
# Desc: Check select button function
|
||||
gdbtk_test browser-4.2 {select button - select all} {
|
||||
$select invoke
|
||||
$Files curselection
|
||||
} {0 1}
|
||||
if {$test_ran} {
|
||||
$Files selection clear 0 end
|
||||
$select invoke
|
||||
}
|
||||
|
||||
# Test: browser-4.3
|
||||
# Desc: Check select button text
|
||||
gdbtk_test browser-4.3 {select button text - select none} {
|
||||
$select invoke
|
||||
$select cget -text
|
||||
} {Select None}
|
||||
if {$test_ran} {
|
||||
$select invoke
|
||||
}
|
||||
|
||||
# Test: browser-4.4
|
||||
# Desc: Check select button function
|
||||
gdbtk_test browser-4.4 {select button - select none} {
|
||||
$select invoke
|
||||
$select invoke
|
||||
$Files curselection
|
||||
} {}
|
||||
|
||||
# Test: browser-4.5
|
||||
# Desc: Check select button text
|
||||
gdbtk_test browser-4.5 {select button text - flip} {
|
||||
$select invoke
|
||||
$select invoke
|
||||
$select cget -text
|
||||
} {Select All}
|
||||
|
||||
# Test: browser-5.1
|
||||
# Desc: Toggle all bps on
|
||||
gdbtk_test browser-5.1 {toggle_all_bp on} {
|
||||
set_regexp {\_1$}
|
||||
set_use_regexp 1
|
||||
do_search
|
||||
$browser toggle_all_bp
|
||||
|
||||
set_regexp .*
|
||||
set funcs [do_search]
|
||||
set bps {}
|
||||
foreach f $funcs {
|
||||
if {[bp_exists [gdb_loc $f]] != -1} {
|
||||
lappend bps 1
|
||||
} else {
|
||||
lappend bps 0
|
||||
}
|
||||
}
|
||||
set bps
|
||||
} {1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
|
||||
if {$test_ran} {
|
||||
set_use_regexp 0
|
||||
for {set i 0} {$i < 20} {incr i} {
|
||||
catch {gdb_cmd "delete $i"}
|
||||
}
|
||||
}
|
||||
|
||||
# Test: browser-5.2
|
||||
# Desc: Toggle all bps off
|
||||
gdbtk_test browser-5.2 {toggle_all_bp off} {
|
||||
set_regexp {\_1$}
|
||||
set_use_regexp 1
|
||||
do_search
|
||||
$browser toggle_all_bp
|
||||
|
||||
# Turn on bps
|
||||
set_regexp .*
|
||||
set funcs [do_search]
|
||||
|
||||
# Turn off all static bps
|
||||
set_regexp {\_1$}
|
||||
set_static_only 1
|
||||
do_search
|
||||
$browser toggle_all_bp
|
||||
set bps {}
|
||||
foreach f $funcs {
|
||||
if {[bp_exists [gdb_loc $f]] != -1} {
|
||||
lappend bps 1
|
||||
} else {
|
||||
lappend bps 0
|
||||
}
|
||||
}
|
||||
set bps
|
||||
} {1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0}
|
||||
if {$test_ran} {
|
||||
set_static_only 0
|
||||
set_use_regexp 0
|
||||
for {set i 0} {$i < 20} {incr i} {
|
||||
catch {gdb_cmd "delete $i"}
|
||||
}
|
||||
}
|
||||
|
||||
# Test: browser-6.1
|
||||
# Desc: Check that search expressions are saved
|
||||
gdbtk_test browser-6.1 {save last search expression} {
|
||||
set_regexp hello
|
||||
do_search
|
||||
pref get gdb/search/last_symbol
|
||||
} {hello}
|
||||
|
||||
#
|
||||
# Exit
|
||||
#
|
||||
gdbtk_test_done
|
||||
231
gdb/testsuite/gdb.gdbtk/stack1.c
Normal file
231
gdb/testsuite/gdb.gdbtk/stack1.c
Normal file
@@ -0,0 +1,231 @@
|
||||
/* Functions defined in other files */
|
||||
extern void extern_func1_1 (int a, char *b, unsigned long c);
|
||||
|
||||
/* Functions defined in this file */
|
||||
static void static_func_1 (int a, char *b, unsigned long c);
|
||||
static void static_func_2 (int a, char *b, unsigned long c);
|
||||
static void static_func_3 (int a, char *b, unsigned long c);
|
||||
static void static_func_4 (int a, char *b, unsigned long c);
|
||||
static void static_func_5 (int a, char *b, unsigned long c);
|
||||
static void static_func_6 (int a, char *b, unsigned long c);
|
||||
static void static_func_7 (int a, char *b, unsigned long c);
|
||||
static void static_func_8 (int a, char *b, unsigned long c);
|
||||
static void static_func_9 (int a, char *b, unsigned long c);
|
||||
static void static_func_10 (int a, char *b, unsigned long c);
|
||||
static void static_func_11 (int a, char *b, unsigned long c);
|
||||
static void static_func_12 (int a, char *b, unsigned long c);
|
||||
static void static_func_13 (int a, char *b, unsigned long c);
|
||||
static void static_func_14 (int a, char *b, unsigned long c);
|
||||
static void static_func_15 (int a, char *b, unsigned long c);
|
||||
|
||||
void func_1 (int a, char *b, unsigned long c);
|
||||
void func_2 (int a, char *b, unsigned long c);
|
||||
void func_3 (int a, char *b, unsigned long c);
|
||||
void func_4 (int a, char *b, unsigned long c);
|
||||
void func_5 (int a, char *b, unsigned long c);
|
||||
void func_6 (int a, char *b, unsigned long c);
|
||||
void func_7 (int a, char *b, unsigned long c);
|
||||
void func_8 (int a, char *b, unsigned long c);
|
||||
void func_9 (int a, char *b, unsigned long c);
|
||||
void func_10 (int a, char *b, unsigned long c);
|
||||
void func_11 (int a, char *b, unsigned long c);
|
||||
void func_12 (int a, char *b, unsigned long c);
|
||||
void func_13 (int a, char *b, unsigned long c);
|
||||
void func_14 (int a, char *b, unsigned long c);
|
||||
void func_15 (int a, char *b, unsigned long c);
|
||||
|
||||
int
|
||||
main (int argc, char *argv[])
|
||||
{
|
||||
int a;
|
||||
char *b;
|
||||
unsigned long c;
|
||||
|
||||
a = 1;
|
||||
b = "This is a string.";
|
||||
c = 0xdeadL;
|
||||
|
||||
func_1 (a, b, c);
|
||||
|
||||
exit (0);
|
||||
}
|
||||
|
||||
void
|
||||
func_1 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_2 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_2 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_3 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_3 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_4 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_4 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_5 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_5 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_6 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_6 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_7 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_7 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_8 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_8 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_9 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_9 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_10 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_10 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_11 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_11 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_12 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_12 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_13 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_13 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_14 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_14 (int a, char *b, unsigned long c)
|
||||
{
|
||||
func_15 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
func_15 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_1 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_1 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_2 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_2 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_3 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_3 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_4 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_4 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_5 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_5 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_6 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_6 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_7 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_7 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_8 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_8 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_9 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_9 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_10 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_10 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_11 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_11 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_12 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_12 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_13 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_13 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_14 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_14 (int a, char *b, unsigned long c)
|
||||
{
|
||||
static_func_15 (a, b, c);
|
||||
}
|
||||
|
||||
static void
|
||||
static_func_15 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_1 (a, b, c);
|
||||
}
|
||||
107
gdb/testsuite/gdb.gdbtk/stack2.c
Normal file
107
gdb/testsuite/gdb.gdbtk/stack2.c
Normal file
@@ -0,0 +1,107 @@
|
||||
/* Functions defined in this file */
|
||||
void extern_func1_1 (int, char *, unsigned long);
|
||||
void extern_func1_2 (int, char *, unsigned long);
|
||||
void extern_func1_3 (int, char *, unsigned long);
|
||||
void extern_func1_4 (int, char *, unsigned long);
|
||||
void extern_func1_5 (int, char *, unsigned long);
|
||||
void extern_func1_6 (int, char *, unsigned long);
|
||||
void extern_func1_7 (int, char *, unsigned long);
|
||||
void extern_func1_8 (int, char *, unsigned long);
|
||||
void extern_func1_9 (int, char *, unsigned long);
|
||||
void extern_func1_10 (int, char *, unsigned long);
|
||||
void extern_func1_11 (int, char *, unsigned long);
|
||||
void extern_func1_12 (int, char *, unsigned long);
|
||||
void extern_func1_13 (int, char *, unsigned long);
|
||||
void extern_func1_14 (int, char *, unsigned long);
|
||||
void extern_func1_15 (int, char *, unsigned long);
|
||||
|
||||
void
|
||||
extern_func1_1 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_2 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_2 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_3 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_3 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_4 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_4 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_5 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_5 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_6 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_6 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_7 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_7 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_8 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_8 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_9 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_9 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_10 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_10 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_11 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_11 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_12 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_12 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_13 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_13 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_14 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_14 (int a, char *b, unsigned long c)
|
||||
{
|
||||
extern_func1_15 (a, b, c);
|
||||
}
|
||||
|
||||
void
|
||||
extern_func1_15 (int a, char *b, unsigned long c)
|
||||
{
|
||||
/* THE END */
|
||||
return;
|
||||
}
|
||||
Reference in New Issue
Block a user