testsuite/ltrace.minor/trace-exec.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 ltraceMatch [ltraceRun -xmain -- [ltraceCompile {} [ltraceSource c {
  20     #include <unistd.h>
  21     #include <stdlib.h>
  22     int main(int argc, char ** argv) {
  23         execl(argv[1], argv[1], NULL);
  24         abort();
  25     }
  26 }]] [ltraceCompile {} [ltraceSource c {
  27     #include <stdio.h>
  28     int main(void) {
  29         return puts("Hello, World.");
  30     }
  31 }]]] {
  32     {{^execl\(} == 1}
  33     {{^puts\(.*\) .*= 14} == 1}
  34     {{^main\(} == 2}
  35 }
  36
  37 ltraceDone