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