rewrite hypermat api for scilab 6
[scilab.git] / scilab / modules / api_scilab / tests / unit_tests / hypermatIntExample.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9 ilib_verbose(0);
10 mkdir(pathconvert(TMPDIR+"/hypermatIntExample"));
11 cd(pathconvert(TMPDIR+"/hypermatIntExample"));
12 copyfile(SCI+"/modules/api_scilab/tests/unit_tests/hypermatIntExample.c",pathconvert(TMPDIR+"/hypermatIntExample/hypermatIntExample.c",%F));
13 ilib_build("gw_hypermatIntExample",["hypermatIntExample","hypermatIntExample"],"hypermatIntExample.c",[],"","","");
14 exec("loader.sce");
15
16 a = hypermat([1 2 3], int8(1:6));
17 b = hypermat([1 2 3], uint8(1:6));
18 c = hypermat([1 2 3], int16(1:6));
19 d = hypermat([1 2 3], uint16(1:6));
20 e = hypermat([1 2 3], int32(1:6));
21 f = hypermat([1 2 3], uint32(1:6));
22 g = hypermat([1 2 3], int64(1:6));
23 h = hypermat([1 2 3], uint64(1:6));
24
25 assert_checkequal(hypermatIntExample(a), a);
26 assert_checkequal(hypermatIntExample(b), b);
27 assert_checkequal(hypermatIntExample(c), c);
28 assert_checkequal(hypermatIntExample(d), d);
29 assert_checkequal(hypermatIntExample(e), e);
30 assert_checkequal(hypermatIntExample(f), f);
31 assert_checkequal(hypermatIntExample(g), g);
32 assert_checkequal(hypermatIntExample(h), h);