hdf5: force some hdf5 lib functions, force no depreacated functions, convert code...
[scilab.git] / scilab / modules / hdf5 / tests / unit_tests / h5isGroup.tst
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 // <-- CLI SHELL MODE -->
8 //
9 // <-- ENGLISH IMPOSED -->
10
11 msgerr = msprintf(gettext("%s: Wrong number of input argument(s): 1 expected."), "h5isGroup");
12 assert_checkerror("h5isGroup()",msgerr,77);
13 assert_checkfalse(h5isGroup("42"));
14 assert_checkfalse(h5isGroup(42));
15
16 w = "testing";
17 x = list(1, "hello");
18 y = [1 2;3 4];
19 z = 1;
20 save(TMPDIR + "/w.sod", "w");
21 save(TMPDIR + "/x.sod", "x");
22 save(TMPDIR + "/y.sod", "y");
23 save(TMPDIR + "/z.sod", "z");
24
25 a = h5open(TMPDIR + "/w.sod", "r");
26 assert_checkequal(h5isGroup(a),%F);
27 assert_checkequal(h5isGroup(a.root),%T);
28 assert_checkequal(h5isGroup(a.root.w),%F);
29 assert_checkequal(h5isGroup(a.root.w.type),%F);
30 h5close(a);
31
32 b = h5open(TMPDIR + "/x.sod", "r");
33 assert_checkequal(h5isGroup(b),%F);
34 assert_checkequal(h5isGroup(b.root),%T);
35 assert_checkequal(h5isGroup(b.root.x),%F);
36 assert_checkequal(h5isGroup(b.root.x.type),%F);
37 h5close(b);
38
39