SCR_DIR=`readlink -f $0 | xargs dirname`
TESTCASE_BN=testcase.txt
WHAT=?????????
+REQUEST_STEP=
#############
# FUNCTIONS #
echo " source_directory:"
echo " The source directory may contain .xml and .metadata files grouped by pairs and alphabetically classified,"
echo " and also (and this is VERY IMPORTANT), a file called 'origin-hosts' containing a list of Origin-Host"
- echo " values that are used from the point of view of the ADML testing system, together with the type of the"
+ echo " values that represents the point of view of the ADML testing system, together with the type of the"
echo " simulated ADML node (client/server):"
echo
echo " <id>.hex.as.xml: ANNA-Diameter XML message format."
local s_wait="test|1|$wait_command|$code|$((1-isrequest))"
[ -n "$sessionid" ] && s_wait="${s_wait}|||${sessionid}"
+ local s_send="test|1|$send_command|$xml"
+
if [ $isrequest -eq 1 ]
then
- echo "test|1|$send_command|$xml" >> $TESTCASE_BN
+ # Send the request
+ # Special case for SNR/SNA (code=8388636): the Session-Id is created on client and received on SLR previously
+ [ "$code" = "8388636" -a "$adml_type" = "server" ] && s_send="test|1|$send_command|$xml|$REQUEST_STEP"
+ echo "$s_send" >> $TESTCASE_BN
+
if [ -n "$resultcode" ]
then
local hbh="$(grep -o "hop-by-hop-id=\"[0-9]*\"" $xml)"
_rc=$(getResultCode $ans_xml)
[ -n "$_rc" ] && rc=$_rc
fi
+
+ # Wait the answer:
s_wait="${s_wait}|${rc}"
fi
echo "$s_wait" >> $TESTCASE_BN
else
+ local next_step_number=$((lines+1))
+
+ # Wait the request
+ # Special case for SLR/SLA (code=8388635): the Session-Id is created on client
+ [ "$code" = "8388635" -a "$adml_type" = "server" ] && { s_wait="test|1|$wait_command|$code|1||||$subscriber" ; REQUEST_STEP=$next_step_number ; }
echo "$s_wait" >> $TESTCASE_BN
- echo "test|1|$send_command|$xml|$((lines+1))" >> $TESTCASE_BN
+
+ # Send the answer
+ echo "test|1|$send_command|$xml|$next_step_number" >> $TESTCASE_BN
fi
}
[ ${PIPESTATUS[1]} -ne 0 ] && _exit "Can't found any Origin-Host in '$ohs_file' with a valid ADML node role value (client or server) !!"
# Identify useful frames: those which are created at test-bed side (all except frames coming from tested systems):
-rm -f *.needed
+0> .involved_frames
+0> .involved_origin_hosts
+n_involved_frames=0
for oh in `awk '{ print $1 }' $ohs_file`
do
for frame in $(grep -l "^originhost=$oh$" *.*metadata | cut -d\. -f1)
do
- touch ${frame}.needed
+ echo "$frame" >> .involved_frames
+ echo "$oh" >> .involved_origin_hosts
+ n_involved_frames=$((n_involved_frames + 1))
done
done
-ls *.needed >/dev/null 2>/dev/null
-[ $? -ne 0 ] && _exit "No frame has been selected within '$SOURCE_DIR' for provided origin-hosts file !!"
+[ $n_involved_frames -eq 0 ] && _exit "No frame has been selected within '$SOURCE_DIR' for provided origin-hosts file !!"
+sort .involved_frames > .involved_frames_sort
+mv .involved_frames_sort .involved_frames
# Messages classification:
0> cers_4_starting
0> $TESTCASE_BN
# Optional timeout:
-TIMEOUT_SEC=$3
+TIMEOUT_SEC=$2
[ -n "$TIMEOUT_SEC" ] && echo "test|1|timeout|$((TIMEOUT_SEC * 1000))" >> $TESTCASE_BN
# Process frames:
-for frame in `ls *.needed | cut -d\. -f1 | sort -n`
+for frame in `cat .involved_frames`
do
mtd=( `ls ${frame}.*metadata 2>/dev/null` )
[ ${#mtd[@]} -ne 1 ] && _exit "There must be one metadata file corresponding to frame '$frame' !!"
update_testcase $mtd $xml "" $adml_type
fi
done
-rm -f *.needed
# We will replace all the requests hop-by-hop's with a unique value, to avoid bad sniffing cases (different sources using bad values).
# For example, the frame number could be valid enough.
hbh_ini=
hbh_fin=
-# involved frames:
-involved_xmls=
-grep "|sendxml" $TESTCASE_BN > .involved_frames
-n_involved=`wc -l .involved_frames | awk '{ print $1 }'`
-count=1
-for frame in `cat .involved_frames | cut -d\| -f4 | cut -d\. -f1`
+for frame in `cat .involved_frames`
do
xml=( `ls ${frame}.*xml` )
- involved_xmls="$involved_xmls $xml"
mtd=( `ls ${frame}.*metadata` )
isrequest=$(grep "isrequest=1" $mtd)
if [ -n "$isrequest" ]
hbh_ini="$(grep -o "hop-by-hop-id=\"[0-9]*\"" $xml)"
sed -i 's/'$hbh_ini'/hop-by-hop-id="'$frame'"/' $xml
fi
- count=$((count+1))
done
+rm .involved_frames
-# Involved origin hosts:
-grep "<avp name=\"Origin-Host\"" $involved_xmls | cut -d\" -f4 | sort -u > .involved_origin_hosts
-grep -w -f .involved_origin_hosts $ohs_file > .involved_origin_hosts_with_info
+# Simplify origin hosts file (oh + adml role):
+sort -u .involved_origin_hosts > .involved_origin_hosts_unique
+grep -w -f .involved_origin_hosts_unique $ohs_file > .involved_origin_hosts_with_info
+mv .involved_origin_hosts_with_info $ohs_file
+rm .involved_origin_hosts .involved_origin_hosts_unique
# Missing CERs:
-for oh in $(awk -v input=client '{if ($2 == input) print $1;}' .involved_origin_hosts_with_info)
+for oh in $(awk -v input=client '{if ($2 == input) print $1;}' $ohs_file)
do
cer=$SOURCE_DIR/cer.${oh}.xml
if [ ! -f $cer ]
done
# Missing CEAs:
-for oh in $(awk -v input=server '{if ($2 == input) print $1;}' .involved_origin_hosts_with_info)
+for oh in $(awk -v input=server '{if ($2 == input) print $1;}' $ohs_file)
do
cea=$SOURCE_DIR/cea.${oh}.xml
if [ ! -f $cea ]
fi
done
-rm -f .involved_origin_hosts .involved_origin_hosts_with_info
-
exit 0
projects / anna.git / blobdiff