190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber# This file was written by Yao Qi <qiyao@cn.ibm.com>. 2f71323e297a928af368937089d3ed71239786f86Andreas Huber 390d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberset testfile "time-record" 4f71323e297a928af368937089d3ed71239786f86Andreas Huberset srcfile ${testfile}.c 5f71323e297a928af368937089d3ed71239786f86Andreas Huberset binfile ${testfile}-tt 6f71323e297a928af368937089d3ed71239786f86Andreas Huber 7f71323e297a928af368937089d3ed71239786f86Andreas Huberverbose "compiling source file now....." 8f71323e297a928af368937089d3ed71239786f86Andreas Huber# Build the shared libraries this test case needs. 990d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberif { [ ltrace_compile "${srcdir}/${subdir}/${testfile}.c" "${objdir}/${subdir}/${binfile}" executable {debug} ] != "" } { 1090d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber send_user "Testcase compile failed, so all tests in this file will automatically fail.\n" 1190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber} 1290d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 1390d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber# Set options for ltrace. 1490d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberltrace_options "-tt" 1590d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 1690d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber# Run PUT for ltrace. 1790d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberset exec_output [ltrace_runtest $objdir/$subdir $objdir/$subdir/$binfile] 1890d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 1990d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber# Check the output of this program. 2090d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberverbose "ltrace runtest output: $exec_output\n" 2190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberif [regexp {ELF from incompatible architecture} $exec_output] { 2290d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber fail "32-bit ltrace can not perform on 64-bit PUTs and rebuild ltrace in 64 bit mode!" 2390d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber return 2490d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber} elseif [ regexp {Couldn't get .hash data} $exec_output ] { 2590d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber fail "Couldn't get .hash data!" 2690d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber return 2790d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber} 2890d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 2990d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber# Verify the time for calling sleep. 3090d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberset fd [ open $objdir/$subdir/$binfile.ltrace r] 3190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberset FOUND 0 3290d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberwhile { [gets $fd line] >= 0 } { 3390d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber # match the line with sleep and extract the strat time and sleep argument. 3490d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber if [ regexp {[0-9]+:([0-9]+):([0-9]+)\.[0-9]+ sleep\(([0-9]+)} $line match start_min start_sec sleep_sec] then { 3590d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber # Remove extra zero. 3690d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber regexp {0([1-9])} $start_min match start_min 3790d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber regexp {0([1-9])} $start_sec match start_sec 3890d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 3990d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber verbose "start_sec = $start_sec, sleep_sec = $sleep_sec" 4090d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber # get a new line for the end time of sleep 4190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber gets $fd line 4290d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber regexp {[0-9]+:([0-9]+):([0-9]+)} $line match end_min end_sec 4390d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber verbose "end_sec = $end_sec" 4490d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 4590d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber # Remove extra zero. 4690d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber regexp {0([1-9])} $end_min match end_min 4790d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber regexp {0([1-9])} $end_sec match end_sec 481b362b15af34006e6a11974088a46d42b903418eJohann 4990d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber if { (($end_min - $start_min)*60 + $end_sec - $start_sec)== $sleep_sec } then { 5090d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber pass "Correct Timestamp." 5190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber } else { 5290d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber fail "Start at $start_sec, End at $end_sec, but PUT call sleep($sleep_sec)!" 5390d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber } 541b362b15af34006e6a11974088a46d42b903418eJohann set FOUND 1 5590d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber break 5690d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber } 5790d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber} 5890d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberclose $fd 5990d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 6090d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberif {$FOUND != 1} then { 611b362b15af34006e6a11974088a46d42b903418eJohann fail "Fail to find call sleep!" 62f71323e297a928af368937089d3ed71239786f86Andreas Huber} 63f71323e297a928af368937089d3ed71239786f86Andreas Huber 64f71323e297a928af368937089d3ed71239786f86Andreas Huber# Get the time of sleep and nanosleep in C source file. 65f71323e297a928af368937089d3ed71239786f86Andreas Huberset fd [ open $srcdir/$subdir/$srcfile r] 661b362b15af34006e6a11974088a46d42b903418eJohannwhile { [gets $fd line] >= 0 } { 6790d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber if [ regexp {define NANOSLEEP_COUNT ([0-9]+)} $line match nanosleep_usec] then { 681b362b15af34006e6a11974088a46d42b903418eJohann break 691b362b15af34006e6a11974088a46d42b903418eJohann } 70f71323e297a928af368937089d3ed71239786f86Andreas Huber} 7190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberclose $fd 7290d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 73f71323e297a928af368937089d3ed71239786f86Andreas Huber# Verify the time for calling nanosleep. 7490d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberset FOUND 0 7590d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberset fd [ open $objdir/$subdir/$binfile.ltrace r] 7690d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huberwhile { [gets $fd line] >= 0 } { 7790d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber # match the line with sleep and extract the strat time and sleep argument. 7890d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber if [ regexp {[0-9]+:[0-9]+:([0-9]+)\.([0-9][0-9][0-9]).* nanosleep} $line match start_sec start_usec ] then { 7990d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber # Remove extra zeros. 8090d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber regexp {0([1-9])} $start_sec match start_sec 8190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber regexp {0*([1-9][0-9]*)} $start_usec match start_usec 82f71323e297a928af368937089d3ed71239786f86Andreas Huber 8390d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber verbose "start_sec = $start_sec, start_usec = $start_usec, sleep_usec = $nanosleep_usec" 84f71323e297a928af368937089d3ed71239786f86Andreas Huber # get a new line for the end time of sleep 85f71323e297a928af368937089d3ed71239786f86Andreas Huber gets $fd line 86f71323e297a928af368937089d3ed71239786f86Andreas Huber regexp {[0-9]+:[0-9]+:([0-9]+)\.([0-9][0-9][0-9])} $line match end_sec end_usec 8790d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 88f71323e297a928af368937089d3ed71239786f86Andreas Huber # Remove extra zeros. 8990d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber regexp {0([1-9])} $end_sec match end_sec 90f71323e297a928af368937089d3ed71239786f86Andreas Huber regexp {0*([1-9][0-9]*)} $end_usec match end_usec 9190d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber 9290d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber verbose "end_sec = $end_sec, end_usec = $end_usec" 9390d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber if { (($end_sec - $start_sec)*1000 + $end_usec - $start_usec) >= $nanosleep_usec} then { 9490d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber pass "Correct Timestamp." 9590d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber } else { 9690d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber fail "Start at $start_usec, End at $end_usec, but PUT call nanosleep($nanosleep_usec)!" 97f71323e297a928af368937089d3ed71239786f86Andreas Huber } 98f71323e297a928af368937089d3ed71239786f86Andreas Huber set FOUND 1 99f71323e297a928af368937089d3ed71239786f86Andreas Huber break 10090d3ed91ae9228e1c8bab561b6138d4cb8c1e4fdAndreas Huber } 101f71323e297a928af368937089d3ed71239786f86Andreas Huber} 102f71323e297a928af368937089d3ed71239786f86Andreas Huber 103f71323e297a928af368937089d3ed71239786f86Andreas Huberif { $FOUND != 1} then { 104f71323e297a928af368937089d3ed71239786f86Andreas Huber fail "Fail to find nanosleep" 105f71323e297a928af368937089d3ed71239786f86Andreas Huber} 106f71323e297a928af368937089d3ed71239786f86Andreas Huberclose $fd 107f71323e297a928af368937089d3ed71239786f86Andreas Huber 108f71323e297a928af368937089d3ed71239786f86Andreas Huber