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 #include <unistd.h> 21 int main(void) { 22 sleep(5); 23 sleep(1); 24 } 25 }]] 26 27 spawn $bin 28 ltraceMatch1 [ltraceRun -S -p [exp_pid]] { sleep\(} == 1 29 ltraceDone 30
