2001-05-10 Elena Zannoni <ezannoni@redhat.com>

       * gdb.base/completion.exp: Revamp test. Make it execute on all
       platforms.

diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp
index b08c8a0..9fa44c0 100644 (file)
--- a/gdb/testsuite/gdb.base/completion.exp
+++ b/gdb/testsuite/gdb.base/completion.exp
@@ -52,11 +52,6 @@ if $tracelevel then {
         }
 
 
         }
 
 

-if { ![istarget "hppa*-hp-hpux*"] } {
-    #skip all these tests for now (FIXME)
-    continue
-}
-

 global usestubs
 
 #
 global usestubs
 
 #


@@ -379,7 +374,7 @@ gdb_expect {
     -re "^p 'a\\\x07$" {
        send_gdb "\t"
        gdb_expect {
     -re "^p 'a\\\x07$" {
        send_gdb "\t"
        gdb_expect {

-           -re "a64l.*atol.*$gdb_prompt p .a$" {
+           -re "a64l.*argv.*$gdb_prompt p .a$" {

                send_gdb "\n"
                gdb_expect {
                    -re "Invalid character constant\\..*$gdb_prompt $" {
                send_gdb "\n"
                gdb_expect {
                    -re "Invalid character constant\\..*$gdb_prompt $" {


@@ -439,7 +434,7 @@ gdb_expect {
     -re "^p b-a\\\x07$" {
        send_gdb "\t"
        gdb_expect {
     -re "^p b-a\\\x07$" {
        send_gdb "\t"
        gdb_expect {

-           -re "a64l.*atol.*$gdb_prompt p b-a$" {
+           -re "a64l.*argv.*$gdb_prompt p b-a$" {

                send_gdb "\n"
                gdb_expect {
                    -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
                send_gdb "\n"
                gdb_expect {
                    -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {


@@ -533,10 +528,10 @@ gdb_expect  {
         }
 
 
         }
 
 

-send_gdb "file ${srcdir}/gdb.base/self\t"
+send_gdb "file ${srcdir}/gdb.base/compl\t"

 sleep 1
 gdb_expect  {
 sleep 1
 gdb_expect  {

-        -re "^file ${srcdir}/gdb.base/.*'selftest\\.exp' $"\
+        -re "^file ${srcdir}/gdb.base/completion\\.exp $"\

             { send_gdb "\n"
               gdb_expect {
                       -re "\r\nA program is being debugged already\\.  Kill it\\? \\(y or n\\) $"
             { send_gdb "\n"
               gdb_expect {
                       -re "\r\nA program is being debugged already\\.  Kill it\\? \\(y or n\\) $"


@@ -544,20 +539,19 @@ gdb_expect  {
                       { send_gdb "n\n"
                         gdb_expect {
                                 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
                       { send_gdb "n\n"
                         gdb_expect {
                                 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\

-                                        { pass "complete 'file gdb.base/self'"}
-                                -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"}
-                                timeout           {fail "(timeout) complete 'file gdb.base/self'"}
+                                        { pass "complete 'file gdb.base/compl'"}
+                                -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'"}
+                                timeout           {fail "(timeout) complete 'file gdb.base/compl'"}

                                }
                       }
                                }
                       }

-                      -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"}
-                      timeout           {fail "(timeout) complete 'file gdb.base/self'"}
+                      -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'"}
+                      timeout           {fail "(timeout) complete 'file gdb.base/compl'"}

                      }
             }
                      }
             }

-        -re ".*$gdb_prompt $"       { fail "complete 'file gdb.base/self'" }
-        timeout         { fail "(timeout) complete 'file gdb.base/self'" }
+        -re ".*$gdb_prompt $"       { fail "complete 'file gdb.base/compl'" }
+        timeout         { fail "(timeout) complete 'file gdb.base/compl'" }

         }
 
         }
 

-

 send_gdb "info func mark\t"
 sleep 1
 gdb_expect  {
 send_gdb "info func mark\t"
 sleep 1
 gdb_expect  {


@@ -569,7 +563,7 @@ gdb_expect  {
                       -re "marker1.*$gdb_prompt info func marker$"\
                       { send_gdb "\n"
                         gdb_expect {
                       -re "marker1.*$gdb_prompt info func marker$"\
                       { send_gdb "\n"
                         gdb_expect {

-                                -re "All functions matching regular expression \"marker\":\r\n\r\nFile.*break.c:\r\nint marker1\\(.*\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long\\);\r\n$gdb_prompt $"\
+                                -re "All functions matching regular expression \"marker\":\r\n\r\nFile.*break.c:\r\nint marker1\\(\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long int\\);\r\n$gdb_prompt $"\

                                                   { pass "complete 'info func mar'"}
                                 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
                                 timeout           {fail "(timeout) complete 'info func mar'"}
                                                   { pass "complete 'info func mar'"}
                                 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
                                 timeout           {fail "(timeout) complete 'info func mar'"}


@@ -590,7 +584,7 @@ gdb_expect  {
         -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\
             { send_gdb "\n"
               gdb_expect {
         -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\
             { send_gdb "\n"
               gdb_expect {

-                      -re "Requires an argument.*parent.*child.*ask.*$gdb_prompt $"\
+                      -re "Requires an argument.*ask.*child.*parent.*$gdb_prompt $"\

                                         { pass "complete 'set follow-fork-mode'"}
                       -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
                                         { pass "complete 'set follow-fork-mode'"}
                                         { pass "complete 'set follow-fork-mode'"}
                       -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
                                         { pass "complete 'set follow-fork-mode'"}