Mercurial > hg > octave-lojdl > gnulib-hg

annotate tests/test-getloadavg.c @ 16465:c0803728f645

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New module 'modfl-ieee'. * modules/modfl-ieee: New file.
author Bruno Haible <bruno@clisp.org>
date Sun, 26 Feb 2012 17:55:31 +0100
parents 8c89b3a442f2
children e542fd46ad6f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
14355
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
1 /* Test of getting load average.
16201
8250f2777afc maint: update all copyright year number ranges
Jim Meyering <meyering@redhat.com>
parents: 14358
diff changeset
2 Copyright (C) 2011-2012 Free Software Foundation, Inc.
14355
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
3
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
4 This program is free software: you can redistribute it and/or modify
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
6 the Free Software Foundation; either version 3 of the License, or
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
7 (at your option) any later version.
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
8
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
12 GNU General Public License for more details.
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
13
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
16
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
17 #include <config.h>
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
18
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
19 #include <stdlib.h>
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
20
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
21 #include "signature.h"
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
22 SIGNATURE_CHECK (getloadavg, int, (double [], int));
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
23
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
24 #include <errno.h>
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
25 #include <stdio.h>
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
26 #include <unistd.h>
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
27
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
28 static void
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
29 check_avg (int minutes, double avg, int printit)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
30 {
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
31 if (printit)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
32 printf ("%d-minute: %f ", minutes, avg);
14358
d1eef489f6fa getloadavg test: Add some plausibility checks.
Bruno Haible <bruno@clisp.org>
parents: 14355
diff changeset
33 else
d1eef489f6fa getloadavg test: Add some plausibility checks.
Bruno Haible <bruno@clisp.org>
parents: 14355
diff changeset
34 {
d1eef489f6fa getloadavg test: Add some plausibility checks.
Bruno Haible <bruno@clisp.org>
parents: 14355
diff changeset
35 /* Plausibility checks. */
d1eef489f6fa getloadavg test: Add some plausibility checks.
Bruno Haible <bruno@clisp.org>
parents: 14355
diff changeset
36 if (avg < 0.01)
d1eef489f6fa getloadavg test: Add some plausibility checks.
Bruno Haible <bruno@clisp.org>
parents: 14355
diff changeset
37 printf ("suspiciously low %d-minute average: %f\n", minutes, avg);
d1eef489f6fa getloadavg test: Add some plausibility checks.
Bruno Haible <bruno@clisp.org>
parents: 14355
diff changeset
38 if (avg > 1000000)
d1eef489f6fa getloadavg test: Add some plausibility checks.
Bruno Haible <bruno@clisp.org>
parents: 14355
diff changeset
39 printf ("suspiciously high %d-minute average: %f\n", minutes, avg);
d1eef489f6fa getloadavg test: Add some plausibility checks.
Bruno Haible <bruno@clisp.org>
parents: 14355
diff changeset
40 }
14355
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
41 if (avg < 0 || avg != avg)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
42 exit (minutes);
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
43 }
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
44
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
45 /* This program can also be used as a manual test, by invoking it with
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
46 an argument; it then prints the load average. If the argument is
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
47 nonzero, the manual test repeats forever, sleeping for the stated
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
48 interval between each iteration. */
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
49 int
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
50 main (int argc, char **argv)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
51 {
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
52 int naptime = 0;
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
53
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
54 if (argc > 1)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
55 naptime = atoi (argv[1]);
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
56
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
57 while (1)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
58 {
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
59 double avg[3];
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
60 int loads = getloadavg (avg, 3);
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
61 if (loads == -1)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
62 {
16265
8c89b3a442f2 getloadavg test: skip the test on GNU/Linux without /proc mounted
Dmitry V. Levin <ldv@altlinux.org>
parents: 16201
diff changeset
63 if (! (errno == ENOSYS || errno == ENOTSUP || errno == ENOENT))
14355
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
64 return 1;
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
65 perror ("Skipping test; load average not supported");
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
66 return 77;
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
67 }
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
68 if (loads > 0)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
69 check_avg (1, avg[0], argc > 1);
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
70 if (loads > 1)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
71 check_avg (5, avg[1], argc > 1);
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
72 if (loads > 2)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
73 check_avg (15, avg[1], argc > 1);
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
74 if (loads > 0 && argc > 1)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
75 putchar ('\n');
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
76
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
77 if (naptime == 0)
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
78 break;
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
79 sleep (naptime);
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
80 }
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
81
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
82 return 0;
1dea9b5d422c getloadavg: set errno
Paul Eggert <eggert@cs.ucla.edu>
parents:
diff changeset
83 }