diff options
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-objfile.exp | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 6497aa9..76dcde5 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2015-03-11 Andy Wingo <wingo@igalia.com> + + * gdb.guile/scm-objfile.exp: Add objfile-progspace test. + 2015-03-11 Yao Qi <yao.qi@linaro.org> * gdb.base/catch-syscall.exp: Fix typo in comments. diff --git a/gdb/testsuite/gdb.guile/scm-objfile.exp b/gdb/testsuite/gdb.guile/scm-objfile.exp index c58f4c4..8edda94 100644 --- a/gdb/testsuite/gdb.guile/scm-objfile.exp +++ b/gdb/testsuite/gdb.guile/scm-objfile.exp @@ -48,6 +48,9 @@ gdb_test "gu (print (->bool (or-map (lambda (o) (string-contains (objfile-filena gdb_test "gu (print (objfile-pretty-printers objfile))" \ "= \\(\\)" +gdb_test "gu (print (eq? (current-progspace) (objfile-progspace objfile)))" \ + "= #t" + gdb_test "guile (set-objfile-pretty-printers! objfile 0)" \ "ERROR: .*: Wrong type argument in position 2 \\(expecting list\\): 0.*" |