count-record.exp revision aee093126654f722523b47848a0c5449e39cf4bb
1# This file was written by Yao Qi <qiyao@cn.ibm.com>. 2 3set testfile "count-record" 4set srcfile ${testfile}.c 5set binfile ${testfile} 6 7verbose "compiling source file now....." 8# Build the shared libraries this test case needs. 9if { [ ltrace_compile "${srcdir}/${subdir}/${testfile}.c" "${srcdir}/${subdir}/${binfile}" executable {debug} ] != "" } { 10 send_user "Testcase compile failed, so all tests in this file will automatically fail.\n" 11} 12 13# set options for ltrace. 14ltrace_options "-c" 15 16# Run PUT for ltrace. 17set exec_output [ltrace_runtest $srcdir/$subdir $srcdir/$subdir/$binfile] 18 19# Check the output of this program. 20verbose "ltrace runtest output: $exec_output\n" 21if [regexp {ELF from incompatible architecture} $exec_output] { 22 fail "32-bit ltrace can not perform on 64-bit PUTs and rebuild ltrace in 64 bit mode!" 23 return 24} elseif [ regexp {Couldn't get .hash data} $exec_output ] { 25 fail "Couldn't get .hash data!" 26 return 27} 28 29 30ltrace_saveoutput $exec_output $srcdir/$subdir/$binfile.ltrace 31 32# 33# This is a sample output and Verify the forth and fifth column. 34# 35# 13.31 0.001051 1051 1 rmdir 36# 12.81 0.001012 1012 1 fopen 37# 10.32 0.000815 407 2 remove 38# 9.56 0.000755 755 1 mkdir 39# 7.86 0.000621 621 1 fseek 40# 6.86 0.000542 542 1 fwrite 41# 6.60 0.000521 521 1 fclose 42# 6.03 0.000476 476 1 rename 43# 5.61 0.000443 443 1 symlink 44# 5.05 0.000399 399 1 chdir 45# 4.80 0.000379 379 1 access 46# 4.00 0.000316 316 1 __xstat 47# 3.81 0.000301 301 1 getcwd 48# 3.39 0.000268 268 1 fread 49# 50 51set pattern " 1 rmdir" 52ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 53set pattern " 1 fopen" 54ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 55set pattern " 2 remove" 56ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 57set pattern " 1 mkdir" 58ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 59set pattern " 1 fseek" 60ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 61set pattern " 1 fwrite" 62ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 63set pattern " 1 fclose" 64ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 65set pattern " 1 rename" 66ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 67set pattern " 1 symlink" 68ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 69set pattern " 1 chdir" 70ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 71set pattern " 1 access" 72ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 73set pattern " 1 getcwd" 74ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 75set pattern " 1 fread" 76ltrace_verify_output ${srcdir}/${subdir}/${testfile}.ltrace $pattern 77 78