gdb/testsuite/gdb.base/info-os.exp

   1 # Copyright 2011-2022 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 standard_testfile .c
  17
  18 # This test is Linux-only.
  19 if ![istarget *-*-linux*] then {
  20     unsupported "info-os.exp"
  21     return -1
  22 }
  23
  24 # Support for XML-output is needed to run this test.
  25 if [gdb_skip_xml_test] then {
  26     unsupported "info-os.exp"
  27     return -1
  28 }
  29
  30 # Compile test program.
  31 if { [prepare_for_testing "failed to prepare" $testfile $srcfile {debug pthreads}] } {
  32     fail "cannot compile test program"
  33     return -1
  34 }
  35
  36 if ![runto_main] then {
  37     fail "cannot run to main"
  38     return -1
  39 }
  40
  41 # Get PID of test program.
  42 set inferior_pid ""
  43 set test "get inferior process ID"
  44 gdb_test_multiple "call (int) getpid()" $test {
  45     -re ".* = ($decimal).*$gdb_prompt $" {
  46         set inferior_pid $expect_out(1,string)
  47         pass $test
  48     }
  49 }
  50 if {$inferior_pid == ""} {
  51     untested "failed to get pid"
  52     return
  53 }
  54
  55 gdb_breakpoint ${srcfile}:[gdb_get_line_number "Set breakpoint here"]
  56 gdb_continue_to_breakpoint "Set breakpoint here"
  57
  58 # Get keys and IDs of the IPC object instances.
  59 set shmkey -1
  60 set test "get shared memory key"
  61 gdb_test_multiple "print shmkey" $test {
  62     -re ".* = ($decimal).*$gdb_prompt $" {
  63         set shmkey $expect_out(1,string)
  64         pass $test
  65     }
  66 }
  67 set shmid -1
  68 set test "get shared memory ID"
  69 gdb_test_multiple "print shmid" $test {
  70     -re ".* = ($decimal).*$gdb_prompt $" {
  71         set shmid $expect_out(1,string)
  72         pass $test
  73     }
  74 }
  75
  76 set semkey -1
  77 set test "get semaphore key"
  78 gdb_test_multiple "print semkey" $test {
  79     -re ".* = ($decimal).*$gdb_prompt $" {
  80         set semkey $expect_out(1,string)
  81         pass $test
  82     }
  83 }
  84
  85 set semid -1
  86 set test "get semaphore ID"
  87 gdb_test_multiple "print semid" $test {
  88     -re ".* = ($decimal).*$gdb_prompt $" {
  89         set semid $expect_out(1,string)
  90         pass $test
  91     }
  92 }
  93
  94 set msgkey -1
  95 set test "get message queue key"
  96 gdb_test_multiple "print msgkey" $test {
  97     -re ".* = ($decimal).*$gdb_prompt $" {
  98         set msgkey $expect_out(1,string)
  99         pass $test
 100     }
 101 }
 102
 103 set msqid -1
 104 set test "get message queue ID"
 105 gdb_test_multiple "print msqid" $test {
 106     -re ".* = ($decimal).*$gdb_prompt $" {
 107         set msqid $expect_out(1,string)
 108         pass $test
 109     }
 110 }
 111
 112 # Get port number of test socket.
 113 set port -1
 114 set test "get socket port number"
 115 gdb_test_multiple "print port" $test {
 116     -re ".* = ($decimal).*$gdb_prompt $" {
 117         set port $expect_out(1,string)
 118         pass $test
 119     }
 120 }
 121
 122 # Act like gdb_test but prevent: +ERROR: internal buffer is full.
 123
 124 proc expect_multiline { command expect test } {
 125     global gdb_prompt
 126
 127     # Do not duplicate FAILs from gdb_test_multiple.
 128     set pass 0
 129     set fail 0
 130     gdb_test_multiple $command $test {
 131         -re "^$expect *\r\n" {
 132             pass $test
 133             set pass 1
 134             exp_continue
 135         }
 136         -re "^$gdb_prompt $" {
 137             if !$pass {
 138                 set fail 1
 139             }
 140             # Exit the loop.
 141         }
 142         -re "\r\n" {
 143             # Drop the buffer.
 144             exp_continue
 145         }
 146     }
 147     if $fail {
 148         fail $test
 149     }
 150 }
 151
 152 # Test output of the 'info os' commands against the expected results.
 153
 154 #                                     pid            user  command      cores
 155 expect_multiline "info os processes" "$inferior_pid +\\S+ +\\S*info-os +\[0-9,\]+" "get process list"
 156
 157 #                                      pgid           leader   pid            command line
 158 expect_multiline "info os procgroups" "$inferior_pid +info-os +$inferior_pid +\\S*info-os" "get process groups"
 159
 160 #                                   pid            command  tid   core
 161 expect_multiline "info os threads" "$inferior_pid +info-os +\\d+ +\\d+" "get threads"
 162
 163 #                                 pid            command  fd    name
 164 expect_multiline "info os files" "$inferior_pid +info-os +\\d+ +/dev/null" "get file descriptors"
 165
 166 #                                   local address  l-port remote addr r-port state  user family protocol
 167 expect_multiline "info os sockets" "0\\.0\\.0\\.0 +$port +0\\.0\\.0\\.0 +0 +LISTEN +\\S+ +INET +STREAM" "get internet-domain sockets"
 168
 169 #                               key   shmid   perm size creator command last op  command  num attached  user  group  creator user  creator group  last shmat() time  last shmdt() time  last shmctl() time
 170 expect_multiline "info os shm" "$shmkey +$shmid +666 +4096 +info-os .*" "get shared-memory regions"
 171
 172 #                                      key   semid   perm num semaphores  user  group  creator user  creator group  last semop() time  last semctl() time
 173 expect_multiline "info os semaphores" "$semkey +$semid +666 +1 .*" "get semaphores"
 174
 175 #                               key   msqid   perm  num used bytes  num messages  last msgsnd() command  last msgrcv() command  user  group  creator user  creator group  last msgsnd() time  last msgrcv() time  last msgctl() time
 176 expect_multiline "info os msg" "$msgkey +$msqid +666 .*" "get message queues"
 177
 178 gdb_test "info os unknown_entry" [multi_line \
 179         "warning: Empty data returned by target.  Wrong osdata type\\\?" \
 180         "Can not fetch data now."]
 181
 182 # The SysV IPC primitives linger on after the creating process is killed
 183 # unless they are destroyed explicitly, so allow the test program to tidy
 184 # up after itself.
 185 gdb_test "continue" "exited.*"