1 /* -*- mode: C -*-  */
2 /*
3    IGraph library.
4    Copyright (C) 2006-2012  Gabor Csardi <csardi.gabor@gmail.com>
5    334 Harvard street, Cambridge, MA 02139 USA
6 
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 2 of the License, or
10    (at your option) any later version.
11 
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16 
17    You should have received a copy of the GNU General Public License
18    along with this program; if not, write to the Free Software
19    Foundation, Inc.,  51 Franklin Street, Fifth Floor, Boston, MA
20    02110-1301 USA
21 
22 */
23 
24 #include <igraph.h>
25 
main()26 int main() {
27 
28     igraph_t g;
29     igraph_vector_t v1, v2;
30     int ret;
31 
32     /* simple use */
33     igraph_vector_init(&v1, 8);
34     VECTOR(v1)[0] = 0;
35     VECTOR(v1)[1] = 1;
36     VECTOR(v1)[2] = 1;
37     VECTOR(v1)[3] = 2;
38     VECTOR(v1)[4] = 2;
39     VECTOR(v1)[5] = 3;
40     VECTOR(v1)[6] = 2;
41     VECTOR(v1)[7] = 2;
42     igraph_create(&g, &v1, 0, 0);
43     if (igraph_vcount(&g) != 4) {
44         return 1;
45     }
46     igraph_vector_init(&v2, 0);
47     igraph_get_edgelist(&g, &v2, 0);
48     igraph_vector_sort(&v1);
49     igraph_vector_sort(&v2);
50     if (!igraph_vector_all_e(&v1, &v2)) {
51         return 2;
52     }
53     igraph_destroy(&g);
54 
55     /* higher number of vertices */
56     igraph_create(&g, &v1, 10, 0);
57     if (igraph_vcount(&g) != 10) {
58         return 1;
59     }
60     igraph_get_edgelist(&g, &v2, 0);
61     igraph_vector_sort(&v1);
62     igraph_vector_sort(&v2);
63     if (!igraph_vector_all_e(&v1, &v2)) {
64         return 3;
65     }
66     igraph_destroy(&g);
67 
68     /* error: IGRAPH_EINVEVECTOR */
69     igraph_set_error_handler(igraph_error_handler_ignore);
70     igraph_vector_resize(&v1, 9);
71     VECTOR(v1)[8] = 0;
72     ret = igraph_create(&g, &v1, 0, 0);
73     if (ret != IGRAPH_EINVEVECTOR) {
74         return 4;
75     }
76 
77     /* error: IGRAPH_EINVVID */
78     igraph_vector_resize(&v1, 8);
79     VECTOR(v1)[7] = -1;
80     ret = igraph_create(&g, &v1, 10, 1);
81     if (ret != IGRAPH_EINVVID) {
82         return 5;
83     }
84     igraph_vector_destroy(&v1);
85     igraph_vector_destroy(&v2);
86 
87     return 0;
88 }
89