diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/str_ref_cmp.exp')
-rw-r--r-- | gdb/testsuite/gdb.ada/str_ref_cmp.exp | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/str_ref_cmp.exp b/gdb/testsuite/gdb.ada/str_ref_cmp.exp index 70acf83..76de844 100644 --- a/gdb/testsuite/gdb.ada/str_ref_cmp.exp +++ b/gdb/testsuite/gdb.ada/str_ref_cmp.exp @@ -34,6 +34,19 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/foo.adb] runto "foo.adb:$bp_location" +# BINOP_EQUAL incorrectly resolves with system debug info to Ada.Strings.Maps. +set test "operator = works for strings" +gdb_test_multiple {print "a" = "a"} $test { + -re " = false\r\n$gdb_prompt $" { + kfail ada/12607 $test + untested ${testdir}.exp + return 0 + } + -re " = true\r\n$gdb_prompt $" { + pass $test + } +} + # Verify that we can compare a string slice with another string. gdb_test "print String_Var (1 .. 3) = \"Hel\"" \ |