You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 lines
1.6 KiB
57 lines
1.6 KiB
2 years ago
|
#!/bin/bash
|
||
|
|
|
||
|
|
if test "x$srcdir" = x ; then srcdir=`pwd`; fi
|
||
|
|
. ../test_common.sh
|
||
|
|
|
||
|
|
set -e
|
||
|
|
|
||
|
|
# Test scoping rules for types and dimensions
|
||
|
|
|
||
|
|
# Type test cases
|
||
|
|
# group_only - type defined in same group as var/attr
|
||
|
|
# ancestor_only - type defined in some ancestor group of var/attr
|
||
|
|
# ancestor_subgroup - type defined in both ancestor group and subgroup
|
||
|
|
# preorder - type defined in some preceding, non ancestor group
|
||
|
|
|
||
|
|
# Dimension test cases
|
||
|
|
# group_only - dim defined in same group as var
|
||
|
|
# ancestor_only - dim defined in some ancestor group of var
|
||
|
|
# ancestor_subgroup - dim defined in both ancestor group and subgroup
|
||
|
|
|
||
|
|
TSTS="scope_group_only scope_ancestor_only scope_ancestor_subgroup scope_preorder"
|
||
|
|
|
||
|
|
setup() {
|
||
|
|
${NCGEN} -4 -lb ${srcdir}/$1.cdl
|
||
|
|
}
|
||
|
|
|
||
|
|
testcycle() {
|
||
|
|
${NCCOPY} ${execdir}/$1.nc ${execdir}/$1_copy.nc
|
||
|
|
${NCDUMP} -h -n $1 ${execdir}/$1_copy.nc > copy_$1.cdl
|
||
|
|
diff -wB ${srcdir}/$1.cdl ${execdir}/copy_$1.cdl
|
||
|
|
}
|
||
|
|
|
||
|
|
typescope() {
|
||
|
|
ls -l ${execdir}/printfqn* ${execdir}/$1.nc ${execdir}/$1_copy.nc
|
||
|
|
REFT=`${execdir}/printfqn -f ${execdir}/$1.nc -v test_variable -t`
|
||
|
|
COPYT=`${execdir}/printfqn -f ${execdir}/$1_copy.nc -v test_variable -t`
|
||
|
|
if test "x$REFT" != "x$COPYT" ; then
|
||
|
|
echo "***Fail: ref=${REFT} copy=${COPYT}"
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
dimscope() {
|
||
|
|
REFT=`${execdir}/printfqn -f ${execdir}/$1.nc -v test_variable -d`
|
||
|
|
COPYT=`${execdir}/printfqn -f ${execdir}/$1_copy.nc -v test_variable -d`
|
||
|
|
if test "x$REFT" != "x$COPYT" ; then
|
||
|
|
echo "***Fail: ref=${REFT} copy=${COPYT}"
|
||
|
|
fi
|
||
|
|
}
|
||
|
|
|
||
|
|
for t in $TSTS ; do setup $t; done
|
||
|
|
for t in $TSTS ; do testcycle $t; done
|
||
|
|
for t in $TSTS ; do typescope $t; done
|
||
|
|
for t in $TSTS ; do dimscope $t; done
|
||
|
|
|
||
|
|
exit 0
|