mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-01-24 12:35:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[gdb/testsuite] Add gdb.testsuite/gdb-caching-proc.exp

Browse Source 
Add test-case gdb.testsuite/gdb-caching-proc.exp that excercises
gdb_caching_proc.

Tested on x86_64-linux.

Reviewed-By: Tom Tromey <tom@tromey.com>
This commit is contained in:
Tom de Vries 2023-03-06 16:49:19 +01:00
parent 68ca7890dd
commit b24a386d75
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
gdb/testsuite/gdb.testsuite/gdb-caching-proc.exp Normal file
View File

@ -0,0 +1,38 @@
# Copyright 2023 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 <http://www.gnu.org/licenses/>.
gdb_caching_proc gdb_testsuite_gdb_caching_proc_exp_noarg {
incr ::count
return 1
}
set assertions {
{ [gdb_testsuite_gdb_caching_proc_exp_noarg] == 1 }
}
set assertion_nr 0
foreach assertion $assertions {
with_test_prefix $assertion_nr {
set ::count 0
gdb_assert $assertion
gdb_assert { $::count == 1 }
with_test_prefix cached {
gdb_assert $assertion
gdb_assert { $::count == 1 }
}
}
incr assertion_nr
}