diff options
Diffstat (limited to 'gdb/testsuite/gdb.gdbtk/browser.test')
| -rw-r--r-- | gdb/testsuite/gdb.gdbtk/browser.test | 657 |
1 files changed, 0 insertions, 657 deletions
diff --git a/gdb/testsuite/gdb.gdbtk/browser.test b/gdb/testsuite/gdb.gdbtk/browser.test deleted file mode 100644 index b376d68..0000000 --- a/gdb/testsuite/gdb.gdbtk/browser.test +++ /dev/null @@ -1,657 +0,0 @@ -# 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 |