1 # This file was written by Yao Qi <qiyao (at) cn.ibm.com>. 2 3 set testfile "time-record" 4 set srcfile ${testfile}.c 5 set binfile ${testfile}-tt 6 7 verbose "compiling source file now....." 8 # Build the shared libraries this test case needs. 9 if { [ ltrace_compile "${srcdir}/${subdir}/${testfile}.c" "${objdir}/${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. 14 ltrace_options "-tt" 15 16 # Run PUT for ltrace. 17 set exec_output [ltrace_runtest $objdir/$subdir $objdir/$subdir/$binfile] 18 19 # Check the output of this program. 20 verbose "ltrace runtest output: $exec_output\n" 21 if [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 # Verify the time for calling sleep. 30 set fd [ open $objdir/$subdir/$binfile.ltrace r] 31 set FOUND 0 32 while { [gets $fd line] >= 0 } { 33 # match the line with sleep and extract the strat time and sleep argument. 34 if [ regexp {[0-9]+:([0-9]+):([0-9]+)\.[0-9]+ sleep\(([0-9]+)} $line match start_min start_sec sleep_sec] then { 35 # Remove extra zero. 36 regexp {0([1-9])} $start_min match start_min 37 regexp {0([1-9])} $start_sec match start_sec 38 39 verbose "start_sec = $start_sec, sleep_sec = $sleep_sec" 40 # get a new line for the end time of sleep 41 gets $fd line 42 regexp {[0-9]+:([0-9]+):([0-9]+)} $line match end_min end_sec 43 verbose "end_sec = $end_sec" 44 45 # Remove extra zero. 46 regexp {0([1-9])} $end_min match end_min 47 regexp {0([1-9])} $end_sec match end_sec 48 49 if { (($end_min - $start_min)*60 + $end_sec - $start_sec)== $sleep_sec } then { 50 pass "Correct Timestamp." 51 } else { 52 fail "Start at $start_sec, End at $end_sec, but PUT call sleep($sleep_sec)!" 53 } 54 set FOUND 1 55 break 56 } 57 } 58 close $fd 59 60 if {$FOUND != 1} then { 61 fail "Fail to find call sleep!" 62 } 63 64 # Get the time of sleep and nanosleep in C source file. 65 set fd [ open $srcdir/$subdir/$srcfile r] 66 while { [gets $fd line] >= 0 } { 67 if [ regexp {define NANOSLEEP_COUNT ([0-9]+)} $line match nanosleep_usec] then { 68 break 69 } 70 } 71 close $fd 72 73 # Verify the time for calling nanosleep. 74 set FOUND 0 75 set fd [ open $objdir/$subdir/$binfile.ltrace r] 76 while { [gets $fd line] >= 0 } { 77 # match the line with sleep and extract the strat time and sleep argument. 78 if [ regexp {[0-9]+:[0-9]+:([0-9]+)\.([0-9][0-9][0-9]).* nanosleep} $line match start_sec start_usec ] then { 79 # Remove extra zeros. 80 regexp {0([1-9])} $start_sec match start_sec 81 regexp {0*([1-9][0-9]*)} $start_usec match start_usec 82 83 verbose "start_sec = $start_sec, start_usec = $start_usec, sleep_usec = $nanosleep_usec" 84 # get a new line for the end time of sleep 85 gets $fd line 86 regexp {[0-9]+:[0-9]+:([0-9]+)\.([0-9][0-9][0-9])} $line match end_sec end_usec 87 88 # Remove extra zeros. 89 regexp {0([1-9])} $end_sec match end_sec 90 regexp {0*([1-9][0-9]*)} $end_usec match end_usec 91 92 verbose "end_sec = $end_sec, end_usec = $end_usec" 93 if { (($end_sec - $start_sec)*1000 + $end_usec - $start_usec) >= $nanosleep_usec} then { 94 pass "Correct Timestamp." 95 } else { 96 fail "Start at $start_usec, End at $end_usec, but PUT call nanosleep($nanosleep_usec)!" 97 } 98 set FOUND 1 99 break 100 } 101 } 102 103 if { $FOUND != 1} then { 104 fail "Fail to find nanosleep" 105 } 106 close $fd 107 108
