Changeset 1020 for branches/reconfiguration/modules/dspin_router/caba/test/synthetic_test/scripts/broadcast_check.sh

Timestamp:

Oct 13, 2015, 4:21:08 PM (9 years ago)

Author:

cfuguet

Message:

reconf: improving dspin_router transition function.

File:

• branches/reconfiguration/modules/dspin_router/caba/test/synthetic_test/scripts/broadcast_check.sh (modified) (4 diffs)

branches/reconfiguration/modules/dspin_router/caba/test/synthetic_test/scripts/broadcast_check.sh

@@ -4 +4 @@
 # @brief        This script validates that a broadcast transaction reaches once
 #                       and only once every non-faulty router in the platform.
-file=$1
+fname=$1
+npkts=$2
+
 awk '
 BEGIN {
-        sent=0
-        last=0
-        failure=0
-        min=99999999
-        max=0
+        npkts=50
+
+        rcvpkts=0
+        nrecvrs=0
+
+        sndpkts=0
+        nsendrs=0
 }
-#   Parse coordinates of routers
-#   /DSPIN_GENERATOR/ {
-#       regex="\\[[0-9]+\\]\\[";
-#       if (match($2,regex)) {
-#               x=substr($2,RSTART+1,RLENGTH-3);
-#       }
-#       regex="\\]\\[[0-9]+\\]";
-#       if (match($2,regex)) {
-#               y=substr($2,RSTART+2,RLENGTH-3);
-#       }
-#   }
 
 #   Parse the number of sent broadcast packets
 /broadcast sent packets += +/ {
-        if ($6 != 0) {
-                sent=$6;
+        sent=$6
+        if (sent > 0) {
+                if (nsendrs > 1) {
+                        print "error: more than one initiator sent broadcast packets\n"
+                        exit 1
+                }
+                if (sent != npkts) {
+                        print "error: the number of sent broadcast packets does not "
+                        print "correspond to the one specified\n"
+                        exit 1
+                }
+                nsendrs++;
+                sndpkts=sent;
         }
 }
@@ -34 +38 @@
 #   Parse the number of received broadcast packets
 /broadcast received packets +=/ {
-        if ($6 == 0) {
+        received=$6
+        if (received == 0) {
                 zero++;
         }
         else {
-                # store the min and max number of received packets
-                if ($6 < min) {
-                        min=$6;
+                if (received != npkts) {
+                        print "error: at least a router received a number of broadcast ";
+                        if (received > npkts) {
+                                print "greater than the number of broadcast sent\n";
+                        }
+                        else {
+                                print "less than the number of broadcast sent\n";
+                        }
+                        exit 1
                 }
-                if ($6 > max) {
-                        max=$6;
-                }
+                nrecvrs++;
+                rcvpkts=received
         }
 }
@@ -56 +66 @@
                 exit 1;
         }
-
-        if (max > sent) {
-                print "error: at least a router received a number of broadcast greater"
-                print "than the number of broadcast sent\n";
-                exit 1;
-        }
-
         if (zero == 1) {
                 print "error: the broadcast source received broadcasts\n";
@@ -68 +71 @@
         }
 
-        error=sent - min
-        if (error > 0) {
-                print "error: the number of broadcast received by a router is inferior "
-                print "to the error threshold: error = " error "\n";
-                exit 1;
-        }
-
+        print "sent: " sndpkts " / # senders: " nsendrs;
+        print "received: " rcvpkts " / # receivers " nrecvrs "\n";
         exit 0;
-}' $file
+}' $fname
 if [[ $? == 1 ]]; then exit 1; fi