1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#!/bin/sh
#set -x
# This shell just tests the group renaming.
set -e
echo ""
if test "x$srcdir" = x ; then
srcdir=`pwd`
fi
# Create the input cdl file
rm -f tst_grp_rename.cdl
cat >tst_grp_rename.cdl <<EOF
netcdf tst_grp_rename {
types:
int(*) vlen_t;
dimensions:
d2 = 2;
variables:
vlen_t v1(d2);
group: inner {
types:
compound c_t { int f1; float f2; };
dimensions:
d3 = 3;
variables:
c_t vc(d3);
group: inner_inner {
dimensions:
d3 = 4;
}
}
}
EOF
# Create the reference cdl file
rm -f ref_grp_rename.cdl
cat >ref_grp_rename.cdl <<EOF
netcdf tst_grp_rename {
types:
int(*) vlen_t ;
dimensions:
d2 = 2 ;
variables:
vlen_t v1(d2) ;
data:
v1 = {}, {} ;
group: renamed {
types:
compound c_t {
int f1 ;
float f2 ;
}; // c_t
dimensions:
d3 = 3 ;
variables:
c_t vc(d3) ;
data:
vc = {0, 0}, {0, 0}, {0, 0} ;
group: inner_renamed {
dimensions:
d3 = 4 ;
} // group inner_renamed
} // group renamed
}
EOF
echo "*** Running group_rename test"
FAIL=0
# Create ref_tst_group_rename.nc
rm -f tst_grp_rename.nc
../ncgen/ncgen -k nc4 ./tst_grp_rename.cdl
# Try to rename 2nd level group
if ! ./renamegroup tst_grp_rename.nc "inner/inner_inner" "inner_renamed" ; then
echo "***FAIL: attempt to rename /inner/inner_inner failed"
FAIL=1
fi
# Try to 1st level group
if ! ./renamegroup tst_grp_rename.nc "inner" "renamed" ; then
echo "***FAIL: attempt to rename /inner failed"
FAIL=1
fi
# Dump the final .nc and compare with the reference
rm -f tst_grp_rename.dmp
../ncdump/ncdump tst_grp_rename.nc > ./tst_grp_rename.dmp
if ! diff -b ref_grp_rename.cdl tst_grp_rename.dmp ; then
echo "***FAIL: output and reference output differ"
FAIL=1
fi
# Finally, try to rename root group; should fail
if ./renamegroup tst_grp_rename.nc "/" "rootgroup" ; then
echo "***FAIL: attempt to rename root group should not have succeeded"
FAIL=1
else
echo "***XFAIL : attempt to rename root group failed as expected"
fi
#rm -f tst_grp_rename.cdl tst_grp_rename.nc ref_grp_rename.nc
exit $FAIL
|
