1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2012 - SCILAB ENTERPRISES - Simon GARESTE
4//
5//  This file is distributed under the same license as the Scilab package.
6// =============================================================================
7//
8// <-- CLI SHELL MODE -->
9msgerr = msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"), "h5label", 4);
10assert_checkerror("h5label()",msgerr,77);
11msgerr = msprintf(gettext("%s: Wrong number of input argument(s): %d expected.\n"), "h5label", 4);
12assert_checkerror("h5label(42)",msgerr,77);
13msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: string or H5Object expected.\n"), "h5label", 1);
14assert_checkerror("h5label(42,42,42,42)",msgerr,999);
15msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "h5label", 2);
16assert_checkerror("h5label(""42"",42,42,42)",msgerr,999);
17msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: Row array of strings expected.\n"), "h5label", 4);
18assert_checkerror("h5label(""42"",""42"",42,42)",msgerr,999);
19msgerr = msprintf(gettext("%s: %s\n"), "h5label", msprintf(gettext("Invalid hdf5 file: %s."), "42"));
20assert_checkerror("h5label(""42"",""42"",42,[""42""])",msgerr,999);
21a = h5open(TMPDIR + "/test.h5", "w");
22msgerr = msprintf(gettext("%s: %s\n"), "h5label", msprintf(gettext("Invalid name: %s.") ,"42"));
23assert_checkerror("h5label(a,""42"",42,[""42""])",msgerr,999);
24x = uint8(1:24);
25h5dataset(a, "Dset_1", [1 2 3 4 ; 1 1 1 1 ; 1 1 1 1 ; 1 1 1 1; 1 2 3 4], x, [1 2 3 4 ; 1 2 3 4 ; 1 1 1 1 ; 1 1 1 1 ; 1 1 1 1 ; 1 2 3 4]);
26h5label(a, "Dset_1", [1 3], ["Hello" "World"]);
27assert_checkequal(a.root.Dset_1.DIMENSION_LABELS.data,["Hello" "" "World" ""]);
28h5close(a)
29