diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp | 8 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 26 |
3 files changed, 33 insertions, 7 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 0718d76..5f2624d 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2017-03-13 Simon Marchi <simon.marchi@ericsson.com> + + * lib/gdb.exp (dejagnu_version): New proc. + * gdb.threads/attach-many-short-lived-threads.exp (bad_dejagnu): + Use dejagnu_version. + 2017-03-10 Keith Seitz <keiths@redhat.com> PR c++/8128 diff --git a/gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp b/gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp index cd752ca..edc9613 100644 --- a/gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp +++ b/gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp @@ -24,13 +24,7 @@ # Return true if the running version of DejaGnu is known to not be # able to run this test. proc bad_dejagnu {} { - global frame_version - - verbose -log "DejaGnu version: $frame_version" - verbose -log "Expect version: [exp_version]" - verbose -log "Tcl version: [info tclversion]" - - set dj_ver [split $frame_version .] + set dj_ver [dejagnu_version] set dj_ver_major [lindex $dj_ver 0] set dj_ver_minor [lindex $dj_ver 1] diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 188484f..c773d41 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -6023,6 +6023,32 @@ proc multi_line_input { args } { return [join $args "\n"] } +# Return the version of the DejaGnu framework. +# +# The return value is a list containing the major, minor and patch version +# numbers. If the version does not contain a minor or patch number, they will +# be set to 0. For example: +# +# 1.6 -> {1 6 0} +# 1.6.1 -> {1 6 1} +# 2 -> {2 0 0} + +proc dejagnu_version { } { + # The frame_version variable is defined by DejaGnu, in runtest.exp. + global frame_version + + verbose -log "DejaGnu version: $frame_version" + verbose -log "Expect version: [exp_version]" + verbose -log "Tcl version: [info tclversion]" + + set dg_ver [split $frame_version .] + + while { [llength $dg_ver] < 3 } { + lappend dg_ver 0 + } + + return $dg_ver +} # Always load compatibility stuff. load_lib future.exp |