97529a20a4
* Error messages for invalid ranges are now on the form:
```
Number 23 out of range: 1-10
String length 23 out of range: 1-10
```
213 lines
4.9 KiB
Bash
Executable file
213 lines
4.9 KiB
Bash
Executable file
#!/bin/bash
|
|
# XML Insert unit test
|
|
# First a list with 0-5 base elements, insert in different places
|
|
# Second varying yangs: container, leaf, list, leaf-list, choice, user-order list
|
|
|
|
# Magic line must be first in script (see README.md)
|
|
s="$_" ; . ./lib.sh || if [ "$s" = $0 ]; then exit 0; else return 0; fi
|
|
|
|
: ${clixon_util_insert:=clixon_util_insert}
|
|
|
|
OPTS="-D $DBG -s"
|
|
|
|
APPNAME=example
|
|
|
|
cfg=$dir/conf_yang.xml
|
|
fyang=$dir/example.yang
|
|
|
|
cat <<EOF > $cfg
|
|
<clixon-config xmlns="http://clicon.org/config">
|
|
<CLICON_CONFIGFILE>$cfg</CLICON_CONFIGFILE>
|
|
<CLICON_YANG_DIR>$dir</CLICON_YANG_DIR>
|
|
<CLICON_YANG_DIR>/usr/local/share/clixon</CLICON_YANG_DIR>
|
|
<CLICON_CLISPEC_DIR>/usr/local/lib/$APPNAME/clispec</CLICON_CLISPEC_DIR>
|
|
<CLICON_CLI_DIR>/usr/local/lib/$APPNAME/cli</CLICON_CLI_DIR>
|
|
<CLICON_CLI_MODE>$APPNAME</CLICON_CLI_MODE>
|
|
<CLICON_SOCK>/usr/local/var/$APPNAME/$APPNAME.sock</CLICON_SOCK>
|
|
<CLICON_BACKEND_PIDFILE>/usr/local/var/$APPNAME/$APPNAME.pidfile</CLICON_BACKEND_PIDFILE>
|
|
<CLICON_XMLDB_DIR>$dir</CLICON_XMLDB_DIR>
|
|
</clixon-config>
|
|
EOF
|
|
|
|
cat <<EOF > $fyang
|
|
module example {
|
|
yang-version 1.1;
|
|
namespace "urn:example:example";
|
|
prefix ex;
|
|
revision 2019-01-13;
|
|
container c{
|
|
list a{
|
|
key x;
|
|
leaf x{
|
|
type int32;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
EOF
|
|
|
|
testrun(){
|
|
x0=$1
|
|
xi="<c xmlns=\"urn:example:example\">$2</c>"
|
|
xp=c
|
|
|
|
new "random list add leaf-list"
|
|
# First run sorted (assume this is the refernce == correct)
|
|
rs=$($clixon_util_insert -y $fyang -x "$xi" -b "$x0" -p $xp $OPTS -s)
|
|
# Then run actual insert
|
|
r0=$($clixon_util_insert -y $fyang -x "$xi" -b "$x0" -p $xp $OPTS)
|
|
# If both are null something is amiss
|
|
if [ -z "$r0" -a -z "$rs" ]; then
|
|
err "length of retval is zero"
|
|
fi
|
|
# echo "rs:$rs"
|
|
# echo "r0:$r0"
|
|
# Check they are equal
|
|
if [[ "$r0" != "$rs" ]]; then
|
|
err "$rs" "$r0"
|
|
fi
|
|
}
|
|
|
|
new "test params: -y $fyang $OPTS"
|
|
|
|
# Empty element base list
|
|
x0='<c xmlns="urn:example:example"></c>'
|
|
new "empty list"
|
|
testrun "$x0" "<a><x>1</x></a>"
|
|
|
|
# One element base list
|
|
x0='<c xmlns="urn:example:example"><a><x>99</x></a></c>'
|
|
new "one element list first"
|
|
testrun "$x0" "<a><x>1</x></a>"
|
|
|
|
new "one element list last"
|
|
testrun "$x0" "<a><x>100</x></a>"
|
|
|
|
# Two element base list
|
|
x0='<c xmlns="urn:example:example"><a><x>2</x></a><a><x>99</x></a></c>'
|
|
new "two element list first"
|
|
testrun "$x0" "<a><x>1</x></a>"
|
|
|
|
new "two element list mid"
|
|
testrun "$x0" "<a><x>12</x></a>"
|
|
|
|
new "two element list last"
|
|
testrun "$x0" "<a><x>3000</x></a>"
|
|
|
|
# Three element base list
|
|
x0='<c xmlns="urn:example:example"><a><x>2</x></a><a><x>99</x></a><a><x>101</x></a></c>'
|
|
new "three element list first"
|
|
testrun "$x0" "<a><x>1</x></a>"
|
|
|
|
new "three element list second"
|
|
testrun "$x0" "<a><x>10</x></a>"
|
|
|
|
new "three element list third"
|
|
testrun "$x0" "<a><x>100</x></a>"
|
|
|
|
new "three element list last"
|
|
testrun "$x0" "<a><x>1000</x></a>"
|
|
|
|
# Four element base list
|
|
x0='<c xmlns="urn:example:example"><a><x>2</x></a><a><x>99</x></a><a><x>101</x></a><a><x>200</x></a></c>'
|
|
|
|
new "four element list first"
|
|
testrun "$x0" "<a><x>1</x></a>"
|
|
|
|
new "four element list second"
|
|
testrun "$x0" "<a><x>10</x></a>"
|
|
|
|
new "four element list third"
|
|
testrun "$x0" "<a><x>100</x></a>"
|
|
|
|
new "four element list fourth"
|
|
testrun "$x0" "<a><x>102</x></a>"
|
|
|
|
new "four element list last"
|
|
testrun "$x0" "<a><x>1000</x></a>"
|
|
|
|
# Five element base list
|
|
x0='<c xmlns="urn:example:example"><a><x>2</x></a><a><x>99</x></a><a><x>101</x></a><a><x>200</x></a><a><x>300</x></a></c>'
|
|
|
|
new "five element list first"
|
|
testrun "$x0" "<a><x>1</x></a>"
|
|
|
|
new "five element list mid"
|
|
testrun "$x0" "<a><x>100</x></a>"
|
|
|
|
new "five element list last"
|
|
testrun "$x0" "<a><x>1000</x></a>"
|
|
|
|
cat <<EOF > $fyang
|
|
module example {
|
|
yang-version 1.1;
|
|
namespace "urn:example:example";
|
|
prefix ex;
|
|
revision 2019-01-13;
|
|
container c{
|
|
leaf a{
|
|
type string;
|
|
}
|
|
container b{
|
|
leaf a {
|
|
type string;
|
|
}
|
|
}
|
|
choice c1{
|
|
case a{
|
|
leaf x{
|
|
type string;
|
|
}
|
|
}
|
|
case b{
|
|
leaf y{
|
|
type int32;
|
|
}
|
|
}
|
|
}
|
|
choice c2{
|
|
leaf z{
|
|
type string;
|
|
}
|
|
leaf t{
|
|
type int32;
|
|
}
|
|
}
|
|
list d{
|
|
key x;
|
|
leaf x{
|
|
type int32;
|
|
}
|
|
ordered-by user;
|
|
}
|
|
leaf-list e{
|
|
type int32;
|
|
}
|
|
}
|
|
}
|
|
EOF
|
|
|
|
# Advanced list
|
|
# Empty base list
|
|
x0='<c xmlns="urn:example:example"></c>'
|
|
xp=c
|
|
new "adv empty list add leaf"
|
|
testrun "$x0" "<a>leaf</a>"
|
|
|
|
new "adv empty list add choice c1"
|
|
testrun "$x0" "<x>choice1</x>"
|
|
|
|
xi='<c xmlns="urn:example:example"><e>33</e></c>'
|
|
new "adv empty list add leaf-list"
|
|
testrun "$x0" "<e>33</e>"
|
|
|
|
# base list
|
|
x0='<c xmlns="urn:example:example"><a>leaf</a><x>choice</x><d><x>1</x></d><e>33</e></c>'
|
|
|
|
new "adv list add leaf-list"
|
|
testrun "$x0" "<e>32</e>"
|
|
|
|
new "adv list add leaf-list"
|
|
testrun "$x0" "<e>32</e>"
|
|
|
|
rm -rf $dir
|