Guile: add value-const-value

[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.guile / scm-value.exp

diff --git a/gdb/testsuite/gdb.guile/scm-value.exp b/gdb/testsuite/gdb.guile/scm-value.exp
index b3f785c9ecf5789eb7f2ad7d0c92723eaf27e647..982b9bf17b95da1c4a0e6a8ec621b04a2aa95286 100644 (file)
--- a/gdb/testsuite/gdb.guile/scm-value.exp
+++ b/gdb/testsuite/gdb.guile/scm-value.exp
@@ -183,6 +183,9 @@ proc test_value_in_inferior {} {
        "test value-rvalue-reference-value"
     gdb_test "gu (equal? argv (value-referenced-value argv-rref))" "#t"
     gdb_test "gu (eqv? (type-code (value-type argv-rref)) TYPE_CODE_RVALUE_REF)" "#t"
+
+    gdb_test "gu (equal? (value-type (value-const-value argv)) (type-const (value-type argv)))" \
+       "#t"
 }
 
 proc test_strings {} {