Changes for Sy

[anna.git] / example / diameter / launcher / resources / scripts / tinyTestcase.sh

diff --git a/example/diameter/launcher/resources/scripts/tinyTestcase.sh b/example/diameter/launcher/resources/scripts/tinyTestcase.sh
index 519443d..22e2748 100755 (executable)
--- a/example/diameter/launcher/resources/scripts/tinyTestcase.sh
+++ b/example/diameter/launcher/resources/scripts/tinyTestcase.sh
@@ -6,6 +6,7 @@
 SCR_DIR=`readlink -f $0 | xargs dirname`
 TESTCASE_BN=testcase.txt
 WHAT=?????????
+REQUEST_STEP=
 
 #############
 # FUNCTIONS #
@@ -24,7 +25,7 @@ usage() {
   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."
@@ -108,9 +109,15 @@ update_testcase () {
   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)"
@@ -122,12 +129,21 @@ update_testcase () {
         _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
 }
 
@@ -178,7 +194,7 @@ mv .involved_frames_sort .involved_frames
 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: