Add graph references
This commit is contained in:
@@ -0,0 +1,374 @@
|
||||
/*
|
||||
igraph library.
|
||||
Copyright (C) 2006-2024 The igraph development team <igraph@igraph.org>
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
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, see <https://www.gnu.org/licenses/>.
|
||||
*/
|
||||
|
||||
#include <igraph.h>
|
||||
|
||||
#include "test_utilities.h"
|
||||
|
||||
int main(void) {
|
||||
|
||||
igraph_vector_t v;
|
||||
igraph_vector_int_t v2, v4, v5, v6;
|
||||
igraph_int_t i;
|
||||
igraph_real_t *ptr;
|
||||
igraph_int_t pos;
|
||||
igraph_real_t min, max, min2, max2;
|
||||
igraph_int_t which_min, which_max, which_min2, which_max2;
|
||||
|
||||
printf("Initialise empty vector\n");
|
||||
igraph_vector_init(&v, 0);
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Initialise vector of length 10\n");
|
||||
igraph_vector_init(&v, 10);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test VECTOR() and igraph_vector_size\n");
|
||||
igraph_vector_init(&v, 10);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
VECTOR(v)[i] = 10 - i;
|
||||
}
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_reserve and igraph_vector_push_back\n");
|
||||
igraph_vector_init(&v, 0);
|
||||
igraph_vector_reserve(&v, 10);
|
||||
for (i = 0; i < 10; i++) {
|
||||
igraph_vector_push_back(&v, i);
|
||||
}
|
||||
|
||||
printf("Test igraph_vector_empty and igraph_vector_clear\n");
|
||||
IGRAPH_ASSERT(!igraph_vector_empty(&v));
|
||||
igraph_vector_clear(&v);
|
||||
IGRAPH_ASSERT(igraph_vector_empty(&v));
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_get and igraph_vector_get_ptr\n");
|
||||
igraph_vector_init(&v, 5);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
*igraph_vector_get_ptr(&v, i) = 100 * i;
|
||||
}
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
printf(" %" IGRAPH_PRId "", (igraph_int_t)igraph_vector_get(&v, i));
|
||||
}
|
||||
printf("\n");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_set\n");
|
||||
igraph_vector_init(&v, 5);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
igraph_vector_set(&v, i, 20 * i);
|
||||
}
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_null\n");
|
||||
igraph_vector_init(&v, 0);
|
||||
igraph_vector_null(&v);
|
||||
igraph_vector_destroy(&v);
|
||||
igraph_vector_init(&v, 10);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
VECTOR(v)[i] = i + 1;
|
||||
}
|
||||
igraph_vector_null(&v);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_tail, igraph_vector_pop_back\n");
|
||||
igraph_vector_init(&v, 10);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
VECTOR(v)[i] = i + 1;
|
||||
}
|
||||
while (!igraph_vector_empty(&v)) {
|
||||
printf(" %" IGRAPH_PRId "", (igraph_int_t)igraph_vector_tail(&v));
|
||||
printf(" %" IGRAPH_PRId "", (igraph_int_t)igraph_vector_pop_back(&v));
|
||||
}
|
||||
printf("\n");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_resize, igraph_vector_sort\n");
|
||||
igraph_vector_init(&v, 20);
|
||||
for (i = 0; i < 10; i++) {
|
||||
VECTOR(v)[i] = 10 - i;
|
||||
}
|
||||
igraph_vector_resize(&v, 10);
|
||||
igraph_vector_sort(&v);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_{which}_{min, max}\n");
|
||||
igraph_vector_init(&v, 10);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
VECTOR(v)[i] = 100 - i;
|
||||
}
|
||||
for (i = 0; i < 10; i++) {
|
||||
printf(" %" IGRAPH_PRId "", (igraph_int_t)VECTOR(v)[i]);
|
||||
}
|
||||
printf("\n");
|
||||
|
||||
min = igraph_vector_min(&v);
|
||||
which_min = igraph_vector_which_min(&v);
|
||||
|
||||
IGRAPH_ASSERT(min == 91);
|
||||
IGRAPH_ASSERT(which_min == 9);
|
||||
IGRAPH_ASSERT(min == VECTOR(v)[which_min]);
|
||||
|
||||
max = igraph_vector_max(&v);
|
||||
which_max = igraph_vector_which_max(&v);
|
||||
|
||||
IGRAPH_ASSERT(max == 100);
|
||||
IGRAPH_ASSERT(which_max == 0);
|
||||
IGRAPH_ASSERT(max == VECTOR(v)[which_max]);
|
||||
|
||||
igraph_vector_minmax(&v, &min2, &max2);
|
||||
igraph_vector_which_minmax(&v, &which_min2, &which_max2);
|
||||
|
||||
IGRAPH_ASSERT(min == min2);
|
||||
IGRAPH_ASSERT(max == max2);
|
||||
IGRAPH_ASSERT(which_min == which_min2);
|
||||
IGRAPH_ASSERT(which_max == which_max2);
|
||||
IGRAPH_ASSERT(min2 == VECTOR(v)[which_min2]);
|
||||
IGRAPH_ASSERT(max2 == VECTOR(v)[which_max2]);
|
||||
|
||||
printf("Test NaN values\n");
|
||||
igraph_vector_push_back(&v, IGRAPH_NAN);
|
||||
igraph_vector_push_back(&v, IGRAPH_NAN);
|
||||
igraph_vector_push_back(&v, 1);
|
||||
|
||||
IGRAPH_ASSERT(igraph_vector_is_any_nan(&v));
|
||||
|
||||
min = igraph_vector_min(&v);
|
||||
which_min = igraph_vector_which_min(&v);
|
||||
|
||||
IGRAPH_ASSERT(isnan(min));
|
||||
/* Index should be to first NaN value */
|
||||
IGRAPH_ASSERT(which_min == 10);
|
||||
IGRAPH_ASSERT(isnan(VECTOR(v)[which_min]));
|
||||
|
||||
max = igraph_vector_max(&v);
|
||||
which_max = igraph_vector_which_max(&v);
|
||||
|
||||
IGRAPH_ASSERT(isnan(max));
|
||||
/* Index should be to first NaN value */
|
||||
IGRAPH_ASSERT(which_max == 10);
|
||||
/* In case of NaN it should hold that which_max == which_min */
|
||||
IGRAPH_ASSERT(which_max == which_min);
|
||||
|
||||
igraph_vector_minmax(&v, &min2, &max2);
|
||||
igraph_vector_which_minmax(&v, &which_min2, &which_max2);
|
||||
|
||||
IGRAPH_ASSERT(isnan(min2));
|
||||
IGRAPH_ASSERT(isnan(max2));
|
||||
IGRAPH_ASSERT(which_min == which_min2);
|
||||
IGRAPH_ASSERT(which_max == which_max2);
|
||||
/* In case of NaN it should hold that which_max == which_min */
|
||||
IGRAPH_ASSERT(which_min2 == which_max2);
|
||||
IGRAPH_ASSERT(isnan(VECTOR(v)[which_min2]));
|
||||
IGRAPH_ASSERT(isnan(VECTOR(v)[which_max2]));
|
||||
|
||||
printf("Test igraph_vector_init_array\n");
|
||||
igraph_vector_destroy(&v);
|
||||
ptr = (igraph_real_t*) malloc(10 * sizeof(igraph_real_t));
|
||||
igraph_vector_init_array(&v, ptr, 10);
|
||||
free(ptr);
|
||||
for (i = 0; i < 10; i++) {
|
||||
VECTOR(v)[i] = 100 - i;
|
||||
}
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_copy_to\n");
|
||||
ptr = (igraph_real_t*) malloc(10 * sizeof(igraph_real_t));
|
||||
igraph_vector_init_range(&v, 11, 21);
|
||||
igraph_vector_copy_to(&v, ptr);
|
||||
for (i = 0; i < 10; i++) {
|
||||
printf(" %" IGRAPH_PRId "", (igraph_int_t)ptr[i]);
|
||||
}
|
||||
printf("\n");
|
||||
free(ptr);
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_init_range, igraph_vector_sum, igraph_vector_prod\n");
|
||||
igraph_vector_init_range(&v, 1, 6);
|
||||
printf(" %" IGRAPH_PRId "", (igraph_int_t)igraph_vector_sum(&v));
|
||||
printf(" %" IGRAPH_PRId "\n", (igraph_int_t)igraph_vector_prod(&v));
|
||||
|
||||
printf("Test igraph_vector_remove_section\n");
|
||||
igraph_vector_remove_section(&v, 2, 4);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
|
||||
printf("Test igraph_vector_remove_section with invalid limits\n");
|
||||
igraph_vector_remove_section(&v, -3, -1);
|
||||
igraph_vector_remove_section(&v, 100, 120);
|
||||
igraph_vector_remove_section(&v, 2, 0);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_remove_section(&v, 1, 20);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_remove\n");
|
||||
igraph_vector_init_range(&v, 1, 11);
|
||||
igraph_vector_remove(&v, 9);
|
||||
igraph_vector_remove(&v, 0);
|
||||
igraph_vector_remove(&v, 4);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_remove_fast\n");
|
||||
igraph_vector_init_range(&v, 1, 11);
|
||||
igraph_vector_remove_fast(&v, 9);
|
||||
igraph_vector_remove_fast(&v, 0);
|
||||
igraph_vector_remove_fast(&v, 4);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_move_interval\n");
|
||||
igraph_vector_init_range(&v, 0, 10);
|
||||
igraph_vector_move_interval(&v, 5, 10, 0);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_isininterval\n");
|
||||
igraph_vector_init_range(&v, 1, 11);
|
||||
IGRAPH_ASSERT(igraph_vector_isininterval(&v, 1, 10));
|
||||
IGRAPH_ASSERT(!igraph_vector_isininterval(&v, 2, 10));
|
||||
IGRAPH_ASSERT(!igraph_vector_isininterval(&v, 1, 9));
|
||||
|
||||
printf("Test igraph_vector_any_smaller\n");
|
||||
IGRAPH_ASSERT(!igraph_vector_any_smaller(&v, 1));
|
||||
IGRAPH_ASSERT(igraph_vector_any_smaller(&v, 2));
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_all_e\n");
|
||||
|
||||
printf("Test igraph_vector_binsearch\n");
|
||||
igraph_vector_init_range(&v, 0, 10);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
IGRAPH_ASSERT(igraph_vector_binsearch(&v, 0, 0));
|
||||
}
|
||||
IGRAPH_ASSERT(!igraph_vector_binsearch(&v, 10, 0));
|
||||
IGRAPH_ASSERT(!igraph_vector_binsearch(&v, -1, 0));
|
||||
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
VECTOR(v)[i] = 2 * i;
|
||||
}
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
IGRAPH_ASSERT(igraph_vector_binsearch(&v, VECTOR(v)[i], &pos));
|
||||
IGRAPH_ASSERT(pos == i);
|
||||
IGRAPH_ASSERT(!igraph_vector_binsearch(&v, VECTOR(v)[i] + 1, &pos));
|
||||
}
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test Binsearch in empty vector\n");
|
||||
igraph_vector_init(&v, 0);
|
||||
IGRAPH_ASSERT(!igraph_vector_contains_sorted(&v, 0));
|
||||
IGRAPH_ASSERT(!igraph_vector_binsearch(&v, 1, &pos));
|
||||
IGRAPH_ASSERT(pos == 0);
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_init_real\n");
|
||||
igraph_vector_init_real(&v, 10, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_init_int\n");
|
||||
igraph_vector_init_int(&v, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_init_real\n");
|
||||
igraph_vector_init_real_end(&v, -1, 1.0, 2.0, 3.0, 4.0, 5.0,
|
||||
6.0, 7.0, 8.0, 9.0, 10.0, -1.0);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_init_int\n");
|
||||
igraph_vector_init_int_end(&v, -1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, -1);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test filter_smaller, quite special....\n");
|
||||
igraph_vector_init_int_end(&v, -1, 0, 1, 2, 3, 4, 4, 4, 4, 5, 6, 7, 8, -1);
|
||||
igraph_vector_filter_smaller(&v, 4);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
igraph_vector_init_int_end(&v, -1, 1, 2, 3, 4, 4, 4, 4, 5, 6, 7, 8, -1);
|
||||
igraph_vector_filter_smaller(&v, 0);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
igraph_vector_init_int_end(&v, -1, 0, 0, 1, 2, 3, 4, 4, 4, 4, 5, 6, 7, 8, -1);
|
||||
igraph_vector_filter_smaller(&v, 0);
|
||||
print_vector_format(&v, stdout, "%g");
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_i_vector_int_rank and igraph_i_vector_int_order\n");
|
||||
igraph_vector_int_init_int_end(&v2, -1, 0, 1, 2, 6, 5, 2, 1, 0, -1);
|
||||
igraph_vector_int_init(&v4, 0);
|
||||
igraph_i_vector_int_rank(&v2, &v4, 7);
|
||||
print_vector_int(&v2);
|
||||
print_vector_int(&v4);
|
||||
igraph_i_vector_int_order(&v2, &v4, 7);
|
||||
print_vector_int(&v4);
|
||||
igraph_vector_int_destroy(&v2);
|
||||
igraph_vector_int_destroy(&v4);
|
||||
|
||||
printf("Test pair order\n");
|
||||
igraph_vector_int_init_int_end(&v5, -1, 1, 1, 2, 2, -1);
|
||||
igraph_vector_int_init_int_end(&v6, -1, 2, 3, 1, 3, -1);
|
||||
igraph_vector_int_init(&v4, 0);
|
||||
igraph_vector_int_pair_order(&v5, &v6, &v4, 3);
|
||||
print_vector_int(&v4);
|
||||
igraph_vector_int_destroy(&v5);
|
||||
igraph_vector_int_destroy(&v6);
|
||||
igraph_vector_int_destroy(&v4);
|
||||
|
||||
printf("Test fill\n");
|
||||
|
||||
igraph_vector_init(&v, 100);
|
||||
igraph_vector_fill(&v, 1.234567);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
IGRAPH_ASSERT(VECTOR(v)[i] == 1.234567);
|
||||
}
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test range\n");
|
||||
|
||||
igraph_vector_init(&v, 100);
|
||||
igraph_vector_range(&v, 20, 50);
|
||||
IGRAPH_ASSERT(igraph_vector_size(&v) == 30);
|
||||
for (i = 0; i < igraph_vector_size(&v); i++) {
|
||||
IGRAPH_ASSERT(VECTOR(v)[i] == 20 + i);
|
||||
}
|
||||
igraph_vector_destroy(&v);
|
||||
|
||||
printf("Test igraph_vector_int_init_range, igraph_i_vector_int_order\n");
|
||||
igraph_vector_int_init_range(&v4, 1, 11);
|
||||
igraph_vector_int_reverse(&v4);
|
||||
igraph_vector_int_scale(&v4, 3);
|
||||
igraph_vector_int_init(&v5, 0);
|
||||
igraph_i_vector_int_order(&v4, &v5, /* maxval */ igraph_vector_int_max(&v4));
|
||||
print_vector_int(&v5);
|
||||
igraph_vector_int_destroy(&v4);
|
||||
igraph_vector_int_destroy(&v5);
|
||||
|
||||
VERIFY_FINALLY_STACK();
|
||||
|
||||
return 0;
|
||||
}
|
||||
Reference in New Issue
Block a user