1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
//------------------------------------------------------------------------------
// GB_mex_about7: still more basic tests
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
// Test lots of random stuff. The function otherwise serves no purpose.
#include "GB_mex.h"
#include "GB_mex_errors.h"
#define USAGE "GB_mex_about7"
#define FREE_ALL ;
#define GET_DEEP_COPY ;
#define FREE_DEEP_COPY ;
void mexFunction
(
int nargout,
mxArray *pargout [ ],
int nargin,
const mxArray *pargin [ ]
)
{
GrB_Info info ;
GrB_Matrix A = NULL ;
//--------------------------------------------------------------------------
// startup GraphBLAS
//--------------------------------------------------------------------------
bool malloc_debug = GB_mx_get_global (true) ;
int expected = GrB_SUCCESS ;
//--------------------------------------------------------------------------
// matrix check
//--------------------------------------------------------------------------
OK (GrB_Matrix_new (&A, GrB_FP64, 100, 100)) ;
OK (GxB_Matrix_Option_set (A, GxB_SPARSITY_CONTROL, GxB_HYPERSPARSE)) ;
OK (GrB_Matrix_setElement_FP64 (A, (double) 1.2, 0, 0)) ;
OK (GrB_Matrix_wait (A, 1)) ;
OK (GxB_Matrix_fprint (A, "A valid", 3, NULL)) ;
printf ("\ninvalid A->p:\n") ;
size_t save = A->p_size ;
A->p_size = 3 ;
expected = GrB_INVALID_OBJECT ;
ERR (GxB_Matrix_fprint (A, "A with invalid A->p", 3, NULL)) ;
A->p_size = save ;
printf ("\ninvalid A->h:\n") ;
save = A->h_size ;
A->h_size = 3 ;
expected = GrB_INVALID_OBJECT ;
ERR (GxB_Matrix_fprint (A, "A with invalid A->h", 3, NULL)) ;
A->h_size = save ;
OK (GrB_Matrix_free (&A)) ;
//--------------------------------------------------------------------------
// axv2 and avx512f
//--------------------------------------------------------------------------
bool have_avx2 = GB_Global_cpu_features_avx2 ( ) ;
bool have_avx512f = GB_Global_cpu_features_avx512f ( ) ;
printf ("avx2: %d avx512f: %d\n", have_avx2, have_avx512f) ;
//--------------------------------------------------------------------------
// compiler
//--------------------------------------------------------------------------
char *compiler ;
int compiler_version [3] ;
OK (GxB_Global_Option_get (GxB_COMPILER_NAME, &compiler)) ;
OK (GxB_Global_Option_get (GxB_COMPILER_VERSION, &compiler_version)) ;
printf ("GraphBLAS compiled with:\n[%s] [v%d.%d.%d]\n", compiler,
compiler_version [0], compiler_version [1], compiler_version [2]) ;
//--------------------------------------------------------------------------
// iterator errors
//--------------------------------------------------------------------------
GxB_Iterator iterator = NULL ;
METHOD (GxB_Iterator_new (&iterator)) ;
GxB_Iterator_free (&iterator) ;
//--------------------------------------------------------------------------
// wrapup
//--------------------------------------------------------------------------
GB_mx_put_global (true) ;
printf ("\nGB_mex_about7: all tests passed\n\n") ;
}
|
