diff options
| author | Simon Marchi <simon.marchi@ericsson.com> | 2017-03-13 18:02:07 -0400 |
|---|---|---|
| committer | Simon Marchi <simon.marchi@ericsson.com> | 2017-03-13 18:02:07 -0400 |
| commit | 896c0c1edee117ea333c66b1adac8c6f4def3f2b (patch) | |
| tree | 5c7888fd7d77f65038ad0007e606f8e2cf0b6686 /gdb/testsuite/gdb.threads | |
| parent | b9da89d161e3903faa335f444af2bf05e40f926e (diff) | |
| download | gdb-896c0c1edee117ea333c66b1adac8c6f4def3f2b.zip gdb-896c0c1edee117ea333c66b1adac8c6f4def3f2b.tar.gz gdb-896c0c1edee117ea333c66b1adac8c6f4def3f2b.tar.bz2 | |
testsuite: Introduce dejagnu_version
The next patch will require checking the DejaGnu version. There is
already a test that does this,
gdb.threads/attach-many-short-lived-threads.exp. This patch introduces
a new procedure, dejagnu_version, and makes that test use it.
The version number is "right-padded" with zeroes, to make sure that we
always return a triplet (major, minor, patch).
The procedure does not consider the DejaGnu versions from git. For
example, if you used DejaGnu from its current master branch, the version
would be "1.6.1-git", meaning that 1.6.1 will be the next release. I
figured we'll cross that bridge when (and if) we get there.
gdb/testsuite/ChangeLog:
* lib/gdb.exp (dejagnu_version): New proc.
* gdb.threads/attach-many-short-lived-threads.exp (bad_dejagnu):
Use dejagnu_version.
Diffstat (limited to 'gdb/testsuite/gdb.threads')
| -rw-r--r-- | gdb/testsuite/gdb.threads/attach-many-short-lived-threads.exp | 8 |
1 files changed, 1 insertions, 7 deletions
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] |