rewrite hypermat api for scilab 6
[scilab.git] / scilab / modules / api_scilab / tests / unit_tests / hypermatExample.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+"/hypermatExample"));
11 cd(pathconvert(TMPDIR+"/hypermatExample"));
12 copyfile(SCI+"/modules/api_scilab/tests/unit_tests/hypermatExample.c",pathconvert(TMPDIR+"/hypermatExample/hypermatExample.c",%F));
13 ilib_build("gw_hypermatExample",["hypermatExample","hypermatExample"],"hypermatExample.c",[],"","","");
14 exec("loader.sce");
15
16 a = hypermat([1 2 3], ones(1,6));
17 b = a + %i*hypermat([1 2 3], 1:6);
18
19 assert_checkequal(hypermatExample(a), a);
20 assert_checkequal(hypermatExample(b), b);