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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
/*
* list_check.c
*
* Unit test for the reflection list module
*
* (c) 2011 Thomas White <taw@physics.org>
*
* Part of CrystFEL - crystallography with a FEL
*
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <stdlib.h>
#include <stdio.h>
#include "../src/reflist.h"
struct refltemp {
signed int h;
signed int k;
signed int l;
int del;
int dup;
};
#define RANDOM_INDEX (128*random()/RAND_MAX - 256*random()/RAND_MAX)
static int test_lists(int num_items)
{
struct refltemp *check;
RefList *list;
int i;
fprintf(stderr, "Testing with %i items.\n", num_items);
check = malloc(num_items * sizeof(struct refltemp));
list = reflist_new();
for ( i=0; i<num_items; i++ ) {
signed int h, k, l;
int j;
int duplicate = 0;
do {
duplicate = 0;
h = RANDOM_INDEX;
k = RANDOM_INDEX;
l = RANDOM_INDEX;
for ( j=0; j<i; j++ ) {
if ( (check[j].h == h)
&& (check[j].k == k)
&& (check[j].l == l) ) {
duplicate++;
}
}
} while ( duplicate );
add_refl(list, h, k, l);
check[i].h = h;
check[i].k = k;
check[i].l = l;
check[i].del = 0;
check[i].dup = duplicate;
}
for ( i=0; i<num_items; i++ ) {
signed int h, k, l;
Reflection *refl;
h = check[i].h;
k = check[i].k;
l = check[i].l;
refl = find_refl(list, h, k, l);
if ( refl == NULL ) {
fprintf(stderr, "Couldn't find %3i %3i %3i\n", h, k, l);
return 1;
}
if ( i<num_items/2 ) {
delete_refl(refl);
check[i].del = 1;
}
}
reflist_free(list);
free(check);
return 0;
}
int main(int argc, char *argv[])
{
int i;
for ( i=0; i<100; i++ ) {
if ( test_lists(4096*random()/RAND_MAX) ) return 1;
}
return 0;
}
|
