1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
/*
**********************************************************************
* Copyright (C) Miroslav Lichvar 2022
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of version 2 of the GNU General Public License as
* published by the Free Software Foundation.
*
* This program 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
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License along
* with this program; if not, write to the Free Software Foundation, Inc.,
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
**********************************************************************
*/
#include <local.h>
#include "test.h"
#include <quantiles.c>
void
test_unit(void)
{
int i, j, k, min_k, max_k, q, r, in_order, out_order;
QNT_Instance inst;
double x;
in_order = out_order = 0;
for (i = 0; i < 100; i++) {
r = random() % 10 + 1;
q = random() % 20 + 2;
do {
min_k = random() % (q - 1) + 1;
max_k = random() % (q - 1) + 1;
} while (min_k > max_k);
inst = QNT_CreateInstance(min_k, max_k, q, r, 1e-9);
TEST_CHECK(min_k == QNT_GetMinK(inst));
for (j = 0; j < 3000; j++) {
x = TST_GetRandomDouble(0.0, 2e-6);
QNT_Accumulate(inst, x);
for (k = min_k; k < max_k; k++)
if (j < max_k - min_k) {
TEST_CHECK(QNT_GetQuantile(inst, k) <= QNT_GetQuantile(inst, k + 1));
} else if (j > 1000) {
if (QNT_GetQuantile(inst, k) <= QNT_GetQuantile(inst, k + 1))
in_order++;
else
out_order++;
}
}
QNT_Reset(inst);
TEST_CHECK(inst->n_set == 0);
QNT_DestroyInstance(inst);
}
TEST_CHECK(in_order > 100 * out_order);
}
|
