+ "gdb.MemoryError: Cannot create a lazy string with address 0x0, and a non-zero length.*Error while executing Python code." \
+ "null lazy string with non-zero length"
+gdb_test "python print(null.lazy_string(length=-2))" \
+ "ValueError: Invalid length.*Error while executing Python code." \
+ "bad length"
+
+foreach var_spec { { "ptr" "pointer" "const char \\*" -1 } \
+ { "array" "array" "const char \\[6\\]" 6 } \
+ { "typedef_ptr" "typedef pointer" "pointer" -1 } } {
+ set var [lindex $var_spec 0]
+ set value [lindex $var_spec 1]
+ set type [lindex $var_spec 2]
+ set length [lindex $var_spec 3]
+ with_test_prefix $var {
+ gdb_test "print $var" "\"$value\""
+ gdb_py_test_silent_cmd "python $var = gdb.history (0)" "get value from history" 1
+ gdb_py_test_silent_cmd "python l$var = $var.lazy_string()" "acquire lazy string" 1
+ gdb_test "python print ($var.type)" "$type" "string type name equality"
+ gdb_test "python print (l$var.type)" "$type" "lazy-string type name equality"
+ gdb_test "python print (l$var.length)" "$length" "lazy string length"
+ gdb_test "python print (l$var.value())" "\"$value\"" "lazy string value"
+ gdb_py_test_silent_cmd "python l2$var = $var.lazy_string(length=2)" "acquire lazy string, length 2" 1
+ gdb_test "python print (l2$var.length)" "2" "lazy string length 2"
+ gdb_test "python print (l2$var.value())" "\"[string range $value 0 1]\"" "lazy string length 2 value"
+ # This test will have to wait until gdb can handle it. There's no way,
+ # currently, to internally specify an array of length zero in the C
+ # language support. PR 20786
+ #gdb_test "python print ($var.lazy_string(length=0).value())" "\"\"" "empty lazy string value"
+ }
+}