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
|
function test65
%TEST65 test type casting
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
X = logical (rand (4) > 0.5) ;
C = GB_mex_cast (X, 'logical', 1) ;
assert (isequal (X,C)) ;
A = 100 * randn (4) ;
X = int8 (A) ;
C = GB_mex_cast (X, 'int8', 1) ;
assert (isequal (X,C)) ;
X = uint8 (A) ;
C = GB_mex_cast (X, 'uint8', 1) ;
assert (isequal (X,C)) ;
X = int16 (A) ;
C = GB_mex_cast (X, 'int16', 1) ;
assert (isequal (X,C)) ;
X = uint16 (A) ;
C = GB_mex_cast (X, 'uint16', 1) ;
assert (isequal (X,C)) ;
X = int32 (A) ;
C = GB_mex_cast (X, 'int32', 1) ;
assert (isequal (X,C)) ;
X = uint32 (A) ;
C = GB_mex_cast (X, 'uint32', 1) ;
assert (isequal (X,C)) ;
X = int32 (A) ;
C = GB_mex_cast (X, 'int32', 1) ;
assert (isequal (X,C)) ;
X = uint32 (A) ;
C = GB_mex_cast (X, 'uint32', 1) ;
assert (isequal (X,C)) ;
X = single (A) ;
C = GB_mex_cast (X, 'single', 1) ;
assert (isequal (X,C)) ;
X = double (A) ;
C = GB_mex_cast (X, 'double', 1) ;
assert (isequal (X,C)) ;
fprintf ('\ntest65: all tests passed\n') ;
|
