testsuite/ltrace.main/main-internal.exp

   1 # This file is part of ltrace.
   2 # Copyright (C) 2012 Petr Machata, Red Hat Inc.
   3 #
   4 # This program is free software; you can redistribute it and/or
   5 # modify it under the terms of the GNU General Public License as
   6 # published by the Free Software Foundation; either version 2 of the
   7 # License, or (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful, but
  10 # WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 # General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
  17 # 02110-1301 USA
  18
  19 set bin [ltraceCompile {} [ltraceSource c {
  20     __attribute__((noinline)) void this(void) {}
  21     __attribute__((noinline)) void that(void) {}
  22     int main(int i) {
  23         for (i = 0; i < 12; ++i) {
  24             this();
  25             that();
  26         }
  27     }
  28 }]]
  29
  30 ltraceMatch [ltraceRun -L -xthis -- $bin] {
  31     {{this\(.*\)} == 12}
  32     {that == 0}
  33 }
  34
  35 ltraceDone