Function test_RGMatrix_fuzzy

tests/unit/test_rg_matrix.c:1041–1155

//------------------------------------------------------------------------------

void test_RGMatrix_fuzzy() {
	GrB_Type    t                   =  GrB_BOOL;
	RG_Matrix   A                   =  NULL;
	RG_Matrix   T                   =  NULL;  // A transposed
	GrB_Matrix  M                   =  NULL;  // primary internal matrix
	GrB_Matrix  MT                  =  NULL;
	GrB_Matrix  N                   =  NULL;
	GrB_Matrix  NT                  =  NULL;
	GrB_Info    info                =  GrB_SUCCESS;
	GrB_Index   nrows               =  100;
	GrB_Index   ncols               =  100;
	GrB_Index   i                   =  0;
	GrB_Index   j                   =  1;
	GrB_Index*  I                   =  NULL;
	GrB_Index*  J                   =  NULL;
	uint32_t    operations          =  10000;

	//--------------------------------------------------------------------------
	// create RGMatrix
	//--------------------------------------------------------------------------

	srand(time(0));

	I = (GrB_Index*) malloc(sizeof(GrB_Index) * operations);
	J = (GrB_Index*) malloc(sizeof(GrB_Index) * operations);

	info = RG_Matrix_new(&A, t, nrows, ncols);
	info = RG_Matrix_new(&A->transposed, t, ncols, nrows);
	TEST_ASSERT(info == GrB_SUCCESS);

	// make sure transposed was created
	T = RG_Matrix_getTranspose(A);
	TEST_ASSERT(T != A);
	TEST_ASSERT(T != NULL);

	// get internal matrices
	M   =  RG_MATRIX_M(A);
	MT  =  RG_MATRIX_M(T);

	info = GrB_Matrix_new(&N, t, nrows, ncols);
	TEST_ASSERT(info == GrB_SUCCESS);

	info = GrB_Matrix_new(&NT, t, ncols, nrows);
	TEST_ASSERT(info == GrB_SUCCESS);

	uint additions = 0;
	for (size_t index = 0; index < operations; index++)
	{
		if (index < 10 || rand() % 100 > 20)
		{
			i = rand() % nrows;
			j = rand() % ncols;

			//------------------------------------------------------------------
			// set element at position i,j
			//------------------------------------------------------------------

			info = RG_Matrix_setElement_BOOL(A, i, j);