Tests: add tests for block format hyper rotate

Author: homka122

experimental/algorithm/LAGraph_CFL_optimized_matrix_opt.c

@@ -341,26 +341,13 @@ GrB_Info block_matrix_hyper_rotate_i(Matrix *matrix, enum CFL_Matrix_block forma
         TRY(GxB_Matrix_build_Scalar(new, nrows, ncols, scalar_true, matrix->nvals));
         TRY(GrB_Matrix_free(&matrix->base_row));
         TRY(GrB_Matrix_free(&matrix->base_col));
-        matrix->base = NULL;
         matrix->base = new;
         matrix->base_row = new;
         TRY(TO_ROW(matrix->base));
         TRY(GrB_Matrix_new(&new, GrB_BOOL, matrix->ncols, matrix->nrows));
         TRY(TO_COL(new));
         TRY(GxB_Matrix_build_Scalar(new, nrows, ncols, scalar_true, matrix->nvals));
         matrix->base_col = new;
-
-        int format;
-        TRY(GrB_get(matrix->base_row, &format, GrB_STORAGE_ORIENTATION_HINT));
-        if (format != GrB_ROWMAJOR) {
-            fprintf(stderr, "WRONG FORMAT\n");
-            exit(-1);
-        }
-        TRY(GrB_get(matrix->base_col, &format, GrB_STORAGE_ORIENTATION_HINT));
-        if (format != GrB_COLMAJOR) {
-            fprintf(stderr, "WRONG FORMAT\n");
-            exit(-1);
-        }
         matrix->format = GrB_ROWMAJOR;
     } else {
         TRY(GrB_Matrix_free(&matrix->base));

experimental/test/test_CFL_optimized_matrix_opt.c

@@ -813,9 +813,9 @@ static void test_CFL_lazy_create(void) {
 }
 
 // Create lazy matrix
-// 1 1 1 0 .. 0 (count of 1: 111)
 // 1 0 0 0 .. 0 (count of 1: 1)
 // 1 1 0 0 .. 0 (count of 1: 11)
+// 1 1 1 0 .. 0 (count of 1: 111)
 // . . . . .. .
 // 0 0 0 0 .. 0
 static GrB_Info make_lazy_matrix(Matrix **M, size_t base_matrices_count) {
@@ -1299,6 +1299,38 @@ static void test_CFL_block_hyper_rotate(void) {
         OK(free_matrix(&A));
     }
 
+    // Format
+    {
+        Matrix *A;
+        make_block_vector(&A, 5, 5, VEC_VERT);
+        matrix_to_format(A, GrB_COLMAJOR, true);
+
+        OK(block_matrix_hyper_rotate_i(A, VEC_HORIZ));
+        TEST_CHECK(A->nvals != 0);
+        TEST_CHECK(A->is_both = true);
+
+        GrB_Index nrows_A, ncols_A, nrows_B, ncols_B;
+        OK(GrB_Matrix_nrows(&nrows_A, A->base_row));
+        OK(GrB_Matrix_ncols(&ncols_A, A->base_row));
+        OK(GrB_Matrix_nrows(&nrows_B, A->base_col));
+        OK(GrB_Matrix_ncols(&ncols_B, A->base_col));
+
+        TEST_CHECK(nrows_A == nrows_B);
+        TEST_CHECK(ncols_A == ncols_B);
+
+        OK(block_matrix_hyper_rotate_i(A, VEC_VERT));
+
+        OK(GrB_Matrix_nrows(&nrows_A, A->base_row));
+        OK(GrB_Matrix_ncols(&ncols_A, A->base_row));
+        OK(GrB_Matrix_nrows(&nrows_B, A->base_col));
+        OK(GrB_Matrix_ncols(&ncols_B, A->base_col));
+
+        TEST_CHECK(nrows_A == nrows_B);
+        TEST_CHECK(ncols_A == ncols_B);
+
+        OK(free_matrix(&A));
+    }
+
     teardown();
 #endif
 }