# Browser Window Tests
# Copyright 1998, 2001 Red Hat, 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 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
set _files(stupid_initializer) -100
##### #####
# #
# Helper functions for this module #
# #
##### #####
# Set the search expression
proc set_regexp {exp} {
global browser
$browser component filt_entry delete 0 end
$browser component filt_entry insert 0 $exp
}
# Do the search
proc do_search {} {
global browser
$browser search
set m [$browser component func_box get 0 end]
return $m
}
# Set search to use regular expressions.
proc set_search_mode {val} {
global browser
pref set gdb/search/filter_mode $val
# Use configure instead of entryset: need to have
# combobox's command fire
$browser component filt_type configure -value $val
}
# Highlight a file
proc select {filename} {
global browser _files
if {[info exists _files($filename)]} {
$browser component file_box selection set $_files($filename)
} else {
set files [$browser component file_box get 0 end]
set i [lsearch $files $filename]
set _files($filename) $i
$browser component file_box selection set $i
}
$browser search
}
proc select_all {} {
global browser
$browser component file_all invoke
}
# clear all files
proc clear {} {
global browser
$browser component file_box selection clear 0 end
$browser search
}
##### #####
# #
# BROWSER TESTS #
# #
##### #####
# Load the test executable
set program [file join $objdir stack]
if {[catch {gdbtk_test_file $program} t]} {
# This isn't a test case, since if this fails, we're hosed.
gdbtk_test_error "loading \"$program\": $t"
}
# Open a browser
set browser [ManagedWin::open BrowserWin]
# Test: browser-1.1
# Desc: Check file listbox contents
gdbtk_test browser-1.1 {file listbox contents} {
set m [$browser component file_box get 0 end]
set f {}
if {[lsearch $m stack1.c] == -1} {
lappend f 0
} else {
lappend f 1
}
if {[lsearch $m stack2.c] == -1} {
lappend f 0
} else {
lappend f 1
}
join $f \
} {1 1}
# Tests 2.* test starts with search mode.
# Test: browser-2.1
# Desc: Check all files/all funcs
gdbtk_test browser-2.1 {all files/all funcs} {
set_search_mode "starts with"
set_regexp ""
select_all
set m [do_search]
set r 0
foreach f {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} {
if {[lsearch $m $f] != -1} {
incr r
}
}
set r
} {46}
# Test: browser-2.2
# Desc: Check all functions in stack1.c
gdbtk_test browser-2.2 {all functions in stack1.c} {
set_regexp ""
clear
select stack1.c
set m [do_search]
set r 0
foreach f {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 {[lsearch $m $f] != -1} {
incr r
}
}
set r
} {31}
if {$test_ran} {
clear
}
# Test: browser-2.3
# Desc: Check all functions in stack2.c
gdbtk_test browser-2.3 {all functions in stack2.c} {
set_regexp ""
clear
select stack2.c
set m [do_search]
set r 0
foreach f {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 {[lsearch $m $f] != -1} {
incr r
}
}
set r
} {15}
if {$test_ran} {
clear
}
# Test: browser-2.4
# Desc: Check for all functions matching "func" - mode starts with
gdbtk_test browser-2.4 {all functions matching "func" - "mode starts with"} {
set_search_mode "starts with"
select_all
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 - mode starts with
gdbtk_test browser-2.5 {all functions matching "func" in stack1.c - "mode starts with"} {
set_search_mode "starts with"
set_regexp func
clear
select stack1.c
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.6
# Desc: Check all functions matching "funcs" in stack2.c - mode starts with
gdbtk_test browser-2.6 {all functions matching "func" in stack2.c - mode "starts with"} {
set_search_mode "starts with"
set_regexp func
clear
select stack2.c
do_search
} {}
if {$test_ran} {
clear
}
# Test: browser-2.7
# Desc: Check all functions matching "foobar"
gdbtk_test browser-2.7 {all functions matching "foobar"} {
set_search_mode "starts with"
select_all
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_search_mode "starts with"
set_regexp foobar
clear
select stack1.c
do_search
} {}
# Tests 3.* test "contains" search mode.
# Test: browser-3.1
# Desc: Check all files/all funcs
gdbtk_test browser-3.1 {all files/all funcs} {
set_search_mode "contains"
set_regexp ""
select_all
set m [do_search]
set r 0
foreach f {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} {
if {[lsearch $m $f] != -1} {
incr r
}
}
set r
} {46}
# Test: browser-3.2
# Desc: Check all functions in stack1.c
gdbtk_test browser-3.2 {all functions in stack1.c} {
set_regexp ""
set_search_mode "contains"
clear
select stack1.c
set m [do_search]
set r 0
foreach f {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 {[lsearch $m $f] != -1} {
incr r
}
}
set r
} {31}
if {$test_ran} {
clear
}
# Test: browser-3.3
# Desc: Check all functions in stack2.c
gdbtk_test browser-3.3 {all functions in stack2.c} {
set_regexp ""
set_search_mode "contains"
clear
select stack2.c
set m [do_search]
set r 0
foreach f {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 {[lsearch $m $f] != -1} {
incr r
}
}
set r
} {15}
if {$test_ran} {
clear
}
# Test: browser-3.4
# Desc: Check for all functions matching "func" - mode contains
gdbtk_test browser-3.4 {all functions matching "func_1" - "mode contains"} {
set_search_mode "contains"
set_regexp "func_1"
select_all
do_search
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15}
# Test: browser-3.5
# Desc: Check all functions matching "func_1" in stack1.c - mode contains
gdbtk_test browser-3.5 {all functions matching "func_1" in stack1.c - "mode contains"} {
set_search_mode "contains"
set_regexp "func_1"
clear
select stack1.c
do_search
} {func_1 func_10 func_11 func_12 func_13 func_14 func_15 static_func_1 static_func_10 static_func_11 static_func_12 static_func_13 static_func_14 static_func_15}
# Test: browser-3.6
# Desc: Check all functions matching "func_1" in stack2.c - mode contains
gdbtk_test browser-3.6 {all functions matching "func" in stack2.c - mode "contains"} {
set_search_mode "contains"
set_regexp func_1
clear
select stack2.c
do_search
} {}
# Test: browser-3.7
# Desc: Check all functions matching "foobar"
gdbtk_test browser-3.7 {all functions matching "foobar"} {
set_search_mode "contains"
select_all
set_regexp foobar
do_search
} {}
# Test: browser-3.8
# Desc: Check all functions matching "foobar" in stack1.c
gdbtk_test browser-3.8 {functions matching "foobar" in stack1.c} {
set_search_mode "contains"
set_regexp foobar
clear
select stack1.c
do_search
} {}
# Tests 4.* test "ends with" search mode.
# Test: browser-4.1
# Desc: Check all files/all funcs
gdbtk_test browser-4.1 {all files/all funcs} {
set_search_mode "ends with"
set_regexp ""
select_all
set m [do_search]
set r 0
foreach f {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} {
if {[lsearch $m $f] > -1} {
incr r
}
}
set r
} {46}
# Test: browser-4.2
# Desc: Check all functions in stack1.c
gdbtk_test browser-4.2 {all functions in stack1.c} {
set_regexp ""
set_search_mode "ends with"
clear
select stack1.c
set m [do_search]
set r 0
foreach f {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 {[lsearch $m $f] != -1} {
incr r
}
}
set r
} {31}
if {$test_ran} {
clear
}
# Test: browser-4.3
# Desc: Check all functions in stack2.c
gdbtk_test browser-4.3 {all functions in stack2.c} {
set_regexp ""
set_search_mode "ends with"
clear
select stack2.c
set m [do_search]
set r 0
foreach f {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 {[lsearch $m $f] != -1} {
incr r
}
}
set r
} {15}
if {$test_ran} {
clear
}
# Test: browser-4.4
# Desc: Check for all functions matching "func_1" - mode ends with
gdbtk_test browser-4.4 {all functions matching "func_1" - "mode ends with"} {
set_search_mode "ends with"
set_regexp "func_1"
select_all
do_search
} {func_1 static_func_1}
# Test: browser-4.5
# Desc: Check all functions matching "func_1" in stack1.c - mode ends with
gdbtk_test browser-4.5 {all functions matching "func_1" in stack1.c - "mode ends with"} {
set_search_mode "ends with"
set_regexp "func_1"
clear
select stack1.c
do_search
} {func_1 static_func_1}
if {$test_ran} {
clear
}
# Test: browser-4.6
# Desc: Check all functions matching "func_1" in stack2.c - mode ends with
gdbtk_test browser-4.6 {all functions matching "func" in stack2.c - mode "ends with"} {
set_search_mode "ends with"
set_regexp func_1
clear
select stack2.c
do_search
} {}
# Test: browser-4.7
# Desc: Check all functions matching "foobar"
gdbtk_test browser-4.7 {all functions matching "foobar"} {
set_search_mode "ends with"
select_all
set_regexp foobar
do_search
} {}
# Test: browser-4.8
# Desc: Check all functions matching "foobar" in stack1.c
gdbtk_test browser-4.8 {functions matching "foobar" in stack1.c} {
set_search_mode "ends with"
set_regexp foobar
clear
select stack1.c
do_search
} {}
if {$test_ran} {
clear
}
# Test: browser-5.10
# Desc: Check all functions matching regexp "func"
gdbtk_test browser-5.10 {all functions matching regexp "func"} {
set_search_mode "matches regexp"
set_regexp func
select_all
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}
# Test: browser-5.11
# Desc: Check all functions matching regexp "func" in stack1.c
gdbtk_test browser-5.11 {all functions matching regexp "func" in stack1.c} {
set_search_mode "matches regexp"
set_regexp func
clear
select stack1.c
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}
# Test: browser-5.12
# Desc: Check all functions matching regexp "func" in stack2.c
gdbtk_test browser-5.12 {all functions matching regexp "func" in stack2.c} {
set_regexp func
clear
select stack2.c
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}
# Test: browser-5.13
# Desc: Check all functions matching regexp "\_1$"
gdbtk_test browser-5.13 {all functions matching regexp "\_1$"} {
set_search_mode "matches regexp"
set_regexp {\_1$}
select_all
do_search
} {extern_func1_1 func_1 static_func_1}
# Test: browser-5.14
# Desc: Check all functions matching regexp "\_1$" in stack1.c
gdbtk_test browser-5.14 {all functions matching regexp "\_1$" in stack1.c} {
set_search_mode "matches regexp"
set_regexp {\_1$}
clear
select stack1.c
do_search
} {func_1 static_func_1}
# Test: browser-5.15
# Desc: Check all functions matching regexp "\_1$" in stack2.c
gdbtk_test browser-5.15 {all functions matching regexp "\_1$" in stack2.c} {
set_search_mode "matches regexp"
set_regexp {\_1$}
clear
select stack2.c
do_search
} {extern_func1_1}
# Test: browser-5.16
# Desc: Check all functions matching regexp "foobar"
gdbtk_test browser-5.16 {all functions matching regexp "foobar"} {
set_search_mode "matches regexp"
set_regexp foobar
select_all
do_search
} {}
# Test: browser-5.17
# Desc: Check all functions matching regexp "foobar" in stack1.c
gdbtk_test browser-5.17 {all functions matching regexp "foobar" in stack1.c} {
set_search_mode "matches regexp"
set_regexp foobar
clear
select stack1.c
do_search
} {}
# Test: browser-6.1
# Desc: Check select button function
gdbtk_test browser-6.1 {select button - select all} {
clear
select_all
set m [$browser component file_box curselection]
expr {[llength $m] >= 2}
} {1}
# Test: browser-6.2
# Desc: Check that search expressions are saved
gdbtk_test browser-6.2 {save last search expression} {
set_regexp hello
select_all
do_search
pref get gdb/search/last_symbol
} {hello}
# Test: browser-7.1
# Desc: Toggle all bps on
gdbtk_test browser-7.1 {toggle_all_bp on} {
set_regexp {\_1$}
set_search_mode "matches regexp"
select_all
set funcs [do_search]
# select all to set bp on
$browser component func_box selection set 0 end
$browser component func_add_bp invoke
set bps {}
foreach f $funcs {
if {![catch {gdb_loc $f} ls]} {
if {[bp_exists $ls] != -1} {
lappend bps $f
}
}
}
catch {gdb_cmd "delete" 0}
join [lsort $bps]
} {extern_func1_1 func_1 static_func_1}
# Test: browser-7.2
# Desc: Toggle some bps off
gdbtk_test browser-7.2 {toggle_some_bp off} {
set_regexp {\_1$}
set_search_mode "matches regexp"
select_all
set funcs [do_search]
$browser component func_box selection set 0 end
$browser component func_add_bp invoke
# Turn off all the "static_func_*" bps
set_regexp {^static.*_1$}
do_search
$browser component func_box selection set 0 end
$browser component func_remove_bp invoke
set bps {}
foreach f $funcs {
if {![catch {gdb_loc $f} ls]} {
if {[bp_exists $ls] != -1} {
lappend bps $f
}
}
}
catch {gdb_cmd "delete" 0}
join [lsort $bps]
} {extern_func1_1 func_1}
#
# Exit
#
gdbtk_test_done