198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam# This file was written by Yao Qi <qiyao@cn.ibm.com>. 298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamset testfile "time-record" 498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamset srcfile ${testfile}.c 598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamset binfile ${testfile}-ttt 698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamverbose "compiling source file now....." 898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam# Build the shared libraries this test case needs. 94627fc493db8459e6ef0597a4155a06b7d120d20Zachary T Welchif { [ ltrace_compile "${srcdir}/${subdir}/${testfile}.c" "${objdir}/${subdir}/${binfile}" executable {debug} ] != "" } { 1098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam send_user "Testcase compile failed, so all tests in this file will automatically fail.\n" 1198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam} 1298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 1398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam# Set options for ltrace. 1498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamltrace_options "-ttt" 1598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 16aee093126654f722523b47848a0c5449e39cf4bbJuan Cespedes# Run PUT for ltrace. 174627fc493db8459e6ef0597a4155a06b7d120d20Zachary T Welchset exec_output [ltrace_runtest $objdir/$subdir $objdir/$subdir/$binfile] 1898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 1998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 2098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam# Check the output of this program. 2198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamverbose "ltrace runtest output: $exec_output\n" 2298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamif [regexp {ELF from incompatible architecture} $exec_output] { 2398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam fail "32-bit ltrace can not perform on 64-bit PUTs and rebuild ltrace in 64 bit mode!" 2498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam return 2598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam} elseif [ regexp {Couldn't get .hash data} $exec_output ] { 2698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam fail "Couldn't get .hash data!" 2798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam return 2898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam} 2998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 3098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam# Verify the time for calling sleep. 314627fc493db8459e6ef0597a4155a06b7d120d20Zachary T Welchset fd [ open $objdir/$subdir/$binfile.ltrace r] 3298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamset FOUND 0 3398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamwhile { [gets $fd line] >= 0 } { 3498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam # match the line with sleep and extract the strat time and sleep argument. 3598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam if [ regexp {([0-9]+)\.([0-9][0-9][0-9]).* sleep\(([0-9]+)} $line match start_sec start_usec sleep_sec] then { 3698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 3798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam # Remove extra zeros. 3898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {0*([1-9][0-9]*)} $start_sec match start_sec 3998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {0*([1-9][0-9]*)} $start_usec match start_usec 4098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 4198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam verbose "start_sec = $start_sec, start_usec = $start_usec,sleep_sec = $sleep_sec" 4298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam # get a new line for the end time of sleep 4398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam gets $fd line 4498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {([0-9]+)\.([0-9][0-9][0-9])} $line match end_sec end_usec 4598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam verbose "end_sec = $end_sec, end_usec=$end_usec" 4698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 4798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam # Remove extra zeros. 4898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {0*([1-9][0-9]*)} $end_sec match end_sec 4998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {0*([1-9][0-9]*)} $end_usec match end_usec 5098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 5198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam if { $end_sec - $start_sec >= $sleep_sec } then { 5298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam pass "Correct Timestamp." 5398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam } else { 5498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam fail "Start at $start_sec, End at $end_sec, but PUT call sleep($sleep_sec)!" 5598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam } 5698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam set FOUND 1 5798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam break 5898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam } 5998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam} 6098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 6198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamclose $fd 6298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 6398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamif {$FOUND != 1} then { 6498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam fail "Fail to find call sleep!" 6598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam} 6698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 6798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 6898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam# Get the time of nanosleep in C source file. 6998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamset fd [ open $srcdir/$subdir/$srcfile r] 7098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamwhile { [gets $fd line] >= 0 } { 7198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam if [ regexp {define NANOSLEEP_COUNT ([0-9]+)} $line match nanosleep_usec] then { 7298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam break 7398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam } 7498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam} 7598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamclose $fd 7698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 7798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam# Verify the time for calling nanosleep. 7898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamset FOUND 0 794627fc493db8459e6ef0597a4155a06b7d120d20Zachary T Welchset fd [ open $objdir/$subdir/$binfile.ltrace r] 8098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamwhile { [gets $fd line] >= 0 } { 8198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam # match the line with sleep and extract the strat time and sleep argument. 8298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam if [ regexp {([0-9]+)\.([0-9][0-9][0-9]).* nanosleep} $line match start_sec start_usec ] then { 8398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 8498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam # Remove extra zeros. 8598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {0*([1-9][0-9]*)} $start_sec match start_sec 8698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {0*([1-9][0-9]*)} $start_usec match start_usec 8798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 8898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam verbose "start_sec = $start_sec, start_usec = $start_usec, nanosleep_usec = $nanosleep_usec" 8998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam # get a new line for the end time of sleep 9098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam gets $fd line 9198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {([0-9]+)\.([0-9][0-9][0-9])} $line match end_sec end_usec 9298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 9398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam # Remove extra zeros. 9498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {0*([1-9][0-9]*)} $end_sec match end_sec 9598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam regexp {0*([1-9][0-9]*)} $end_usec match end_usec 9698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 9798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam verbose "end_sec = $end_sec, end_usec = $end_usec" 9898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam if { ($end_sec - $start_sec)*1000 + $end_usec - $start_usec >= $nanosleep_usec} then { 9998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam pass "Correct Timestamp." 10098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam } else { 10198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam fail "Start at $start_usec, End at $end_usec, but PUT call nanosleep($nanosleep_usec)!" 10298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam } 10398d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam set FOUND 1 10498d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam break 10598d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam } 10698d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam} 10798d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 10898d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamif { $FOUND != 1} then { 10998d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam fail "Fail to find nanosleep" 11098d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam} 11198d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliamclose $fd 11298d884bfd78ea7a37f46515c6e9e3635a95d8cbcPaul Gilliam 113