<strong>CCSDS</strong> HISTORICAL DOCUMENTRECOMMENDATION FOR ADVANCED ORBITING SYSTEMSfailure ; exit)))endprocendprocPacketLength(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1)),AddFront(Octet(0,0,0,0,0,0,0,1),AddFront(Octet(0,0,0,0,0,0,1,0), NullOS))) ;<strong>CCSDS</strong> 705.2-B-1 Page A-29 May 1994<strong>CCSDS</strong> HISTORICAL DOCUMENT
Path Protocol Test7RECOMMENDATION FOR ADVANCED ORBITING SYSTEMSThis test injects packets into path from the subnetwork and checks that they emerge on the localnode and are re-transmitted. It is a test of the routing function.Run the test using the command:ts pp.t7.lot pp.lotType START at the hippo prompt (after some time) and then select ppt7 from the menu. Stepthrough the events offered using the NEXT command of hippo. Eventually the success eventshould take place and the next NEXT command will result in deadlock.The choice taken when multiple events are offered is not important for the success of this test;the exception to this is the success event which should not be chosen if an alternative exists.This is just a holder for the test behaviour:process ppt7 (pType : PacketType,dataLossFlags : Bool) : noexit :=(hide pkt, oct, man, snw in(test[pkt, oct, man, snw]|[pkt, oct, man, snw]|PathProtocol[pkt, oct, man, snw] (pType, False)))whereThis is the test behaviour itself:process test[pkt,oct,man,snw] : exit :=hide success, failure in(<strong>CCSDS</strong> HISTORICAL DOCUMENTSet up the paths through the management gate:man ! MakePathID(APID(0,0,0,0,0,0,0,0,0,0,1),Add(1, Add(0, NullAPIDQual)))! Succ(Succ(8))! SubnetID(0,0,0,0,0,0,0,1)! Add(1, Add(0, NullSNSAP))! True! OctetString! Add(MakeRelay(SubnetID(0,0,0,0,0,0,1,0),Add(1, Add(0, NullSNSAP)),Add(1, NullSNSAP)),CreateRT) ;Inject packets into path from the subnetwork on LDP 1,2. Note that packets can come from anysource SAP.<strong>CCSDS</strong> 705.2-B-1 Page A-30 May 1994<strong>CCSDS</strong> HISTORICAL DOCUMENT