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

   1 # Copyright 2011-2013 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 ${testfile}.exp $testfile $srcfile {debug additional_flags=-lpthread}] } {
  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 -1
  43 set test "get inferior process ID"
  44 gdb_test_multiple "call getpid()" $test {
  45     -re ".* = ($decimal).*$gdb_prompt $" {
  46         set inferior_pid $expect_out(1,string)
  47         pass $test
  48     }
  49 }
  50
  51 gdb_breakpoint ${srcfile}:[gdb_get_line_number "Set breakpoint here"]
  52 gdb_continue_to_breakpoint "Set breakpoint here"
  53
  54 # Get keys and IDs of the IPC object instances.
  55 set shmkey -1
  56 set test "get shared memory key"
  57 gdb_test_multiple "print shmkey" $test {
  58     -re ".* = ($decimal).*$gdb_prompt $" {
  59         set shmkey $expect_out(1,string)
  60         pass $test
  61     }
  62 }
  63 set shmid -1
  64 set test "get shared memory ID"
  65 gdb_test_multiple "print shmid" $test {
  66     -re ".* = ($decimal).*$gdb_prompt $" {
  67         set shmid $expect_out(1,string)
  68         pass $test
  69     }
  70 }
  71
  72 set semkey -1
  73 set test "get semaphore key"
  74 gdb_test_multiple "print semkey" $test {
  75     -re ".* = ($decimal).*$gdb_prompt $" {
  76         set semkey $expect_out(1,string)
  77         pass $test
  78     }
  79 }
  80
  81 set semid -1
  82 set test "get semaphore ID"
  83 gdb_test_multiple "print semid" $test {
  84     -re ".* = ($decimal).*$gdb_prompt $" {
  85         set semid $expect_out(1,string)
  86         pass $test
  87     }
  88 }
  89
  90 set msgkey -1
  91 set test "get message queue key"
  92 gdb_test_multiple "print msgkey" $test {
  93     -re ".* = ($decimal).*$gdb_prompt $" {
  94         set msgkey $expect_out(1,string)
  95         pass $test
  96     }
  97 }
  98
  99 set msqid -1
 100 set test "get message queue ID"
 101 gdb_test_multiple "print msqid" $test {
 102     -re ".* = ($decimal).*$gdb_prompt $" {
 103         set msqid $expect_out(1,string)
 104         pass $test
 105     }
 106 }
 107
 108 # Get port number of test socket.
 109 set port -1
 110 set test "get socket port number"
 111 gdb_test_multiple "print port" $test {
 112     -re ".* = ($decimal).*$gdb_prompt $" {
 113         set port $expect_out(1,string)
 114         pass $test
 115     }
 116 }
 117
 118 # Act like gdb_test but prevent: +ERROR: internal buffer is full.
 119
 120 proc expect_multiline { command expect test } {
 121     global gdb_prompt
 122
 123     # Do not duplicate FAILs from gdb_test_multiple.
 124     set pass 0
 125     set fail 0
 126     gdb_test_multiple $command $test {
 127         -re "^$expect *\r\n" {
 128             pass $test
 129             set pass 1
 130             exp_continue
 131         }
 132         -re "^$gdb_prompt $" {
 133             if !$pass {
 134                 set fail 1
 135             }
 136             # Exit the loop.
 137         }
 138         -re "\r\n" {
 139             # Drop the buffer.
 140             exp_continue
 141         }
 142     }
 143     if $fail {
 144         fail $test
 145     }
 146 }
 147
 148 # Test output of the 'info os' commands against the expected results.
 149
 150 #                                     pid            user  command      cores
 151 expect_multiline "info os processes" "$inferior_pid +\\S+ +\\S*info-os +\[0-9,\]+" "get process list"
 152
 153 #                                      pgid           leader   pid            command line
 154 expect_multiline "info os procgroups" "$inferior_pid +info-os +$inferior_pid +\\S*info-os" "get process groups"
 155
 156 #                                   pid            command  tid   core
 157 expect_multiline "info os threads" "$inferior_pid +info-os +\\d+ +\\d+" "get threads"
 158
 159 #                                 pid            command  fd    name
 160 expect_multiline "info os files" "$inferior_pid +info-os +\\d+ +/dev/null" "get file descriptors"
 161
 162 #                                   local address  l-port remote addr r-port state  user family protocol
 163 expect_multiline "info os sockets" "0\\.0\\.0\\.0 +$port +0\\.0\\.0\\.0 +0 +LISTEN +\\S+ +INET +STREAM" "get internet-domain sockets"
 164
 165 #                               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
 166 expect_multiline "info os shm" "$shmkey +$shmid +666 +4096 +info-os .*" "get shared-memory regions"
 167
 168 #                                      key   semid   perm num semaphores  user  group  creator user  creator group  last semop() time  last semctl() time
 169 expect_multiline "info os semaphores" "$semkey +$semid +666 +1 .*" "get semaphores"
 170
 171 #                               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
 172 expect_multiline "info os msg" "$msgkey +$msqid +666 .*" "get message queues"
 173
 174
 175 # The SysV IPC primitives linger on after the creating process is killed
 176 # unless they are destroyed explicitly, so allow the test program to tidy
 177 # up after itself.
 178 gdb_test "continue" "exited.*"