mirror of
git://sourceware.org/git/glibc.git
synced 2024-12-03 04:01:43 +08:00
336 lines
9.3 KiB
C
336 lines
9.3 KiB
C
/* Test program for process and thread CPU clocks.
|
|
Copyright (C) 2005, 2012 Free Software Foundation, Inc.
|
|
This file is part of the GNU C Library.
|
|
|
|
The GNU C Library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Lesser General Public
|
|
License as published by the Free Software Foundation; either
|
|
version 2.1 of the License, or (at your option) any later version.
|
|
|
|
The GNU C Library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
License along with the GNU C Library; if not, see
|
|
<http://www.gnu.org/licenses/>. */
|
|
|
|
#include <unistd.h>
|
|
|
|
#if (_POSIX_THREADS - 0) <= 0
|
|
|
|
# define TEST_FUNCTION 0
|
|
|
|
#else
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <time.h>
|
|
#include <fcntl.h>
|
|
#include <string.h>
|
|
#include <errno.h>
|
|
#include <pthread.h>
|
|
|
|
static pthread_barrier_t barrier;
|
|
|
|
/* This function is intended to rack up both user and system time. */
|
|
static void *
|
|
chew_cpu (void *arg)
|
|
{
|
|
pthread_barrier_wait (&barrier);
|
|
|
|
while (1)
|
|
{
|
|
static volatile char buf[4096];
|
|
for (int i = 0; i < 100; ++i)
|
|
for (size_t j = 0; j < sizeof buf; ++j)
|
|
buf[j] = 0xaa;
|
|
int nullfd = open ("/dev/null", O_WRONLY);
|
|
for (int i = 0; i < 100; ++i)
|
|
for (size_t j = 0; j < sizeof buf; ++j)
|
|
buf[j] = 0xbb;
|
|
write (nullfd, (char *) buf, sizeof buf);
|
|
close (nullfd);
|
|
}
|
|
|
|
return NULL;
|
|
}
|
|
|
|
static unsigned long long int
|
|
tsdiff (const struct timespec *before, const struct timespec *after)
|
|
{
|
|
struct timespec diff = { .tv_sec = after->tv_sec - before->tv_sec,
|
|
.tv_nsec = after->tv_nsec - before->tv_nsec };
|
|
while (diff.tv_nsec < 0)
|
|
{
|
|
--diff.tv_sec;
|
|
diff.tv_nsec += 1000000000;
|
|
}
|
|
return diff.tv_sec * 1000000000ULL + diff.tv_nsec;
|
|
}
|
|
|
|
static unsigned long long int
|
|
test_nanosleep (clockid_t clock, const char *which,
|
|
const struct timespec *before, int *bad)
|
|
{
|
|
const struct timespec sleeptime = { .tv_nsec = 100000000 };
|
|
int e = clock_nanosleep (clock, 0, &sleeptime, NULL);
|
|
if (e == EINVAL || e == ENOTSUP || e == ENOSYS)
|
|
{
|
|
printf ("clock_nanosleep not supported for %s CPU clock: %s\n",
|
|
which, strerror (e));
|
|
return 0;
|
|
}
|
|
if (e != 0)
|
|
{
|
|
printf ("clock_nanosleep on %s CPU clock: %s\n", which, strerror (e));
|
|
*bad = 1;
|
|
return 0;
|
|
}
|
|
|
|
struct timespec after;
|
|
if (clock_gettime (clock, &after) < 0)
|
|
{
|
|
printf ("clock_gettime on %s CPU clock %lx => %s\n",
|
|
which, (unsigned long int) clock, strerror (errno));
|
|
*bad = 1;
|
|
return 0;
|
|
}
|
|
|
|
unsigned long long int diff = tsdiff (before, &after);
|
|
if (diff < sleeptime.tv_nsec || diff > sleeptime.tv_nsec * 2)
|
|
{
|
|
printf ("clock_nanosleep on %s slept %llu (outside reasonable range)\n",
|
|
which, diff);
|
|
*bad = 1;
|
|
return diff;
|
|
}
|
|
|
|
struct timespec sleeptimeabs = sleeptime;
|
|
sleeptimeabs.tv_sec += after.tv_sec;
|
|
sleeptimeabs.tv_nsec += after.tv_nsec;
|
|
while (sleeptimeabs.tv_nsec >= 1000000000)
|
|
{
|
|
++sleeptimeabs.tv_sec;
|
|
sleeptimeabs.tv_nsec -= 1000000000;
|
|
}
|
|
e = clock_nanosleep (clock, TIMER_ABSTIME, &sleeptimeabs, NULL);
|
|
if (e != 0)
|
|
{
|
|
printf ("absolute clock_nanosleep on %s CPU clock: %s\n",
|
|
which, strerror (e));
|
|
*bad = 1;
|
|
return diff;
|
|
}
|
|
|
|
struct timespec afterabs;
|
|
if (clock_gettime (clock, &afterabs) < 0)
|
|
{
|
|
printf ("clock_gettime on %s CPU clock %lx => %s\n",
|
|
which, (unsigned long int) clock, strerror (errno));
|
|
*bad = 1;
|
|
return diff;
|
|
}
|
|
|
|
unsigned long long int sleepdiff = tsdiff (&sleeptimeabs, &afterabs);
|
|
if (sleepdiff > sleeptime.tv_nsec)
|
|
{
|
|
printf ("\
|
|
absolute clock_nanosleep on %s %llu past target (outside reasonable range)\n",
|
|
which, sleepdiff);
|
|
*bad = 1;
|
|
}
|
|
|
|
unsigned long long int diffabs = tsdiff (&after, &afterabs);
|
|
if (diffabs < sleeptime.tv_nsec || diffabs > sleeptime.tv_nsec * 2)
|
|
{
|
|
printf ("\
|
|
absolute clock_nanosleep on %s slept %llu (outside reasonable range)\n",
|
|
which, diffabs);
|
|
*bad = 1;
|
|
}
|
|
|
|
return diff + diffabs;
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
do_test (void)
|
|
{
|
|
int result = 0;
|
|
clockid_t process_clock, th_clock, my_thread_clock;
|
|
int e;
|
|
pthread_t th;
|
|
|
|
e = clock_getcpuclockid (0, &process_clock);
|
|
if (e != 0)
|
|
{
|
|
printf ("clock_getcpuclockid on self => %s\n", strerror (e));
|
|
return 1;
|
|
}
|
|
|
|
e = pthread_getcpuclockid (pthread_self (), &my_thread_clock);
|
|
if (e != 0)
|
|
{
|
|
printf ("pthread_getcpuclockid on self => %s\n", strerror (e));
|
|
return 1;
|
|
}
|
|
|
|
/* This is a kludge. This test fails if the semantics of thread and
|
|
process clocks are wrong. The old code using hp-timing without kernel
|
|
support has bogus semantics if there are context switches. We don't
|
|
fail to report failure when the proper functionality is not available
|
|
in the kernel. It so happens that Linux kernels without correct CPU
|
|
clock support also lack CPU timer support, so we use use that to guess
|
|
that we are using the bogus code and not test it. */
|
|
timer_t t;
|
|
if (timer_create (my_thread_clock, NULL, &t) != 0)
|
|
{
|
|
printf ("timer_create: %m\n");
|
|
puts ("No support for CPU clocks with good semantics, skipping test");
|
|
return 0;
|
|
}
|
|
timer_delete (t);
|
|
|
|
|
|
pthread_barrier_init (&barrier, NULL, 2);
|
|
|
|
e = pthread_create (&th, NULL, chew_cpu, NULL);
|
|
if (e != 0)
|
|
{
|
|
printf ("pthread_create: %s\n", strerror (e));
|
|
return 1;
|
|
}
|
|
|
|
e = pthread_getcpuclockid (th, &th_clock);
|
|
if (e == ENOENT || e == ENOSYS || e == ENOTSUP)
|
|
{
|
|
puts ("pthread_getcpuclockid does not support other threads");
|
|
return 1;
|
|
}
|
|
|
|
pthread_barrier_wait (&barrier);
|
|
|
|
struct timespec res;
|
|
if (clock_getres (th_clock, &res) < 0)
|
|
{
|
|
printf ("clock_getres on live thread clock %lx => %s\n",
|
|
(unsigned long int) th_clock, strerror (errno));
|
|
result = 1;
|
|
return 1;
|
|
}
|
|
printf ("live thread clock %lx resolution %lu.%.9lu\n",
|
|
(unsigned long int) th_clock, res.tv_sec, res.tv_nsec);
|
|
|
|
struct timespec process_before, process_after;
|
|
if (clock_gettime (process_clock, &process_before) < 0)
|
|
{
|
|
printf ("clock_gettime on process clock %lx => %s\n",
|
|
(unsigned long int) process_clock, strerror (errno));
|
|
return 1;
|
|
}
|
|
|
|
struct timespec before, after;
|
|
if (clock_gettime (th_clock, &before) < 0)
|
|
{
|
|
printf ("clock_gettime on live thread clock %lx => %s\n",
|
|
(unsigned long int) th_clock, strerror (errno));
|
|
return 1;
|
|
}
|
|
printf ("live thread before sleep => %lu.%.9lu\n",
|
|
before.tv_sec, before.tv_nsec);
|
|
|
|
struct timespec me_before, me_after;
|
|
if (clock_gettime (my_thread_clock, &me_before) < 0)
|
|
{
|
|
printf ("clock_gettime on self thread clock %lx => %s\n",
|
|
(unsigned long int) my_thread_clock, strerror (errno));
|
|
return 1;
|
|
}
|
|
printf ("self thread before sleep => %lu.%.9lu\n",
|
|
me_before.tv_sec, me_before.tv_nsec);
|
|
|
|
struct timespec sleeptime = { .tv_nsec = 500000000 };
|
|
if (nanosleep (&sleeptime, NULL) != 0)
|
|
{
|
|
perror ("nanosleep");
|
|
return 1;
|
|
}
|
|
|
|
if (clock_gettime (th_clock, &after) < 0)
|
|
{
|
|
printf ("clock_gettime on live thread clock %lx => %s\n",
|
|
(unsigned long int) th_clock, strerror (errno));
|
|
return 1;
|
|
}
|
|
printf ("live thread after sleep => %lu.%.9lu\n",
|
|
after.tv_sec, after.tv_nsec);
|
|
|
|
if (clock_gettime (process_clock, &process_after) < 0)
|
|
{
|
|
printf ("clock_gettime on process clock %lx => %s\n",
|
|
(unsigned long int) process_clock, strerror (errno));
|
|
return 1;
|
|
}
|
|
|
|
if (clock_gettime (my_thread_clock, &me_after) < 0)
|
|
{
|
|
printf ("clock_gettime on self thread clock %lx => %s\n",
|
|
(unsigned long int) my_thread_clock, strerror (errno));
|
|
return 1;
|
|
}
|
|
printf ("self thread after sleep => %lu.%.9lu\n",
|
|
me_after.tv_sec, me_after.tv_nsec);
|
|
|
|
unsigned long long int th_diff = tsdiff (&before, &after);
|
|
unsigned long long int pdiff = tsdiff (&process_before, &process_after);
|
|
unsigned long long int my_diff = tsdiff (&me_before, &me_after);
|
|
|
|
if (th_diff < 100000000 || th_diff > 600000000)
|
|
{
|
|
printf ("live thread before - after %llu outside reasonable range\n",
|
|
th_diff);
|
|
result = 1;
|
|
}
|
|
|
|
if (my_diff > 100000000)
|
|
{
|
|
printf ("self thread before - after %llu outside reasonable range\n",
|
|
my_diff);
|
|
result = 1;
|
|
}
|
|
|
|
if (pdiff < th_diff)
|
|
{
|
|
printf ("process before - after %llu outside reasonable range (%llu)\n",
|
|
pdiff, th_diff);
|
|
result = 1;
|
|
}
|
|
|
|
process_after.tv_nsec += test_nanosleep (th_clock, "live thread",
|
|
&after, &result);
|
|
process_after.tv_nsec += test_nanosleep (process_clock, "process",
|
|
&process_after, &result);
|
|
test_nanosleep (CLOCK_PROCESS_CPUTIME_ID,
|
|
"PROCESS_CPUTIME_ID", &process_after, &result);
|
|
|
|
pthread_cancel (th);
|
|
|
|
e = clock_nanosleep (CLOCK_THREAD_CPUTIME_ID, 0, &sleeptime, NULL);
|
|
if (e != EINVAL)
|
|
{
|
|
printf ("clock_nanosleep CLOCK_THREAD_CPUTIME_ID: %s\n",
|
|
strerror (e));
|
|
result = 1;
|
|
}
|
|
|
|
return result;
|
|
}
|
|
# define TIMEOUT 8
|
|
# define TEST_FUNCTION do_test ()
|
|
#endif
|
|
|
|
#include "../test-skeleton.c"
|