Function test_RGMatrix_mxm

tests/unit/test_rg_matrix.c:1372–1456

}

void test_RGMatrix_mxm() {
	GrB_Type    t                   =  GrB_BOOL;
	RG_Matrix   A                   =  NULL;
	RG_Matrix   B                   =  NULL;
	RG_Matrix   C                   =  NULL;
	RG_Matrix   D                   =  NULL;
	GrB_Matrix  C_M                 =  NULL;
	GrB_Matrix  D_M                 =  NULL;
	GrB_Info    info                =  GrB_SUCCESS;
	GrB_Index   nrows               =  100;
	GrB_Index   ncols               =  100;
	bool        sync                =  false;

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

	info = RG_Matrix_new(&B, t, nrows, ncols);
	TEST_ASSERT(info == GrB_SUCCESS);

	info = RG_Matrix_new(&C, t, nrows, ncols);
	TEST_ASSERT(info == GrB_SUCCESS);

	info = RG_Matrix_new(&D, t, nrows, ncols);
	TEST_ASSERT(info == GrB_SUCCESS);

	// set elements
	info = RG_Matrix_setElement_BOOL(A, 0, 1);
	TEST_ASSERT(info == GrB_SUCCESS);
	info = RG_Matrix_setElement_BOOL(A, 2, 3);
	TEST_ASSERT(info == GrB_SUCCESS);
	info = RG_Matrix_setElement_BOOL(B, 1, 2);
	TEST_ASSERT(info == GrB_SUCCESS);
	info = RG_Matrix_setElement_BOOL(B, 3, 4);
	TEST_ASSERT(info == GrB_SUCCESS);

	//--------------------------------------------------------------------------
	// flush matrix, sync
	//--------------------------------------------------------------------------
	
	// wait, force sync
	sync = true;
	RG_Matrix_wait(A, sync);
	RG_Matrix_wait(B, sync);

	//--------------------------------------------------------------------------
	// set pending changes
	//--------------------------------------------------------------------------

	// remove element at position 0,0
	info = RG_Matrix_removeElement_BOOL(B, 1, 2);
	TEST_ASSERT(info == GrB_SUCCESS);

	// set element at position 2,2
	info = RG_Matrix_setElement_BOOL(B, 1, 3);
	TEST_ASSERT(info == GrB_SUCCESS);

	//--------------------------------------------------------------------------
	// mxm matrix