diff mbox

[RFC,gdb/testsuite] Handle -line and -non-empty-line in gdb_test_multiple

Message ID 883bfb0f-c8e7-ae6c-aa94-2486b3c76362@redhat.com
State New
Headers show

Commit Message

Pedro Alves Feb. 20, 2020, 1:27 p.m. UTC 
On 2/19/20 9:30 PM, Tom de Vries wrote:
> [ was: Re: [PATCH][gdb/testsuite] Fix corefile-buildid.exp with

> Committed.
> 
>> If this pattern appears in more places it may be worth it to
>> think about some abstraction to make it easier to write.
>> Like e.g., a new "-lbl" (line-by-line) option switch to
>> gdb_test_multiple that auto-appends the "match one line" regexp.
> 
> How about this?

Oh, by "pattern", I meant the design pattern, the higher-level
thing of expecting a string while at the same time consuming
input a line at a time.  Something like:

~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~

That should mean we could drop the $gdb_prompt matches too.
But maybe a new gdb_test_lbl procedure that wraps gdb_test_multiple
would be preferred.

The way you have it doesn't look very different from
creating a couple globals, like:

 set line_re "^\[^\r\n\]*\r\n"
 set non_empty_line_re "^\[^\r\n\]+\r\n"

and the using them like:

 -re "$line_re" {

Maybe removing the leading "^" anchor from the variables
would make them usable in more places.

Anyway, I don't object to your patch if you like it.  It just
wasn't what I was suggesting.

Thanks,
Pedro Alves
diff mbox

Patch

diff --git c/gdb/testsuite/lib/gdb.exp w/gdb/testsuite/lib/gdb.exp
index d8ebddf63ce..6eaebc7710d 100644
--- c/gdb/testsuite/lib/gdb.exp
+++ w/gdb/testsuite/lib/gdb.exp
@@ -858,6 +858,7 @@  proc gdb_test_multiple { command message user_code { prompt_regexp "" } } {
     set expecting_action 0
     set expecting_arg 0
     set wrap_pattern 0
+    set line_by_line 0
     foreach item $user_code subst_item $subst_code {
        if { $item == "-n" || $item == "-notransfer" || $item == "-nocase" } {
            lappend $current_list $item
@@ -880,6 +881,10 @@  proc gdb_test_multiple { command message user_code { prompt_regexp "" } } {
            set wrap_pattern 1
            continue
        }
+       if {$item == "-lbl"} {
+           set line_by_line 1
+           continue
+       }
        if { $expecting_arg } {
            set expecting_arg 0
            lappend $current_list $subst_item
@@ -1070,6 +1075,14 @@  proc gdb_test_multiple { command message user_code { prompt_regexp "" } } {
        }
     }
 
+    if {$line_by_line} {
+       append code {
+           -re "^\[^\r\n\]*\r\n" {
+               exp_continue
+           }
+       }
+    }
+
     # Now patterns that apply to any spawn id specified.
     append code {
        -i $any_spawn_id