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 -->
9
10msgerr = msprintf(gettext("%s: Wrong number of input argument(s): %d to %d expected.\n"), "h5ls", 1, 3);
11assert_checkerror("h5ls()",msgerr,77);
12msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "h5ls", 1);
13assert_checkerror("h5ls(42)",msgerr,999);
14msgerr = msprintf(gettext("%s: %s\n"), "h5ls", msprintf(gettext("Invalid hdf5 file: %s."), "42"));
15assert_checkerror("h5ls(""42"")",msgerr,999);
16
17x = int8(matrix(1:80, 10, 8));
18save(TMPDIR + "/x.sod", "x");
19
20
21msgerr = msprintf(gettext("%s: %s\n"), "h5ls", msprintf(gettext("Invalid hdf5 file: %s."), "x"));
22assert_checkerror("h5ls(""x"")",msgerr,999);
23
24msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "h5ls", 2);
25assert_checkerror("h5ls(TMPDIR+""/x.sod"",12.0)",msgerr,999);
26msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "h5ls", 3);
27assert_checkerror("h5ls(TMPDIR+""/x.sod"",""."",12.0)",msgerr,999);
28
29a = h5open(TMPDIR + "/x.sod");
30dset = ["x" "dataset"];
31attr = ["SCILAB_scilab_version" "attribute";"SCILAB_sod_version" "attribute"];
32assert_checkequal(h5ls(a),cat(1,dset,attr));
33attr = ["SCILAB_Class" "attribute";"SCILAB_precision" "attribute"];
34assert_checkequal(h5ls(a.root.x),attr);
35assert_checkequal(h5ls(a,"/x"),attr);
36
37attr = ["SCILAB_scilab_version";"SCILAB_sod_version"];
38assert_checkequal(h5ls(a,".","a"),attr);
39
40msgerr = msprintf(gettext("%s: %s\n"), "h5ls", gettext("Invalid filter"));
41assert_checkerror("h5ls(a,""."",""x"")",msgerr,999);
42
43msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "h5ls", 1);
44assert_checkerror("h5ls(12.0)",msgerr,999);
45msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "h5ls", 2);
46assert_checkerror("h5ls(a,12.0)",msgerr,999);
47msgerr = msprintf(gettext("%s: Wrong type for input argument #%d: string expected.\n"), "h5ls", 3);
48assert_checkerror("h5ls(a,""."",12.0)",msgerr,999);
49msgerr = msprintf(gettext("%s: %s\n"), "h5ls", msprintf(gettext("Invalid hdf5 file: %s."), "x"));
50assert_checkerror("h5ls(""x"")",msgerr,999);
51
52h5close(a);
53
54attr = ["SCILAB_scilab_version" "attribute";"SCILAB_sod_version" "attribute"];
55assert_checkequal(h5ls(TMPDIR+"/x.sod"),cat(1,dset,attr));
56attr = ["SCILAB_Class" "attribute";"SCILAB_precision" "attribute"];
57assert_checkequal(h5ls(TMPDIR+"/x.sod","/x"),attr);
58attr = ["SCILAB_scilab_version";"SCILAB_sod_version"];
59assert_checkequal(h5ls(TMPDIR+"/x.sod",".","a"),attr);
60
61
62
63