Skip to content
GitLab
Find file Normal viewHistoryPermalink
ItsGeoNetworking_TpFunctions.ttcn 806 KB
Newer Older
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6001 6002 6003 6004 6005 6006 6007 6008 6009 6010 6011 6012 6013 6014 6015 6016 6017 6018 6019 6020 6021 6022 6023 6024 6025 6026 6027 6028 6029 6030 6031 6032 6033 6034 6035 6036 6037 6038 6039 6040 6041 6042 6043 6044 6045 6046 6047 6048 6049 6050 6051 6052 6053 6054 6055 6056 6057 6058 6059 6060 6061 6062 6063 6064 6065 6066 6067 6068 6069 6070 6071 6072 6073 6074 6075 6076 6077 6078 6079 6080 6081 6082 6083 6084 6085 6086 6087 6088 6089 6090 6091 6092 6093 6094 6095 6096 6097 6098 6099 6100 6101 6102 6103 6104 6105 6106 6107 6108 6109 6110 6111 6112 6113 6114 6115 6116 6117 6118 6119 6120 6121 6122 6123 6124 6125 6126 6127 6128 6129 6130 6131 6132 6133 6134 6135 6136 6137 6138 6139 6140 6141 6142 6143 6144 6145 6146 6147 6148 6149 6150 6151 6152 6153 6154 6155 6156 6157 6158 6159 6160 6161 6162 6163 6164 6165 6166 6167 6168 6169 6170 6171 
                    }
                    [] tc_ac.timeout {
                        log("*** " & testcasename() & ": Expected message not received ***");
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_timeout);
                    }
                }
                
                // Postamble
                f_poDefault();
                f_cf01Down();
                
            } // end f_GEONW_PON_GNA_BV_02
            
        } // end geoGeoNetworkingAddress
        
        // 6.2.2.7
        group geoBeaconing {
            
            /**
             * @desc    TP Function for TC_GEONW_PON_BEA_TI_01
             */
            function f_GEONW_PON_BEA_TI_01() runs on ItsGeoNetworking {
                
                // Local variables
                var LongPosVector v_longPosVectorIut;
                var boolean v_beaconReceived := false;
                timer t_minRetransTimer := f_getBsRetransmitTimer();
                timer t_maxRetransTimer := f_getBsRetransmitTimer() + f_getBsMaxJitter();
                
                // Test control
                if (not PICS_GN_BEACON_SRC) {
                    log("*** " & testcasename() & ": PICS_GN_BEACON_SRC required for executing the TC ***");
                    setverdict(inconc);
                    stop;
                }
                 
                // Test component configuration
                f_cf01Up();
                v_longPosVectorIut := f_getPosition(c_compIut);
                
                // Test adapter configuration
                
                // Preamble
                f_prDefault();
                f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                
                // Test Body
                f_acTriggerEvent(m_startPassBeaconing(m_beaconHeader(v_longPosVectorIut).beaconHeader));
                
                t_maxRetransTimer.start;
                alt {
                    [] geoNetworkingPort.receive(mw_geoNwInd(mw_geoNwPdu(mw_geoNwBeaconPacket(?)))) {
                        if (v_beaconReceived == false) {
                            v_beaconReceived := true;
                            t_minRetransTimer.start;
                            t_maxRetransTimer.start;
                            //after the first beacon received, check the retransmission
                            repeat;
                        }
                        if(t_minRetransTimer.running) {
                            log("*** " & testcasename() & ": Beacon not transmitted at prescribed periodicity (too early) ***");
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                        }
                        else {
                            log("*** " & testcasename() & ": Beacon transmitted at prescribed periodicity ***");
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                        }
                    }
                    [] t_minRetransTimer.timeout {
                        log("*** " & testcasename() & ": Ready for retransmission ***");
                        repeat;
                    }
                    [] t_maxRetransTimer.timeout {
                        log("*** " & testcasename() & ": Beacon not transmitted at prescribed periodicity (too late) ***");
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                    }
                }
                f_acTriggerEvent(m_stopPassBeaconing);
                
                // Postamble
                f_poDefault();
                f_cf01Down();
                
            } // end f_GEONW_PON_BEA_TI_01
            
            /**
             * @desc    TP Function for TC_GEONW_PON_BEA_TI_02
             */
            function f_GEONW_PON_BEA_TI_02() runs on ItsGeoNetworking {
                
                // Local variables
                var LongPosVector v_longPosVectorNodeB;
                var LongPosVector v_longPosVectorIut;
                var boolean v_geoUnicastReceived := false;
                var boolean v_readyForRetransmission := false;
                timer t_minRetransTimer := f_getBsRetransmitTimer() - f_getDeltaTimer();
                timer t_maxRetransTimer := f_getBsRetransmitTimer() + f_getBsMaxJitter() + f_getDeltaTimer();
                
                // Test control
                if (not PICS_GN_BEACON_SRC) {
                    log("*** " & testcasename() & ": PICS_GN_BEACON_SRC required for executing the TC ***");
                    setverdict(inconc);
                    stop;
                }
                
                // Test component configuration
                f_cf01Up();
                v_longPosVectorNodeB := f_getPosition(c_compNodeB);
                v_longPosVectorIut := f_getPosition(c_compIut);
                
                // Test adapter configuration
                f_acTriggerEvent(m_startPassBeaconing(m_beaconHeader(v_longPosVectorIut).beaconHeader));
                
                // Preamble
                f_prNeighbour();
                f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                
                // Test Body
                if ( not f_utTriggerEvent(m_generateShbMessage) ) {
                    log("*** " & testcasename() & ": INCONC: Trigger failed ***");
                    f_selfOrClientSyncAndVerdict(c_tbDone, e_timeout);
                }
                tc_ac.start;
                alt {
                    [] geoNetworkingPort.receive(mw_geoNwInd(mw_geoNwPdu(mw_geoNwShbPacket))) {
                        tc_ac.stop;
                        t_minRetransTimer.start;
                        t_maxRetransTimer.start;
                        v_geoUnicastReceived := true;
                        repeat;
                    }
                    [] geoNetworkingPort.receive(mw_geoNwInd(mw_geoNwPdu(mw_geoNwBeaconPacket))) {
                        if(not(v_geoUnicastReceived)) {
                            repeat;
                        }
                        if(not(v_readyForRetransmission)) {
                            log("*** " & testcasename() & ": Beacon not transmitted at prescribed periodicity (too early) ***");
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                        }
                        else {
                            log("*** " & testcasename() & ": Beacon transmitted at prescribed periodicity ***");
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                        }
                    }
                    [] t_minRetransTimer.timeout {
                        log("*** " & testcasename() & ": Ready for retransmission ***");
                        v_readyForRetransmission := true;
                        repeat;
                    }
                    [] t_maxRetransTimer.timeout {
                        log("*** " & testcasename() & ": Beacon not transmitted at prescribed periodicity (too late) ***");
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                    }
                    [] tc_ac.timeout {
                        log("*** " & testcasename() & ": GUC not received ***");
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_timeout);
                    }
                }
                f_acTriggerEvent(m_stopPassBeaconing);
                
                // Postamble
                f_poNeighbour();
                f_cf01Down();
                
            } // end f_GEONW_PON_BEA_TI_02
            
        } // end geoBeaconing
        
        // 6.2.2.8
        group geoGeoUnicast {
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6172 6173 6174 6175 6176 6177 6178 6179 6180 6181 6182 6183 6184 6185 6186 6187 6188 6189 6190 6191 6192 6193 6194 6195 6196 6197 6198 6199 6200 6201 6202 6203 6204 6205 6206 6207 6208 6209 6210 6211 6212 6213 6214 6215 6216 6217 6218 6219 6220 6221 6222 6223 6224 6225 6226 6227 6228 6229 6230 6231 6232 6233 6234 6235 6236 6237 6238 6239 6240 6241 6242 6243 6244 6245 6246 6247 6248 6249 6250 6251 6252 6253 6254 6255 6256 6257 6258 6259 6260 6261 6262 6263 
			group gucAllForwardingAlgorithm {
				
                group GEONW_PON_GUC_ALL_BV_03 {
                    
                    /**
                     * @desc    TP Function for TC_GEONW_PON_GUC_ALL_BV_03
                     */
                    function f_GEONW_PON_GUC_ALL_BV_03() runs on ItsMtc {
                        
                        // Local variables
                        var ItsGeoNetworking v_nodeB;
                        var ItsGeoNetworking v_nodeC;
                        
                        // Test control
                        if (not PICS_GN_GUC_FWD) {
                            log("*** " & testcasename() & ": PICS_GN_GUC_FWD required for executing the TC ***");
                            setverdict(inconc);
                            stop;
                        }
                        
                        // Test component configuration
                        f_cf03Up();
                        
                        // Preamble
                        
                        // Start components
                        v_nodeB := f_getComponent(c_compNodeB);
                        v_nodeC := f_getComponent(c_compNodeC);
                        v_nodeB.start(f_GEONW_PON_GUC_ALL_BV_03_nodeB());
                        v_nodeC.start(f_GEONW_PON_GUC_ALL_BV_03_nodeC());
                        
                        // Synchronization
                        f_serverSync2ClientsAndStop({c_prDone, c_tbDone});
                        
                        // Cleanup
                        f_cf03Down();
                        
                    } // end f_GEONW_PON_GUC_BV_03
                    
                    /**
                     * @desc    Behavior function for NodeB (TC_GEONW_PON_GUC_ALL_BV_03)
                     */
                    function f_GEONW_PON_GUC_ALL_BV_03_nodeB() runs on ItsGeoNetworking {
                        
                        // Local variables
                        var LongPosVector v_longPosVectorNodeA := f_getPosition(c_compNodeA);
                        
                        // Preamble
                        f_prNeighbour();
                        
                        f_sendGeoNetMessage(
                            m_geoNwReq_withLinkLayerDestination(
                                m_geoNwPdu(
                                    m_geoNwUnicastPacket(
                                        v_longPosVectorNodeA,
                                        f_longPosVector2ShortPosVector(f_getPosition(c_compIut)),
                                        vc_localSeqNumber
                                    )
                                ),
                                -,
                                f_getIutMacAddress()
                            )
                        );
                        f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        
                        // Test Body
                        tc_ac.start;
                        alt {
                            [] geoNetworkingPort.receive(
                                mw_geoNwInd(
                                    mw_geoNwPdu(
                                        mw_geoNwUnicastPacketWithHl(
                                            mw_shortPosVectorPosition(f_longPosVector2ShortPosVector(v_longPosVectorNodeA)),
                                            ?,
                                            c_defaultHopLimit
                                        ),
                                        -,
                                        c_defaultHopLimit - 1
                                    )
                                )
                            ) {
                                tc_ac.stop;
                                log("*** " & testcasename() & ": PASS: Forwarded GUC received ***");
                                f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                            }
                            [] geoNetworkingPort.receive(
                                mw_geoNwInd(
                                    mw_geoNwPdu(
                                        mw_geoNwUnicastPacket(
                                            ?,
                                            ?
                                        )
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6264 6265 
                                    )
                                )
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6266 6267 6268 6269 6270 6271 6272 6273 6274 6275 6276 6277 6278 6279 6280 6281 6282 6283 6284 6285 6286 6287 6288 6289 6290 6291 6292 6293 6294 6295 6296 6297 6298 6299 6300 6301 6302 6303 6304 6305 6306 6307 6308 6309 6310 
                            ) {
                                tc_ac.stop;
                                log("*** " & testcasename() & ": FAIL: Fields not correctly updated ***");
                                f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                            }
                            [] tc_ac.timeout {
                                log("*** " & testcasename() & ": FAIL: GUC was not retransmitted ***");
                                f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                            }
                        }
                        
                        // Postamble
                        f_poNeighbour();
                        
                    } // end f_GEONW_PON_GUC_ALL_BV_03_nodeB
                    
                    /**
                     * @desc    Behavior function for NodeC (TC_GEONW_PON_GUC_ALL_BV_03)
                     */
                    function f_GEONW_PON_GUC_ALL_BV_03_nodeC() runs on ItsGeoNetworking {
                        
                        // Local variables
                        var LongPosVector v_obsoleteLongPosVectorNodeA := f_getPosition(c_compNodeA);
                        
                        // Preamble
                        f_prNeighbour();
                        v_obsoleteLongPosVectorNodeA.timestamp_ := v_obsoleteLongPosVectorNodeA.timestamp_ - 1000;
                        v_obsoleteLongPosVectorNodeA.latitude := v_obsoleteLongPosVectorNodeA.latitude - 1;
                        f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        
                        // Test Body
                        f_sendGeoNetMessage(
                            m_geoNwReq_withLinkLayerDestination(
                                m_geoNwPdu(
                                    m_geoNwUnicastPacket(
                                        f_getPosition(c_compNodeC),
                                        f_longPosVector2ShortPosVector(v_obsoleteLongPosVectorNodeA),
                                        vc_localSeqNumber,
                                        c_defaultHopLimit
                                    ),
                                    -,
                                    c_defaultHopLimit
                                ),
                                -,
                                f_getIutMacAddress()
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6311 
                            )
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6312 6313 
                        );
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6314 
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6315 6316 6317 6318 6319 6320 6321 6322 6323 6324 6325 6326 6327 6328 6329 6330 6331 6332 6333 6334 6335 6336 6337 6338 6339 6340 6341 6342 6343 6344 6345 6346 6347 6348 6349 6350 6351 6352 6353 6354 6355 6356 6357 6358 6359 6360 6361 6362 6363 6364 6365 6366 6367 6368 6369 6370 6371 6372 6373 6374 6375 6376 6377 6378 6379 6380 6381 6382 
                        
                        // Postamble
                        f_poNeighbour();
                        
                    } // end f_GEONW_PON_GUC_ALL_BV_03_nodeC
                    
                } // end GEONW_PON_GUC_ALL_BV_03
                
                group GEONW_PON_GUC_ALL_BO_04 {
                    
                    /**
                     * @desc    TP Function for TC_GEONW_PON_GUC_ALL_BO_04
                     */
                    function f_GEONW_PON_GUC_ALL_BO_04() runs on ItsMtc {
                        
                        // Local variables
                        var ItsGeoNetworking v_nodeB;
                        var ItsGeoNetworking v_nodeC;
                        
                        // Test control
                        if (not PICS_GN_GUC_FWD) {
                            log("*** " & testcasename() & ": PICS_GN_GUC_FWD required for executing the TC ***");
                            setverdict(inconc);
                            stop;
                        }
                        
                        // Test component configuration
                        f_cf03Up();
                        
                        // Preamble
                        
                        // Start components
                        v_nodeB := f_getComponent(c_compNodeB);
                        v_nodeC := f_getComponent(c_compNodeC);
                        v_nodeB.start(f_GEONW_PON_GUC_ALL_BO_04_nodeB());
                        v_nodeC.start(f_GEONW_PON_GUC_ALL_BO_04_nodeC());
                        
                        // Synchronization
                        f_serverSync2ClientsAndStop({c_prDone, c_tbDone});
                        
                        // Cleanup
                        f_cf03Down();
                        
                    } // end f_GEONW_PON_GUC_BO_04
                    
                    /**
                     * @desc    Behavior function for NodeB (TC_GEONW_PON_GUC_ALL_BO_04)
                     */
                    function f_GEONW_PON_GUC_ALL_BO_04_nodeB() runs on ItsGeoNetworking {
                        
                        // Local variables
                        var LongPosVector v_longPosVectorNodeA := f_getPosition(c_compNodeA);
                        
                        // Preamble
                        f_prNeighbour();
                        f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        
                        // Test Body
                        tc_noac.start;
                        alt {
                            [] geoNetworkingPort.receive(
                                mw_geoNwInd(
                                    mw_geoNwPdu(
                                        mw_geoNwUnicastPacket(
                                            mw_shortPosVectorPosition(f_longPosVector2ShortPosVector(v_longPosVectorNodeA)),
                                            ?
                                        ),
                                        -,
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6383 6384 6385 
                                        ?
                                    )
                                )
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6386 6387 6388 6389 6390 6391 6392 6393 6394 6395 6396 6397 6398 6399 6400 6401 6402 6403 6404 6405 6406 6407 6408 6409 6410 6411 6412 6413 6414 6415 6416 6417 6418 6419 6420 6421 6422 6423 6424 6425 6426 6427 
                            ) {
                                tc_noac.stop;
                                log("*** " & testcasename() & ": FAIL: Retransmitted GUC received ***");
                                f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                            }
                            [] tc_noac.timeout {
                                log("*** " & testcasename() & ": PASS: GUC was not retransmitted ***");
                                f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                            }
                        }
                        
                        // Postamble
                        f_poNeighbour();
                             
                    } // end f_GEONW_PON_GUC_ALL_BO_04_nodeB
                    
                    /**
                     * @desc    Behavior function for NodeC (TC_GEONW_PON_GUC_ALL_BO_04)
                     */
                    function f_GEONW_PON_GUC_ALL_BO_04_nodeC() runs on ItsGeoNetworking {
                        
                        // Local variables
                        var LongPosVector v_longPosVectorNodeA := f_getPosition(c_compNodeA);
                        
                        // Preamble
                        f_prNeighbour();
                        f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        
                        // Test Body
                        f_sendGeoNetMessage(
                            m_geoNwReq_withLinkLayerDestination(
                                m_geoNwPdu(
                                    m_geoNwUnicastPacket(
                                        f_getPosition(c_compNodeC),
                                        f_longPosVector2ShortPosVector(v_longPosVectorNodeA),
                                        vc_localSeqNumber
                                    ),
                                    -,
                                    1
                                ),
                                -,
                                f_getIutMacAddress()
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6428 
                            )
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6429 6430 6431 6432 6433 6434 6435 6436 6437 6438 6439 6440 6441 6442 6443 6444 6445 6446 6447 6448 6449 6450 6451 6452 6453 6454 6455 6456 6457 6458 6459 6460 
                        );
                        
						tc_noac.start;
						alt {
							[] geoNetworkingPort.receive(
								mw_geoNwInd(
									mw_geoNwPdu(
										mw_geoNwUnicastPacket(
											mw_shortPosVectorPosition(f_longPosVector2ShortPosVector(v_longPosVectorNodeA)),
											?
										),
										-,
										?
									)
								)
							) {
								tc_noac.stop;
								log("*** " & testcasename() & ": FAIL: Retransmitted GUC received ***");
								f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
							}
							[] tc_noac.timeout {
								log("*** " & testcasename() & ": PASS: GUC was not retransmitted ***");
								f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
							}
						}
                        
                        // Postamble
                        f_poNeighbour();
                        
                    } // end f_GEONW_PON_GUC_ALL_BO_04_nodeC
                    
                } // end GEONW_PON_GUC_ALL_BO_04
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6461 6462 
                
                /**
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6463 
                 * @desc    TP Function for TC_GEONW_PON_GUC_ALL_BV_05
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6464 
                 */
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6465 
                function f_GEONW_PON_GUC_ALL_BV_05() runs on ItsGeoNetworking {
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6466 6467 
                    
                    // Local variables
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6468 6469 6470 
                    var template (value) GeoNetworkingPdu v_gnPacket;
                    var integer i;
                    var GnRawPayload v_sentRawPayload;
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6471 6472 
                    
                    // Test control
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6473 6474 
                    if (not PICS_GN_GUC_DST) {
                        log("*** " & testcasename() & ": PICS_GN_GUC_DST required for executing the TC ***");
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6475 6476 6477 6478 6479 
                        setverdict(inconc);
                        stop;
                    }
                    
                    // Test component configuration
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6480 
                    f_cf01Up();
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6481
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6482 
                    // Test adapter configuration
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6483 6484 
                    
                    // Preamble
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6485 
                    f_prDefault();
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6486 6487 6488 
                    f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                    
                    // Test Body
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6489 6490 6491 6492 6493 6494 6495 6496 
                    v_gnPacket := m_geoNwPdu(
                                      m_geoNwUnicastPacket(
                                          f_getPosition(c_compNodeB),
                                          f_getIutShortPosVector(),
                                          vc_localSeqNumber
                                      )
                                  );
                    f_sendGeoNetMessage(m_geoNwReq_withLinkLayerDestination(v_gnPacket, -, f_getIutMacAddress()));
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6497
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6498 
                    f_sleep(PX_TAC);
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6499
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6500 6501 6502 6503 6504 6505 6506 6507 6508 6509 6510 6511 
                    v_sentRawPayload := f_adaptPayloadForUtInd_m(v_gnPacket.gnPacket.packet.payload);
                    for(i:=0; i < lengthof(vc_utInds) and not match(vc_utInds[i].rawPayload, v_sentRawPayload); i:=i+1) {
                        // empty on purpose 
                    }
                    if(i < lengthof(vc_utInds)) {
                        log("*** " & testcasename() & ": PASS: GN was transmitted to upper layer ***");
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                    }
                    else {
                        log("*** " & testcasename() & ": FAIL: GN was not transmitted to upper layer ***");
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                    }
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6512
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6513 6514 6515 
                    // Postamble
                    f_poDefault();
                    f_cf01Down();
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6516
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6517 6518 6519 6520 6521 6522 6523 6524 6525 6526 6527 6528 6529 6530 6531 6532 6533 6534 6535 6536 6537 6538 6539 6540 6541 6542 6543 6544 6545 6546 6547 6548 6549 6550 6551 6552 6553 6554 6555 6556 6557 6558 6559 6560 6561 6562 6563 6564 6565 6566 6567 6568 6569 6570 6571 6572 6573 6574 6575 6576 6577 6578 6579 6580 6581 6582 6583 6584 6585 6586 6587 6588 6589 6590 6591 6592 6593 6594 6595 6596 6597 6598 6599 6600 6601 6602 6603 6604 6605 6606 6607 6608 
                } // end f_GEONW_PON_GUC_ALL_BV_05
                
				/**
				 * @desc    TP Function for TC_GEONW_PON_GUC_ALL_BV_06
				 */
				function f_GEONW_PON_GUC_ALL_BV_06() runs on ItsGeoNetworking {
                    
					// Local variables
					var LongPosVector v_longPosVectorNodeA := f_getPosition(c_compNodeA);
					var template (value) GeoNetworkingPdu v_gnPacket;
					var integer i;
					var GnRawPayload v_sentRawPayload;
                    
					// Test control
					if (not PICS_GN_GUC_FWD) {
						log("*** " & testcasename() & ": PICS_GN_GUC_FWD required for executing the TC ***");
						setverdict(inconc);
						stop;
					}
                    
					// Test component configuration
					f_cf01Up();
                    
					// Test adapter configuration
                    
					// Preamble
					f_prDefault();
					f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                    
					// Test Body
					v_gnPacket := m_geoNwPdu(
									  m_geoNwUnicastPacket(
										  f_getPosition(c_compNodeB),
					                      f_longPosVector2ShortPosVector(v_longPosVectorNodeA),
										  vc_localSeqNumber
									  )
								  );
					f_sendGeoNetMessage(m_geoNwReq_withLinkLayerDestination(v_gnPacket, -, f_getIutMacAddress()));
                    
					f_sleep(PX_TAC);
                    
					if(0 != lengthof(vc_utInds)) {
					    log("*** " & testcasename() & ": FAIL: GN was transmitted to upper layer ***");
					    f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
				    }
				    else {
					    log("*** " & testcasename() & ": PASS: GN was not transmitted to upper layer ***");
					    f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
				    }
                    
					// Postamble
					f_poDefault();
					f_cf01Down();
                    
				} // end f_GEONW_PON_GUC_ALL_BV_06
                
                group GEONW_PON_GUC_ALL_BO_08 {
                    
                    /**
                     * @desc    TP Function for TC_GEONW_PON_GUC_ALL_BO_08
                     */
                    function f_GEONW_PON_GUC_ALL_BO_08() runs on ItsMtc {
                        
                        // Local variables
                        var ItsGeoNetworking v_nodeB;
                        var ItsGeoNetworking v_nodeC;
                        
                        // Test control
                        if (not PICS_GN_GUC_DST) {
                            log("*** " & testcasename() & ": PICS_GN_GUC_DST required for executing the TC ***");
                            setverdict(inconc);
                            stop;
                        }
                        
                        // Test component configuration
                        f_cf03Up(c_compNodeB);
                        
                        // Preamble
                        
                        // Start components
                        v_nodeB := f_getComponent(c_compNodeB);
                        v_nodeC := f_getComponent(c_compNodeC);
                        v_nodeB.start(f_GEONW_PON_GUC_ALL_BO_08_nodeB());
                        v_nodeC.start(f_GEONW_PON_GUC_ALL_BO_08_nodeC());
                        
                        // Synchronization
                        f_serverSync2ClientsAndStop({c_prDone, c_tbDone});
                        
                        // Cleanup
                        f_cf03Down();
                        
                    } // end f_GEONW_PON_GUC_ALL_BO_08
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6609
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6610 6611 6612 6613 6614 6615 6616 6617 6618 6619 6620 6621 6622 
                    /**
                     * @desc    Behavior function for NodeB (TC_GEONW_PON_GUC_ALL_BO_08)
                     */
                    function f_GEONW_PON_GUC_ALL_BO_08_nodeB() runs on ItsGeoNetworking {
                        
                        // Local variables
                        var LongPosVector v_longPosVectorIut := f_getPosition(c_compIut);
                        var integer i;
                        var template (present) GeoNetworkingPdu v_gnPacket := m_geoNwPdu(
                            m_geoNwUnicastPacket(
                                f_getPosition(c_compNodeC),
                                f_longPosVector2ShortPosVector(v_longPosVectorIut),
                                vc_localSeqNumber
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6623 
                            ),
garciay's avatar
Add its_aid port information in GeoNetworkingReq  
garciay committed
6624 
                            -,
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6625 6626 6627 6628 6629 6630 6631 6632 6633 6634 6635 6636 6637 6638 6639 6640 6641 6642 6643 6644 6645 6646 6647 6648 6649 6650 6651 6652 6653 6654 6655 6656 6657 6658 6659 6660 6661 6662 6663 6664 
                            c_defaultHopLimit - 1
                        );
                        var GnRawPayload v_sentRawPayload;
                        
                        // Preamble
                        f_prNeighbour();
                        f_sleep(PX_TAC);
                        v_sentRawPayload := f_adaptPayloadForUtInd_m(valueof(v_gnPacket.gnPacket.packet.payload));
                        for(i:=0; i < lengthof(vc_utInds) and not match(vc_utInds[i].rawPayload, v_sentRawPayload); i:=i+1) {
                            // empty on purpose 
                        }
                        if(i < lengthof(vc_utInds)) {
                            log("*** " & testcasename() & ": PASS: GN was transmitted to upper layer ***");
                            //flush received upper indications 
                            vc_utInds := {};
                            f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        }
                        else {
                            log("*** " & testcasename() & ": INCONC: GN was not transmitted to upper layer ***");
                            f_selfOrClientSyncAndVerdict(c_prDone, e_error);
                        }
                        
                        // Test Body
                        f_sendGeoNetMessage(m_geoNwReq_withLinkLayerDestination(valueof(v_gnPacket), -, f_getIutMacAddress()));
                       
                        f_sleep(PX_TAC);
                        
                        if(0 != lengthof(vc_utInds)) {
                            log("*** " & testcasename() & ": FAIL: GN was transmitted to upper layer ***");
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                        }
                        else {
                            log("*** " & testcasename() & ": PASS: GN was not transmitted to upper layer ***");
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                        }
                        
                        // Postamble
                        f_poNeighbour();
                        
                    } // end f_GEONW_PON_GUC_ALL_BO_08_nodeB
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6665
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6666 6667 6668 6669 6670 6671 6672 6673 6674 6675 6676 6677 6678 6679 6680 6681 6682 6683 6684 6685 6686 6687 6688 6689 6690 6691 6692 6693 6694 6695 6696 6697 6698 6699 
                    /**
                     * @desc    Behavior function for NodeC (TC_GEONW_PON_GUC_ALL_BO_08)
                     */
                    function f_GEONW_PON_GUC_ALL_BO_08_nodeC() runs on ItsGeoNetworking {
                        
                        // Local variables
                        var LongPosVector v_longPosVectorIut := f_getPosition(c_compIut);
                        
                        // Preamble
                        f_prNeighbour();
                        f_sendGeoNetMessage(
                            m_geoNwReq_withLinkLayerDestination(
                                m_geoNwPdu(
                                    m_geoNwUnicastPacket(
                                        f_getPosition(c_compNodeC),
                                        f_longPosVector2ShortPosVector(v_longPosVectorIut),
                                        vc_localSeqNumber
                                    ),
                                    -,
                                    c_defaultHopLimit
                                ),
                                -,
                                f_getIutMacAddress()
                            )
                        );
                        f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        
                        // Test Body
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                        
                        // Postamble
                        f_poNeighbour();
                        
                    } // end f_GEONW_PON_GUC_ALL_BO_08_nodeC
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6700
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6701 
                } // end GEONW_PON_GUC_ALL_BO_08
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6702
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6703 6704 6705 6706 
			} // end gucAllForwardingAlgorithm

			group gucGreedyForwarding {
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6707 
                /**
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6708 
                 * @desc    TP Function for TC_GEONW_PON_GUC_GRD_BV_01
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6709 
                 */
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6710 
                function f_GEONW_PON_GUC_GRD_BV_01() runs on ItsGeoNetworking {
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6711 6712 
                    
                    // Local variables
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6713 
                    var LongPosVector v_longPosVectorNodeB;
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6714 6715 
                    
                    // Test control
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6716 6717 
                    if (not PICS_GN_GUC_SRC) {
                        log("*** " & testcasename() & ": PICS_GN_GUC_SRC required for executing the TC ***");
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6718 6719 6720 
                        setverdict(inconc);
                        stop;
                    }
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6721 6722 6723 6724 6725 6726 
                    if ((f_getNonAreaForwardingAlgorithm() != e_greedy) and (f_getNonAreaForwardingAlgorithm() != e_unspecified)) {
                        log("*** " & testcasename() & ": PICS_GN_NON_AREA_FORWARDING_ALGORITHM == (e_greedy  or e_unspecified) required for executing the TC ***");
                        setverdict(inconc);
                        stop;
                    }
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6727 
                    // Test component configuration
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6728 6729 
                    f_cf01Up();
                    v_longPosVectorNodeB := f_getPosition(c_compNodeB);
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6730
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6731 
                    // Test adapter configuration
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6732 6733 6734 6735 6736 6737 
                    
                    // Preamble
                    f_prNeighbour();
                    f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                    
                    // Test Body
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6738 6739 6740 6741 
                    if ( not f_utTriggerEvent(m_generateGeoUnicastMessage(v_longPosVectorNodeB.gnAddr)) ) {
                        log("*** " & testcasename() & ": INCONC: Trigger failed ***");
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_timeout);
                    }
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6742 6743 6744 
                    tc_ac.start;
                    alt {
                        [] geoNetworkingPort.receive(
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6745 6746 6747 6748 6749 6750 6751 
                                mw_geoNwInd(
                                    mw_geoNwPdu(
                                        mw_geoNwUnicastPacket(
                                            mw_shortPosVectorPosition(f_longPosVector2ShortPosVector(v_longPosVectorNodeB)),
                                            ?
                                        )
                                    )
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6752 
                                )
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6753 
                            ) {
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6754 
                            tc_ac.stop;
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6755 
                            log("*** " & testcasename() & ": DEPV of the received GUC message correctly set ***");
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6756 6757 6758 
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                        }
                        [] geoNetworkingPort.receive(
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6759 6760 6761 6762 6763 6764 
                                mw_geoNwInd(
                                    mw_geoNwPdu(
                                        mw_geoNwUnicastPacket(
                                            ?,
                                            ?
                                        )
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6765 6766 
                                    )
                                )
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6767 
                            ) {
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6768 
                            tc_ac.stop;
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6769 
                            log("*** " & testcasename() & ": DEPV of the received GUC message incorrectly set ***");
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6770 6771 6772 
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                        }
                        [] tc_ac.timeout {
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6773 6774 
                            log("*** " & testcasename() & ": Expected message not received ***");
                            f_selfOrClientSyncAndVerdict(c_tbDone, e_timeout);
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6775 6776 6777 6778 6779 
                        }
                    }
                    
                    // Postamble
                    f_poNeighbour();
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6780 
                    f_cf01Down();
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6781
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6782 6783 6784 
                } // end f_GEONW_PON_GUC_GRD_BV_01

                group GEONW_PON_GUC_GRD_BV_02 {
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6785
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6786 6787 6788 6789 6790 6791 6792 6793 6794 6795 6796 6797 6798 6799 6800 6801 6802 6803 6804 6805 6806 6807 6808 6809 6810 6811 6812 6813 6814 6815 6816 6817 6818 6819 6820 6821 6822 6823 6824 6825 6826 6827 
                    /**
                     * @desc    TP Function for TC_GEONW_PON_GUC_GRD_BV_02
                     */
                    function f_GEONW_PON_GUC_GRD_BV_02() runs on ItsMtc {
                        
                        // Local variables
                        var ItsGeoNetworking v_nodeB;
                        var ItsGeoNetworking v_nodeC;
                        var ItsGeoNetworking v_nodeD;
                        
                        // Test control
                        if (not PICS_GN_GUC_FWD) {
                            log("*** " & testcasename() & ": PICS_GN_GUC_FWD required for executing the TC ***");
                            setverdict(inconc);
                            stop;
                        }
                        if ((f_getNonAreaForwardingAlgorithm() != e_greedy) and (f_getNonAreaForwardingAlgorithm() != e_unspecified)) {
                            log("*** " & testcasename() & ": PICS_GN_NON_AREA_FORWARDING_ALGORITHM == (e_greedy  or e_unspecified) required for executing the TC ***");
                            setverdict(inconc);
                            stop;
                        }
                        
                        // Test component configuration
                        f_cf04Up();
                        
                        // Preamble
                        
                        // Start components
                        v_nodeB := f_getComponent(c_compNodeB);
                        v_nodeC := f_getComponent(c_compNodeC);
                        v_nodeD := f_getComponent(c_compNodeD);
                        v_nodeB.start(f_GEONW_PON_GUC_GRD_BV_02_nodeB());
                        v_nodeC.start(f_GEONW_PON_GUC_GRD_BV_02_nodeC());
                        v_nodeD.start(f_GEONW_PON_GUC_GRD_BV_02_nodeD());
                        
                        // Synchronization
                        f_serverSync3ClientsAndStop({c_prDone, c_tbDone});
                        
                        // Cleanup
                        f_cf04Down();
                        
                    } // end f_GEONW_PON_GUC_GRD_BV_02
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6828
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6829 6830 6831 6832 6833 6834 6835 6836 6837 6838 6839 6840 6841 6842 6843 6844 6845 6846 6847 6848 6849 6850 6851 6852 6853 6854 6855 6856 6857 6858 6859 6860 6861 6862 6863 6864 6865 6866 6867 
                    /**
                     * @desc    Behavior function for NodeB (TC_GEONW_PON_GUC_GRD_BV_02)
                     */
                    function f_GEONW_PON_GUC_GRD_BV_02_nodeB() runs on ItsGeoNetworking {
                        
                        // Local variables
                        var LongPosVector v_longPosVectorNodeA := f_getPosition(c_compNodeA);
                        
                        // Preamble
                        f_prNeighbour();
                        f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        
                        // Test Body
                        tc_ac.start;
                        alt {
                            [] geoNetworkingPort.receive(
                                mw_geoNwInd(
                                    mw_geoNwPdu(
                                        mw_geoNwUnicastPacket(
                                            mw_shortPosVectorPosition(f_longPosVector2ShortPosVector(v_longPosVectorNodeA)),
                                            ?
                                        )
                                    )
                                )
                            ) {
                                tc_ac.stop;
                                log("*** " & testcasename() & ": PASS: Forwarded GUC received ***");
                                f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                            }
                            [] tc_ac.timeout {
                                log("*** " & testcasename() & ": FAIL: GUC was not forwarded ***");
                                f_selfOrClientSyncAndVerdict(c_tbDone, e_error);
                            }
                        }
                        
                        // Postamble
                        f_poNeighbour();
                        
                    } // end f_GEONW_PON_GUC_GRD_BV_02_nodeB
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6868
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6869 6870 6871 6872 6873 6874 6875 6876 6877 6878 6879 6880 6881 6882 6883 6884 6885 6886 6887 6888 6889 
                    /**
                     * @desc    Behavior function for NodeC (TC_GEONW_PON_GUC_GRD_BV_02)
                     */
                    function f_GEONW_PON_GUC_GRD_BV_02_nodeC() runs on ItsGeoNetworking {
                        
                        // Local variables
                        
                        // Preamble
                        f_prNeighbour();
                        f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        
                        // Test Body
                        f_sendGeoNetMessage(
                            m_geoNwReq_withLinkLayerDestination(
                                m_geoNwPdu(
                                    m_geoNwUnicastPacket(
                                        f_getPosition(c_compNodeC),
                                        f_longPosVector2ShortPosVector(f_getPosition(c_compNodeA)),
                                        vc_localSeqNumber
                                    ),
                                    -,
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6890 6891 6892 
                                    c_defaultHopLimit
                                ),
                                -,
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6893 6894 6895 6896 6897 6898 6899 6900 6901 6902 
                                f_getIutMacAddress()
                            )
                        );
                        
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                        
                        // Postamble
                        f_poNeighbour();
                        
                    } // end f_GEONW_PON_GUC_GRD_BV_02_nodeC
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6903
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6904 6905 6906 6907 6908 6909 6910 6911 6912 6913 6914 6915 6916 6917 6918 6919 6920 6921 
                    /**
                     * @desc    Behavior function for NodeD (TC_GEONW_PON_GUC_GRD_BV_02)
                     */
                    function f_GEONW_PON_GUC_GRD_BV_02_nodeD() runs on ItsGeoNetworking {
                        
                        // Local variables
                        
                        // Preamble
                        f_prNeighbour();
                        f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                        
                        // Test Body
                        f_selfOrClientSyncAndVerdict(c_tbDone, e_success);
                        
                        // Postamble
                        f_poNeighbour();
                        
                    } // end f_GEONW_PON_GUC_GRD_BV_02_nodeD
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6922
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6923 6924 6925 
                } // end GEONW_PON_GUC_GRD_BV_02

                group GEONW_PON_GUC_GRD_BO_07 {
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6926
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6927 6928 6929 6930 6931 6932 6933 6934 6935 6936 6937 6938 6939 6940 6941 6942 6943 6944 6945 6946 6947 6948 6949 6950 6951 6952 6953 6954 6955 6956 6957 6958 6959 6960 6961 6962 6963 6964 6965 
                    /**
                     * @desc    TP Function for TC_GEONW_PON_GUC_GRD_BO_07
                     */
                    function f_GEONW_PON_GUC_GRD_BO_07() runs on ItsMtc {
                        
                        // Local variables
                        var ItsGeoNetworking v_nodeB;
                        var ItsGeoNetworking v_nodeC;
                        
                        // Test control
                        if (not PICS_GN_GUC_FWD) {
                            log("*** " & testcasename() & ": PICS_GN_GUC_FWD required for executing the TC ***");
                            setverdict(inconc);
                            stop;
                        }
                        if ((f_getNonAreaForwardingAlgorithm() != e_greedy) and (f_getNonAreaForwardingAlgorithm() != e_unspecified)) {
                            log("*** " & testcasename() & ": PICS_GN_NON_AREA_FORWARDING_ALGORITHM == (e_greedy  or e_unspecified) required for executing the TC ***");
                            setverdict(inconc);
                            stop;
                        }
                        
                        // Test component configuration
                        f_cf03Up();
                        
                        // Preamble
                        
                        // Start components
                        v_nodeB := f_getComponent(c_compNodeB);
                        v_nodeC := f_getComponent(c_compNodeC);
                        v_nodeB.start(f_GEONW_PON_GUC_GRD_BO_07_nodeB());
                        v_nodeC.start(f_GEONW_PON_GUC_GRD_BO_07_nodeC());
                        
                        // Synchronization
                        f_serverSync2ClientsAndStop({c_prDone, c_tbDone});
                        
                        // Cleanup
                        f_cf03Down();
                        
                    } // end f_GEONW_PON_GUC_GRD_BO_07
berge's avatar
Merged revision(s) 1839-1901 from branches/STF484_VALIDATION
berge committed
6966
berge's avatar
Review/Reorg of GN Forwarding TCs  
berge committed
6967 6968 6969 6970 6971 6972 6973 6974 6975 6976 6977 6978 6979 6980 6981 6982 6983 6984 6985 6986 6987 6988 6989 6990 6991 6992 6993 6994 6995 6996 6997 6998 6999 7000 
                    /**
                     * @desc    Behavior function for NodeB (TC_GEONW_PON_GUC_GRD_BO_07)
                     */
                    function f_GEONW_PON_GUC_GRD_BO_07_nodeB() runs on ItsGeoNetworking {
                        
                        // Local variables
                        var LongPosVector v_longPosVectorNodeA := f_getPosition(c_compNodeA);
                        
                        // Preamble
                        f_prNeighbour();
                        tc_ac.start;
                        alt {
                            [] geoNetworkingPort.receive(
                                mw_geoNwInd(
                                    mw_geoNwPdu(
                                        mw_geoNwUnicastPacket(
                                            mw_shortPosVectorPosition(f_longPosVector2ShortPosVector(v_longPosVectorNodeA)),
                                            ?
                                        )
                                    )
                                )
                            ) {
                                tc_ac.stop;
                                log("*** " & testcasename() & ": INFO: First GUC forwarded ***");
                                f_selfOrClientSyncAndVerdict(c_prDone, e_success);
                            }
                            [] tc_ac.timeout {
                                log("*** " & testcasename() & ": INCONC: First GUC was not forwarded ***");
                                f_selfOrClientSyncAndVerdict(c_prDone, e_timeout);
                            }
                        }
                        
                        // Test Body
                        f_sendGeoNetMessage(
Show full blame