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

   1 # Copyright 2011 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 set testfile "info-os"
  17 set srcfile ${testfile}.c
  18
  19 # This test is Linux-only.
  20 if ![istarget *-*-linux*] then {
  21     unsupported "info-os.exp"
  22     return -1
  23 }
  24
  25 # Support for XML-output is needed to run this test.
  26 if [gdb_skip_xml_test] then {
  27     unsupported "info-os.exp"
  28     return -1
  29 }
  30
  31 # Compile test program.
  32 if { [prepare_for_testing ${testfile}.exp $testfile $srcfile {debug additional_flags=-lpthread}] } {
  33     fail "cannot compile test program"
  34     return -1
  35 }
  36
  37 if ![runto_main] then {
  38     fail "cannot run to main"
  39     return -1;
  40 }
  41
  42 # Get PID of test program.
  43 set inferior_pid -1
  44 set test "get inferior process ID"
  45 gdb_test_multiple "call getpid()" $test {
  46     -re ".* = ($decimal).*$gdb_prompt $" {
  47         set inferior_pid $expect_out(1,string)
  48         pass $test
  49     }
  50 }
  51
  52 gdb_breakpoint ${srcfile}:[gdb_get_line_number "Set breakpoint here"]
  53 gdb_continue_to_breakpoint "Set breakpoint here"
  54
  55 # Get IDs of the IPC object instances.
  56 set shmid -1
  57 set test "get shared memory ID"
  58 gdb_test_multiple "print shmid" $test {
  59     -re ".* = ($decimal).*$gdb_prompt $" {
  60         set shmid $expect_out(1,string)
  61         pass $test
  62     }
  63 }
  64
  65 set semid -1
  66 set test "get semaphore ID"
  67 gdb_test_multiple "print semid" $test {
  68     -re ".* = ($decimal).*$gdb_prompt $" {
  69         set semid $expect_out(1,string)
  70         pass $test
  71     }
  72 }
  73
  74 set msqid -1
  75 set test "get message queue ID"
  76 gdb_test_multiple "print msqid" $test {
  77     -re ".* = ($decimal).*$gdb_prompt $" {
  78         set msqid $expect_out(1,string)
  79         pass $test
  80     }
  81 }
  82
  83 # Get port number of test socket.
  84 set port -1
  85 set test "get socket port number"
  86 gdb_test_multiple "print port" $test {
  87     -re ".* = ($decimal).*$gdb_prompt $" {
  88         set port $expect_out(1,string)
  89         pass $test
  90     }
  91 }
  92
  93 # Act like gdb_test but prevent: +ERROR: internal buffer is full.
  94
  95 proc expect_multiline { command expect test } {
  96     global gdb_prompt
  97
  98     # Do not duplicate FAILs from gdb_test_multiple.
  99     set pass 0
 100     set fail 0
 101     gdb_test_multiple $command $test {
 102         -re "^$expect *\r\n" {
 103             pass $test
 104             set pass 1
 105             exp_continue
 106         }
 107         -re "^$gdb_prompt $" {
 108             if !$pass {
 109                 set fail 1
 110             }
 111             # Exit the loop.
 112         }
 113         -re "\r\n" {
 114             # Drop the buffer.
 115             exp_continue
 116         }
 117     }
 118     if $fail {
 119         fail $test
 120     }
 121 }
 122
 123 # Test output of the 'info os' commands against the expected results.
 124
 125 #                                     pid            user  command      cores
 126 expect_multiline "info os processes" "$inferior_pid +\\S+ +\\S*info-os +\[0-9,\]+" "get process list"
 127
 128 #                                      pgid           leader   pid            command line
 129 expect_multiline "info os procgroups" "$inferior_pid +info-os +$inferior_pid +\\S*info-os" "get process groups"
 130
 131 #                                   pid            command  tid   core
 132 expect_multiline "info os threads" "$inferior_pid +info-os +\\d+ +\\d+" "get threads"
 133
 134 #                                 pid            command  fd    name
 135 expect_multiline "info os files" "$inferior_pid +info-os +\\d+ +/dev/null" "get file descriptors"
 136
 137 #                                   local address  l-port remote addr r-port state  user family protocol
 138 expect_multiline "info os sockets" "0\\.0\\.0\\.0 +$port +0\\.0\\.0\\.0 +0 +LISTEN +\\S+ +INET +STREAM" "get internet-domain sockets"
 139
 140 #                               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
 141 expect_multiline "info os shm" "3925 +$shmid +666 +4096 +info-os .*" "get shared-memory regions"
 142
 143 #                                      key   semid   perm num semaphores  user  group  creator user  creator group  last semop() time  last semctl() time
 144 expect_multiline "info os semaphores" "7428 +$semid +666 +1 .*" "get semaphores"
 145
 146 #                               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
 147 expect_multiline "info os msg" "5294 +$msqid +666 .*" "get message queues"
 148
 149
 150 # The SysV IPC primitives linger on after the creating process is killed
 151 # unless they are destroyed explicitly, so allow the test program to tidy
 152 # up after itself.  Note that the test program attempts to delete and
 153 # recreate the shared-memory region if it already exists, in case a
 154 # previous run failed before having a chance to clean up.  The tests for
 155 # semaphores and message queues should still work with primitives from
 156 # previous runs.
 157 send_gdb "continue\n"