From 5e2e7507b4ef8410501452224d98071657ea2d53 Mon Sep 17 00:00:00 2001 From: Jan Kratochvil Date: Tue, 27 Oct 2015 06:08:45 +0100 Subject: [PATCH] Fix access_to_packed_array.exp typos/errors Running ./gdb.ada/access_to_packed_array.exp ... ERROR: tcl error sourcing ./gdb.ada/access_to_packed_array.exp. ERROR: extra characters after close-quote while executing "gdb_test "print pack.a" "\\(0 => 1, 2, 3, 4, 5, 6, 7, 8, 9, 10\\)")" (file "./gdb.ada/access_to_packed_array.exp" line 29) invoked from within "source ./gdb.ada/access_to_packed_array.exp" ("uplevel" body line 1) invoked from within "uplevel #0 source ./gdb.ada/access_to_packed_array.exp" invoked from within "catch "uplevel #0 source $test_file_name"" Unrelated to the typos I have changed the print expectations s/"x"/" = x"/ as for example expectation "3" should not match " = 43". 2015-10-27 Jan Kratochvil * gdb.ada/access_to_packed_array.exp: Fix typos erroring the testfile. --- gdb/testsuite/ChangeLog | 4 ++++ gdb/testsuite/gdb.ada/access_to_packed_array.exp | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 89c453c5b7..090d7824e5 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2015-10-27 Jan Kratochvil + + * gdb.ada/access_to_packed_array.exp: Fix typos erroring the testfile. + 2015-10-26 Doug Evans PR symtab/17391 diff --git a/gdb/testsuite/gdb.ada/access_to_packed_array.exp b/gdb/testsuite/gdb.ada/access_to_packed_array.exp index 0dca7803b0..1bf3e224b2 100644 --- a/gdb/testsuite/gdb.ada/access_to_packed_array.exp +++ b/gdb/testsuite/gdb.ada/access_to_packed_array.exp @@ -26,8 +26,8 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo.adb] runto "foo.adb:$bp_location" -gdb_test "print pack.a" "\\(0 => 1, 2, 3, 4, 5, 6, 7, 8, 9, 10\\)") -gdb_test "pack.aa" "\\(access pack\\.array_type\\) 0x.* ") +gdb_test "print pack.a" " = \\(0 => 1, 2, 3, 4, 5, 6, 7, 8, 9, 10\\)" +gdb_test "print pack.aa" " = \\(access pack\\.array_type\\) 0x.* " -gdb_test "pack.a(2)" "3" -gdb_test "pack.aa(2)" "3" +gdb_test "print pack.a(2)" " = 3" +gdb_test "print pack.aa(2)" " = 3" -- 2.34.1