2011-05-04 Pedro Alves <pedro@codesourcery.com>

	* gdb.base/completion.exp: Use gdb_test_multiple instead of
	gdb_test and explicit $gdb_prompt/timeout matches.

1 files changed, 321 insertions, 441 deletions

diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp
index 94aa4c7..1c077fc 100644
--- a/gdb/testsuite/gdb.base/completion.exp
+++ b/gdb/testsuite/gdb.base/completion.exp
@@ -94,343 +94,279 @@ if ![runto_main] then {
 set oldtimeout1 $timeout
 set timeout 30
 
-
+set test "complete 'hfgfh'"
 send_gdb "hfgfh\t"
-gdb_expect  {
-        -re "^hfgfh\\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Undefined command: \"hfgfh\"\\.  Try \"help\"\\..*$gdb_prompt $"\
-                                        { pass "complete 'hfgfh'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'hfgfh'"}
-                      timeout           {fail "(timeout) complete 'hfgfh'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'hfgfh'" }
-        timeout         { fail "(timeout) complete 'hfgfh'" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^hfgfh\\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" $test {
+	    -re "Undefined command: \"hfgfh\"\\.  Try \"help\"\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
 #exp_internal 0
 
+set test "complete 'show output'"
 send_gdb "show output\t"
-gdb_expect  {
-        -re "^show output-radix $"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
-                                        { pass "complete 'show output'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'show output'"}
-                      timeout           {fail "(timeout) complete 'show output'"}
-                     }
-            }
-
-        -re ".*$gdb_prompt $"       { fail "complete 'show output'" }
-        timeout         { fail "(timeout) complete 'show output'" }
-        }
-
+gdb_test_multiple "" "$test" {
+    -re "^show output-radix $" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Default output radix for printing of values is 10\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'show output-'"
 send_gdb "show output-\t"
-gdb_expect  {
-        -re "^show output-radix $"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
-                                        { pass "complete 'show output-'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
-                      timeout           {fail "(timeout) complete 'show output-'"}
-                     }
-            }
-
-        -re ".*$gdb_prompt $"       { fail "complete 'show output-'" }
-        timeout         { fail "(timeout) complete 'show output-'" }
+gdb_test_multiple "" "$test" {
+    -re "^show output-radix $" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Default output radix for printing of values is 10\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
         }
+    }
+}
 
+set test "complete 'p'"
 send_gdb "p\t"
-gdb_expect  {
-        -re "^p\\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "The history is empty\\..*$gdb_prompt $"\
-                                        { pass "complete 'p'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'p'"}
-                      timeout           {fail "(timeout) complete 'p' 2"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'p'" }
-        timeout         { fail "(timeout) complete 'p' 1" }
+gdb_test_multiple "" "$test" {
+    -re "^p\\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "The history is empty\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
         }
+    }
+}
 
+set test "complete 'p '"
 send_gdb "p \t"
-gdb_expect  {
-        -re "^p \\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "The history is empty\\..*$gdb_prompt $"\
-                                        { pass "complete 'p '"}
-                      -re ".*$gdb_prompt $" { fail "complete 'p '"}
-                      timeout           {fail "(timeout) complete 'p ' 1"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'p '" }
-        timeout         { fail "(timeout) complete 'p ' 2" }
-        }
-
+gdb_test_multiple "" "$test" {
+    -re "^p \\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "The history is empty\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'info t foo'"
 send_gdb "info t foo\t"
-gdb_expect  {
-        -re "^info t foo\\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Ambiguous info command \"t foo\": target, tasks, terminal, threads, tp, tracepoints, tvariables, types\\..*$gdb_prompt $"\
-                                        { pass "complete 'info t foo'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'info t foo'"}
-                      timeout           {fail "(timeout) complete 'info t foo'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'info t foo'" }
-        timeout         { fail "(timeout) complete 'info t foo'" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^info t foo\\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Ambiguous info command \"t foo\": target, tasks, terminal, threads, tp, tracepoints, tvariables, types\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'info t'"
 send_gdb "info t\t"
-gdb_expect  {
-        -re "^info t\\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Ambiguous info command \"t\": target, tasks, terminal, threads, tp, tracepoints, tvariables, types\\..
-*$gdb_prompt $"\
-                                        { pass "complete 'info t'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'info t'"}
-                      timeout           {fail "(timeout) complete 'info t'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'info t'" }
-        timeout         { fail "(timeout) complete 'info t'" }
-        }
-
+gdb_test_multiple "" "$test" {
+    -re "^info t\\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Ambiguous info command \"t\": target, tasks, terminal, threads, tp, tracepoints, tvariables, types\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'info t '"
 send_gdb "info t \t"
-gdb_expect  {
-        -re "^info t \\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Ambiguous info command \"t \": target, tasks, terminal, threads, tp, tracepoints, tvariables, types\\..
-*$gdb_prompt $"\
-                                        { pass "complete 'info t '"}
-                      -re ".*$gdb_prompt $" { fail "complete 'info t '"}
-                      timeout           {fail "(timeout) complete 'info t '"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'info t '" }
-        timeout         { fail "(timeout) complete 'info t '" }
-        }
-
+gdb_test_multiple "" "$test" {
+    -re "^info t \\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Ambiguous info command \"t \": target, tasks, terminal, threads, tp, tracepoints, tvariables, types\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'info asdfgh'"
 send_gdb "info asdfgh\t"
-gdb_expect  {
-        -re "^info asdfgh\\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Undefined info command: \"asdfgh\".  Try \"help info\"\\..
-*$gdb_prompt $"\
-                                        { pass "complete 'info asdfgh'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
-                      timeout           {fail "(timeout) complete 'info asdfgh'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'info asdfgh'" }
-        timeout         { fail "(timeout) complete 'info asdfgh'" }
-        }
-
+gdb_test_multiple "" "$test" {
+    -re "^info asdfgh\\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Undefined info command: \"asdfgh\".  Try \"help info\"\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'info asdfgh '"
 send_gdb "info asdfgh \t"
-gdb_expect  {
-        -re "^info asdfgh \\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Undefined info command: \"asdfgh \".  Try \"help info\"\\..
-*$gdb_prompt $"\
-                                        { pass "complete 'info asdfgh '"}
-                      -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
-                      timeout           {fail "(timeout) complete 'info asdfgh '"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'info asdfgh '" }
-        timeout         { fail "(timeout) complete 'info asdfgh '" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^info asdfgh \\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Undefined info command: \"asdfgh \".  Try \"help info\"\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'info'"
 send_gdb "info\t"
-gdb_expect  {
-        -re "^info $"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands.*$gdb_prompt $"\
-                                        { pass "complete 'info'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'info'"}
-                      timeout           {fail "(timeout) complete 'info'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'info'" }
-        timeout         { fail "(timeout) complete 'info'" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^info $" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands.*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'info '"
 send_gdb "info \t"
-gdb_expect  {
-        -re "^info \\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*$gdb_prompt $"\
-                                        { pass "complete 'info '"}
-                      -re ".*$gdb_prompt $" { fail "complete 'info '"}
-                      timeout           {fail "(timeout) complete 'info '"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'info '" }
-        timeout         { fail "(timeout) complete 'info '" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^info \\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete (2) 'info '"
 send_gdb "info \t"
-gdb_expect  {
-        -re "^info \\\x07$"\
-            { send_gdb "\t"
-              gdb_expect {
-                      -re "address.*types.*$gdb_prompt "\
-                          { send_gdb "\n"
-                            gdb_expect {
-                                     -re "\"info\".*unambiguous\\..*$gdb_prompt $"\
-                                        { pass "complete (2) 'info '"}
-                                     -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
-                                     timeout           {fail "(timeout) complete (2) 'info '"}
-                                    }
-                           }
-                      -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
-                      timeout           {fail "(timeout) complete (2) 'info '"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete (2) 'info '" }
-        timeout         { fail "(timeout) complete (2) 'info '" }
-        }
-
+gdb_test_multiple "" "$test" {
+    -re "^info \\\x07$" {
+	send_gdb "\t"
+	gdb_test_multiple "" "$test" {
+	    -re "address.*types.*$gdb_prompt " {
+		send_gdb "\n"
+		gdb_test_multiple "" "$test" {
+		    -re "\"info\".*unambiguous\\..*$gdb_prompt $" {
+			pass "$test"
+		    }
+		}
+	    }
+	}
+    }
+}
 
+set test "complete help info wat"
 send_gdb "help info wat\t"
-gdb_expect  {
-        -re "^help info watchpoints $"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Status of specified watchpoints.*\r\n.*$gdb_prompt $"\
-                          { pass "complete help info wat" }
-                      -re ".*$gdb_prompt $" { fail "complete help info wat"}
-                      timeout   {fail "(timeout) complete help info wat"}
-                     }
-            }
-	-re "^help info wat\\\x07$" { fail "complete (2) help info wat" }
-        -re ".*$gdb_prompt $" { fail "complete (3) help info wat" }
-        timeout         { fail "(timeout) complete (3) help info wat" }
-        }
-
+gdb_test_multiple "" "$test" {
+    -re "^help info watchpoints $" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Status of specified watchpoints.*\r\n.*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+    -re "^help info wat\\\x07$" {
+	fail "$test"
+    }
+}
 
+set test "complete 'p \"break1'"
 send_gdb "p \"break1\t"
-gdb_expect  {
-        -re "^p \"break1\\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re ".*$gdb_prompt $" { fail "complete 'p \"break1'"}
-                      timeout           {fail "(timeout) complete 'p \"break1'"}
-                     }
-            }
-	-re "^p \"break1\\.c\"$"\
-	    {	send_gdb "\n"
-		gdb_expect {
-		    -re ".*$gdb_prompt $" { pass "complete 'p \"break1'"}
-		    timeout           {fail "(timeout) complete 'p \"break1'"}
-		}
+gdb_test_multiple "" "$test" {
+    -re "^p \"break1\\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {}
+    }
+    -re "^p \"break1\\.c\"$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re ".*$gdb_prompt $" {
+		pass "$test"
 	    }
-        -re ".*$gdb_prompt $"       { fail "complete 'p \"break1'" }
-        timeout         { fail "(timeout) complete 'p \"break1'" }
-        }
+	}
+    }
+}
 
 setup_xfail "*-*-*"
+set test "complete 'p \"break1.'"
 send_gdb "p \"break1.\t"
-gdb_expect  {
-        -re "^p \"break1\\.\\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re ".*$gdb_prompt $" { fail "complete 'p \"break1.'"}
-                      timeout           {fail "(timeout) complete 'p \"break1.'"}
-                     }
-            }
-	-re "^p \"break1\\.c\"$"\
-	    {	send_gdb "\n"
-		gdb_expect {
-		    -re ".*$gdb_prompt $" { pass "complete 'p \"break1.'"}
-		    timeout           {fail "(timeout) complete 'p \"break1.'"}
-		}
-	    }
-	-re "^p \"break1\\..*$"
-	    {	send_gdb "\n"
-		gdb_expect {
-		    -re ".*$gdb_prompt $" { fail "complete 'p \"break1.'"}
-		    timeout           {fail "(timeout) complete 'p \"break1.'"}
-		}
+gdb_test_multiple "" "$test" {
+    -re "^p \"break1\\.\\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {}
+    }
+    -re "^p \"break1\\.c\"$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re ".*$gdb_prompt $" {
+		pass "$test"
 	    }
-        -re ".*$gdb_prompt $"       { fail "complete 'p \"break1.'" }
-        timeout         { fail "(timeout) complete 'p \"break1.'" }
-        }
+	}
+    }
+    -re "^p \"break1\\..*$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {}
+    }
+}
 
+set test "complete 'p \'arg'"
 send_gdb "p 'arg\t"
-gdb_expect  {
-        -re "^p 'arg\\\x07$"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $"\
-                                        { pass "complete 'p \'arg'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'p \'arg'"}
-                      timeout           {fail "(timeout) complete 'p \'arg'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'p \'arg'" }
-        timeout         { fail "(timeout) complete 'p \'arg'" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^p 'arg\\\x07$" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete (2) 'p \'arg'"
 send_gdb "p 'arg\t"
-gdb_expect {
+gdb_test_multiple "" "$test" {
     -re "^p 'arg\\\x07$" {
 	send_gdb "\t"
-	gdb_expect {
+	gdb_test_multiple "" "$test" {
 	    -re ".*argv.*$gdb_prompt " {
 		send_gdb "\n"
-		gdb_expect {
+		gdb_test_multiple "" "$test" {
 		    -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
-			pass "complete (2) 'p \'arg'"
+			pass "$test"
 		    }
-		    -re ".*$gdb_prompt $" { fail "complete (2) 'p \'arg'" }
-		    timeout { fail "(timeout) complete (2) 'p \'arg'" }
 		}
 	    }
 	    -re "(There are $decimal possibilities\\.  Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
 		send_gdb "n"
-		gdb_expect {
+		gdb_test_multiple "" "$test" {
 		    -re "\\(gdb\\) p 'arg$" {
 			send_gdb "\n"
-			gdb_expect {
+			gdb_test_multiple "" "$test" {
 			    -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
-				pass "complete (2) 'p \'arg'"
+				pass "$test"
 			    }
-			    -re ".*$gdb_prompt $" { 
-				fail "complete (2) 'p \'arg'"
-			    }
-			    timeout { fail "(timeout) complete (2) 'p \'arg'" }
 			}
 		    }
-		    -re ".*$gdb_prompt $" { fail "complete (2) 'p \'arg'" }
-		    timeout { fail "(timeout) complete (2) 'p \'arg'" }
 		}
 	    }
-	    -re ".*$gdb_prompt $" { fail "complete (2) 'p \'arg'" }
-	    timeout { fail "(timeout) complete (2) 'p \'arg'" }
 	}
     }
-    -re ".*$gdb_prompt $" { fail "complete (2) 'p \'arg'" }
-    timeout { fail "(timeout) complete (2) 'p \'arg'" }
 }
 
 
@@ -455,47 +391,32 @@ gdb_expect {
 #
 # So, I'm hoping that there is no system with a static library variable named
 # `no_var_by_this_name'.
+
+set test "complete 'p no_var_named_this-arg'"
 send_gdb "p no_var_named_this-arg\t"
-gdb_expect {
+gdb_test_multiple "" "$test" {
     -re "^p no_var_named_this-arg\\\x07$" {
         send_gdb "\n"
-        gdb_expect {
+	gdb_test_multiple "" "$test" {
             -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
-                pass "complete 'p no_var_named_this-arg'"
-            }
-            -re ".*$gdb_prompt $" {
-                fail "complete 'p no_var_named_this-arg'"
-            }
-            timeout {
-                fail "(timeout) complete 'p no_var_named_this-arg'"
+		pass "$test"
             }
         }
     }
-    -re ".*$gdb_prompt $" {
-        fail "complete 'p no_var_named_this-arg'"
-    }
-    timeout {
-        fail "(timeout) complete 'p no_var_named_this-arg'"
-    }
 }
 
+set test "complete (2) 'p no_var_named_this-arg'"
 send_gdb "p no_var_named_this-arg\t"
-gdb_expect {
+gdb_test_multiple "" "$test" {
     -re "^p no_var_named_this-arg\\\x07$" {
 	send_gdb "\t"
-	gdb_expect {
+	gdb_test_multiple "" "$test" {
 	    -re ".*argv.*$gdb_prompt " {
 		send_gdb "\n"
-		gdb_expect {
+		gdb_test_multiple "" "$test" {
 		    -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
-			pass "complete (2) 'p no_var_named_this-arg'"
+			pass "$test"
 		    }
-		    -re ".*$gdb_prompt $" {
-                        fail "complete (2) 'p no_var_named_this-arg'"
-                    }
-		    timeout {
-                        fail "(timeout) complete (2) 'p no_var_named_this-arg'"
-                    }
 		}
 	    }
 	    -re "(There are $decimal possibilities\\.  Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
@@ -504,133 +425,102 @@ gdb_expect {
 		# Eat the prompt
 		gdb_expect {
 		    -re "$gdb_prompt " {
-			pass "complete (2) 'p no_var_named_this-arg' (eat prompt)"
+			pass "$test (eat prompt)"
+		    }
+		    timeout {
+			fail "(timeout) $test (eat prompt)"
 		    }
-		    timeout { fail "(timeout) complete (2) 'p no_var_named_this-' (eat prompt)" }
 		}
 
-		gdb_expect {
+		gdb_test_multiple "" "$test" {
 		    -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
-			pass "complete (2) 'p no_var_named_this-arg'"
-		    }
-		    -re ".*$gdb_prompt $" {
-			fail "complete (2) 'p no_var_named_this-arg'"
-		    }
-		    timeout {
-			fail "(timeout) complete (2) 'p no_var_named_this-arg'"
+			pass "$test"
 		    }
 		}
 	    }
-	    -re ".*$gdb_prompt $" {
-                fail "complete (2) 'p no_var_named_this-arg'"
-            }
-	    timeout { fail "(timeout) complete (2) 'p no_var_named_this-arg'" }
         }
     }
-    -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-arg'" }
-    timeout { fail "(timeout) complete (2) 'p no_var_named_this-arg'" }
 }
 
+set test "complete (2) 'p no_var_named_this-'"
 send_gdb "p no_var_named_this-\t"
-gdb_expect  {
+gdb_test_multiple "" "$test" {
     -re "^p no_var_named_this-\\\x07$" {
 	send_gdb "\t"
-	gdb_expect {
+	gdb_test_multiple "" "$test" {
 	    -re "(There are $decimal possibilities\\.  Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
 		send_gdb "n\n"
 
 		# Eat the prompt
 		gdb_expect {
 		    -re "$gdb_prompt " {
-			pass "complete (2) 'p no_var_named_this-' (eat prompt)"
+			pass "$test (eat prompt)"
+		    }
+		    timeout {
+			fail "(timeout) $test (eat prompt)"
 		    }
-		    timeout { fail "(timeout) complete (2) 'p no_var_named_this-' (eat prompt)" }
 		}
 
-		gdb_expect {
+		gdb_test_multiple "" "$test" {
 		    -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
-			pass "complete (2) 'p no_var_named_this-'"
-		    }
-		    -re ".*$gdb_prompt $" {
-			fail "complete (2) 'p no_var_named_this-'"
-		    }
-		    timeout {
-			fail "(timeout) complete (2) 'p no_var_named_this-'"
+			pass "$test"
 		    }
 		}
 	    }
 	    -re ".*argv.*$gdb_prompt $" {
 		send_gdb "\n"
-		gdb_expect {
+		gdb_test_multiple "" "$test" {
 		    -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
-			pass "complete (2) 'p no_var_named_this-'"
-		    }
-		    -re ".*$gdb_prompt $" {
-			fail "complete (2) 'p no_var_named_this-'"
-		    }
-		    timeout {
-			fail "(timeout) complete (2) 'p no_var_named_this-'"
+			pass "$test"
 		    }
 		}
 	    }
-	    -re ".*$gdb_prompt $" {
-                fail "complete (2) 'p no_var_named_this-'"
-            }
-	    timeout { fail "(timeout) complete (2) 'p no_var_named_this-'" }
 	}
     }
-    -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-'" }
-    timeout { fail "(timeout) complete (2) 'p no_var_named_this-'" }
 }
 
+set test "complete 'p values\[0\].a'"
 send_gdb "p values\[0\].a\t"
-gdb_expect  {
-        -re "^p values.0..a_field $"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "^.* = 0.*$gdb_prompt $"\
-                                        { pass "complete 'p values\[0\].a'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'p values\[0\].a'"}
-                      timeout           {fail "(timeout) complete 'p values\[0\].a'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'p values\[0\].a'" }
-        timeout         { fail "(timeout) complete 'p values\[0\].a' 2" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^p values.0..a_field $" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "^.* = 0.*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'p values\[0\] . a'"
 send_gdb "p values\[0\] . a\t"
-gdb_expect  {
-        -re "^p values.0. . a_field $"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "^.* = 0.*$gdb_prompt $"\
-                                        { pass "complete 'p values\[0\] . a'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'p values\[0\] . a'"}
-                      timeout           {fail "(timeout) complete 'p values\[0\] . a'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'p values\[0\] . a'" }
-        timeout         { fail "(timeout) complete 'p values\[0\] . a' 2" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^p values.0. . a_field $" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "^.* = 0.*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'p &values\[0\] -> a'"
 send_gdb "p &values\[0\] -> a\t"
-gdb_expect  {
-        -re "^p &values.0. -> a_field $"\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "^.* = .*0x\[0-9a-fA-F\]*.*$gdb_prompt $"\
-                                        { pass "complete 'p &values\[0\] -> a'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'p &values\[0\] -> a'"}
-                      timeout           {fail "(timeout) complete 'p &values\[0\] -> a'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'p &values\[0\] -> a'" }
-        timeout         { fail "(timeout) complete 'p &values\[0\] -> a' 2" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^p &values.0. -> a_field $" {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "^.* = .*0x\[0-9a-fA-F\]*.*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
 gdb_test "complete p &values\[0\]->z" \
     "p &values.0.->z_field" \
-    "copmletion of field in anonymous union"
+    "completion of field in anonymous union"
 
 # The following tests used to simply try to complete `${objdir}/file',
 # and so on.  The problem is that ${objdir} can be very long; the
@@ -703,72 +593,62 @@ gdb_expect {
 # Empty COMMAND sends no newline while " " sends the newline we need.
 gdb_test " " "Source directories searched: .*" "Glob remaining of directory test"
 
+gdb_test "complete file ./gdb.base/compl" \
+    "file ./gdb.base/completion\\.exp.*" \
+    "complete-command 'file ./gdb.base/compl'"
 
-send_gdb "complete file ./gdb.base/compl\n"
-gdb_expect  {
-    -re "file ./gdb.base/completion\\.exp.*$gdb_prompt $"
-	{ pass "complete-command 'file ./gdb.base/compl'"}
-    -re ".*$gdb_prompt $"       { fail "complete-command 'file ./gdb.base/compl'" }
-    timeout         { fail "(timeout) complete-command 'file ./gdb.base/compl'" }
-}
-
+set test "complete 'file ./gdb.base/complet'"
 send_gdb "file ./gdb.base/complet\t"
-gdb_expect  {
-        -re "^file ./gdb.base/completion\\.exp $"\
-            { send_gdb "\n"
-	      # Ignore the exact error message.
-	      gdb_test_multiple "" "complete 'file ./gdb.base/complet'" {
-		  -re "\r\nA program is being debugged already\\.\[\r\n\]+Are you sure you want to change the file\\? \\(y or n\\) $" {
-		      send_gdb "n\n"
-		      exp_continue
-		  }
-		  -re ".*$gdb_prompt $" { pass "complete 'file ./gdb.base/complet'" }
-	      }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'file ./gdb.base/complet'" }
-        timeout         { fail "(timeout) complete 'file ./gdb.base/complet'" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^file ./gdb.base/completion\\.exp $" {
+	send_gdb "\n"
+	# Ignore the exact error message.
+	gdb_test_multiple "" "complete 'file ./gdb.base/complet'" {
+	    -re "\r\nA program is being debugged already\\.\[\r\n\]+Are you sure you want to change the file\\? \\(y or n\\) $" {
+		send_gdb "n\n"
+		exp_continue
+	    }
+	    -re ".*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
+set test "complete 'info func marke'"
 send_gdb "info func marke\t"
-gdb_expect  {
-        -re "^info func marke.*r$"\
-            {
-	      send_gdb "\t\t"
-              gdb_expect {
-                      -re "marker1.*$gdb_prompt "\
-                      { send_gdb "\n"
-                        gdb_expect {
-                                -re "All functions matching regular expression \"marker\":.*File.*break1.c:\r\nint marker1\\((void|)\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long( int)?\\);.*$gdb_prompt $"\
-                                                  { pass "complete 'info func marke'"}
-                                -re ".*$gdb_prompt $" { fail "complete 'info func marke'"}
-                                timeout           {fail "(timeout) complete 'info func marke'"}
-                               }
-                      }
-                      -re ".*$gdb_prompt $" { fail "complete 'info func marke'"}
-                      timeout           {fail "(timeout) complete 'info func marke'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'info func marke'" }
-        timeout         { fail "(timeout) complete 'info func marke'" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "^info func marke.*r$" {
+	send_gdb "\t\t"
+	gdb_test_multiple "" "$test" {
+	    -re "marker1.*$gdb_prompt " {
+		send_gdb "\n"
+		gdb_test_multiple "" "$test" {
+		    -re "All functions matching regular expression \"marker\":.*File.*break1.c:\r\nint marker1\\((void|)\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long( int)?\\);.*$gdb_prompt $" {
+			pass "$test"
+		    }
+		}
+	    }
+	}
+    }
+}
 
 
+set test "complete 'set follow-fork-mode'"
 send_gdb "set follow-fork-mode \t\t"
-gdb_expect  {
-        -re "child.*parent.*$gdb_prompt "\
-            { send_gdb "\n"
-              gdb_expect {
-                      -re "Requires an argument.*child.*parent.*$gdb_prompt $"\
-                                        { pass "complete 'set follow-fork-mode'"}
-                      -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
-                                        { pass "complete 'set follow-fork-mode'"}
-                      -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
-                      timeout           {fail "(timeout) complete 'set follow-fork-mode'"}
-                     }
-            }
-        -re ".*$gdb_prompt $"       { fail "complete 'set follow-fork-mode'" }
-        timeout         { fail "(timeout) complete 'set follow-fork-mode'" }
-        }
+gdb_test_multiple "" "$test" {
+    -re "child.*parent.*$gdb_prompt " {
+	send_gdb "\n"
+	gdb_test_multiple "" "$test" {
+	    -re "Requires an argument.*child.*parent.*$gdb_prompt $" {
+		pass "$test"
+	    }
+	    -re "Ambiguous item \"\"\\..*$gdb_prompt $" {
+		pass "$test"
+	    }
+	}
+    }
+}
 
 gdb_test_no_output "complete print values\[0\].x." \
     "field completion with invalid field"