gdb/testsuite/gdb.fortran/info-modules.exp

   1 # Copyright 2019 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 # This file tests 'info modules'.
  17
  18 load_lib "fortran.exp"
  19
  20 if { [skip_fortran_tests] } { continue }
  21
  22 standard_testfile info-types.f90 info-types-2.f90
  23
  24 if { [prepare_for_testing "failed to prepare" $testfile \
  25           [list $srcfile $srcfile2] {debug f90}] } {
  26     return -1
  27 }
  28
  29 if { ![runto MAIN__] } {
  30     perror "Could not run to breakpoint `MAIN__'."
  31     continue
  32 }
  33
  34 gdb_test "info modules" \
  35     [multi_line \
  36          "All defined modules:" \
  37          "" \
  38          "File .*${srcfile2}:" \
  39          "18:\[\t \]+mod2" \
  40          "" \
  41          "File .*${srcfile}:" \
  42          "16:\[\t \]+mod1" ]
  43
  44 gdb_test "info modules 1" \
  45     [multi_line \
  46          "All modules matching regular expression \"1\":" \
  47          "" \
  48          "File .*${srcfile}:" \
  49          "16:\[\t \]+mod1" ]
  50
  51 gdb_test "info modules 2" \
  52     [multi_line \
  53          "All modules matching regular expression \"2\":" \
  54          "" \
  55          "File .*${srcfile2}:" \
  56          "18:\[\t \]+mod2" ]
  57
  58 gdb_test "info modules mod" \
  59     [multi_line \
  60          "All modules matching regular expression \"mod\":" \
  61          "" \
  62          "File .*${srcfile2}:" \
  63          "18:\[\t \]+mod2" \
  64          "" \
  65          "File .*${srcfile}:" \
  66          "16:\[\t \]+mod1" ]