annotate tests/test-getrusage.c @ 17363:5a51fb7777a9

sys_select, sys_time: port 2013-01-30 Solaris 2.6 fix to Cygwin Problem reported by Marco Atzeri in <http://lists.gnu.org/archive/html/bug-gnulib/2013-03/msg00000.html>. * lib/sys_select.in.h [HAVE_SYS_SELECT_H && _CYGWIN_SYS_TIME_H]: Simply delegate to the system <sys/select.h> in this case too. Also, pay attention to _GL_SYS_SELECT_H_REDIRECT_FROM_SYS_TIME_H only if OSF/1, since otherwise Cygwin breaks, and it doesn't seem to be needed on Solaris either. * lib/sys_time.in.h [_CYGWIN_SYS_TIME_H]: Simply delgate to the system <sys/time.h> in this case.
author Paul Eggert <eggert@cs.ucla.edu>
date Tue, 19 Mar 2013 09:08:47 -0700
parents e542fd46ad6f
children 344018b6e5d7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16778
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
1 /* Test of getting resource utilization.
17249
e542fd46ad6f maint: update all copyright year number ranges
Eric Blake <eblake@redhat.com>
parents: 16778
diff changeset
2 Copyright (C) 2012-2013 Free Software Foundation, Inc.
16778
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
3
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
4 This program is free software: you can redistribute it and/or modify
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
6 the Free Software Foundation; either version 3 of the License, or
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
7 (at your option) any later version.
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
8
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
12 GNU General Public License for more details.
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
13
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
16
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
17 /* Written by Bruno Haible <bruno@clisp.org>, 2012. */
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
18
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
19 #include <config.h>
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
20
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
21 #include <sys/resource.h>
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
22
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
23 #include "signature.h"
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
24 SIGNATURE_CHECK (getrusage, int, (int, struct rusage *));
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
25
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
26 #include <sys/time.h>
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
27
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
28 #include "macros.h"
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
29
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
30 volatile unsigned int counter;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
31
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
32 int
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
33 main (void)
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
34 {
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
35 struct rusage before;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
36 struct rusage after;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
37 int ret;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
38
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
39 ret = getrusage (RUSAGE_SELF, &before);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
40 ASSERT (ret == 0);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
41
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
42 /* Busy-loop for one second. */
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
43 {
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
44 struct timeval t0;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
45 ASSERT (gettimeofday (&t0, NULL) == 0);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
46
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
47 for (;;)
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
48 {
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
49 struct timeval t;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
50 int i;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
51
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
52 for (i = 0; i < 1000000; i++)
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
53 counter++;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
54
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
55 ASSERT (gettimeofday (&t, NULL) == 0);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
56 if (t.tv_sec - t0.tv_sec > 1
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
57 || (t.tv_sec - t0.tv_sec == 1 && t.tv_usec >= t0.tv_usec))
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
58 break;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
59 }
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
60 }
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
61
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
62 ret = getrusage (RUSAGE_SELF, &after);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
63 ASSERT (ret == 0);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
64
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
65 ASSERT (after.ru_utime.tv_sec >= before.ru_utime.tv_sec);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
66 ASSERT (after.ru_stime.tv_sec >= before.ru_stime.tv_sec);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
67 {
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
68 /* Compute time spent during busy-looping (in usec). */
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
69 unsigned int spent_utime =
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
70 (after.ru_utime.tv_sec > before.ru_utime.tv_sec
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
71 ? (after.ru_utime.tv_sec - before.ru_utime.tv_sec - 1) * 1000000U
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
72 + after.ru_utime.tv_usec + (1000000U - before.ru_utime.tv_usec)
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
73 : after.ru_utime.tv_usec - before.ru_utime.tv_usec);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
74 unsigned int spent_stime =
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
75 (after.ru_stime.tv_sec > before.ru_stime.tv_sec
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
76 ? (after.ru_stime.tv_sec - before.ru_stime.tv_sec - 1) * 1000000U
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
77 + after.ru_stime.tv_usec + (1000000U - before.ru_stime.tv_usec)
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
78 : after.ru_stime.tv_usec - before.ru_stime.tv_usec);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
79
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
80 ASSERT (spent_utime + spent_stime <= 2 * 1000000U);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
81 /* Assume that the load during this busy-looping was less than 100. */
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
82 ASSERT (spent_utime + spent_stime > 10000U);
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
83 }
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
84
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
85 return 0;
86a111c85915 Tests for module 'getrusage'.
Bruno Haible <bruno@clisp.org>
parents:
diff changeset
86 }