ns-3-leo/test/leo-anim-test-suite.cc
2020-09-03 21:20:13 +02:00

139 lines
4.2 KiB
C++

/* -*- Mode:C++; c-file-style:"gnu"; indent-tabs-mode:nil; -*- */
/*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License version 2 as
* published by the Free Software Foundation;
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
* Author: Tim Schubert <ns-3-leo@timschubert.net>
*/
#include "ns3/core-module.h"
#include "ns3/network-module.h"
#include "ns3/internet-module.h"
#include "ns3/applications-module.h"
#include "ns3/node-container.h"
#include "ns3/core-module.h"
#include "ns3/aodv-module.h"
#include "ns3/test.h"
#include "ns3/netanim-module.h"
#include "ns3/leo-module.h"
using namespace ns3;
class LeoAnimTestCase1 : public TestCase
{
public:
LeoAnimTestCase1 ();
virtual ~LeoAnimTestCase1 ();
private:
virtual void DoRun (void);
NodeContainer MakeSomeNodes (Vector position, size_t amount);
};
LeoAnimTestCase1::LeoAnimTestCase1 ()
: TestCase ("Leo test case (does nothing)")
{
}
LeoAnimTestCase1::~LeoAnimTestCase1 ()
{
}
NodeContainer
LeoAnimTestCase1::MakeSomeNodes (Vector position, size_t amount)
{
NodeContainer nodes;
for (uint32_t i = 0; i < amount; i ++)
{
Ptr<ConstantPositionMobilityModel> mob = CreateObject<ConstantPositionMobilityModel> ();
mob->SetPosition (Vector (i, 0, 0) + position);
Ptr<Node> node = CreateObject<Node> ();
node->AggregateObject (mob);
nodes.Add (node);
}
return nodes;
}
void
LeoAnimTestCase1::DoRun (void)
{
Time::SetResolution (Time::NS);
NodeContainer satellites = MakeSomeNodes (Vector (0, 0, 1), 10);
NetDeviceContainer islNet;
IslHelper islCh;
islCh.SetDeviceAttribute ("DataRate", StringValue ("10Mbps"));
islCh.SetDeviceAttribute ("ReceiveErrorModel", StringValue ("ns3::BurstErrorModel"));
islCh.SetChannelAttribute ("PropagationDelay", StringValue ("ns3::ConstantSpeedPropagationDelayModel"));
islCh.SetDeviceAttribute ("InterframeGap", TimeValue (Seconds (0.001)));
islCh.SetChannelAttribute ("PropagationLoss", StringValue ("ns3::IslPropagationLossModel"));
islNet = islCh.Install (satellites);
// Install internet stack on nodes
InternetStackHelper stack;
AodvHelper aodv;
stack.SetRoutingHelper (aodv);
stack.Install (satellites);
// Make all networks addressable for legacy protocol
Ipv4AddressHelper ipv4;
ipv4.SetBase ("10.1.0.0", "255.255.0.0");
Ipv4InterfaceContainer islIp = ipv4.Assign (islNet);
UdpEchoServerHelper echoServer (9);
ApplicationContainer serverApps = echoServer.Install (satellites.Get (1));
// install a client on one of the terminals
ApplicationContainer clientApps;
Address remote = islIp.GetAddress (3, 0);
UdpEchoClientHelper echoClient (remote, 9);
echoClient.SetAttribute ("MaxPackets", UintegerValue (10));
echoClient.SetAttribute ("Interval", TimeValue (Seconds (2.0)));
echoClient.SetAttribute ("PacketSize", UintegerValue (1024));
clientApps.Add (echoClient.Install (satellites.Get (0)));
AnimationInterface anim ("animation.xml");
serverApps.Start (Seconds (1.0));
clientApps.Start (Seconds (2.0));
clientApps.Stop (Seconds (60));
serverApps.Stop (Seconds (60));
Simulator::Stop (Seconds (60));
Simulator::Run ();
Simulator::Destroy ();
}
// The TestSuite class names the TestSuite, identifies what type of TestSuite,
// and enables the TestCases to be run. Typically, only the constructor for
// this class must be defined
//
class LeoAnimTestSuite : public TestSuite
{
public:
LeoAnimTestSuite ();
};
LeoAnimTestSuite::LeoAnimTestSuite ()
: TestSuite ("leo-anim", EXAMPLE)
{
// TestDuration for TestCase can be QUICK, EXTENSIVE or TAKES_FOREVER
AddTestCase (new LeoAnimTestCase1, TestCase::EXTENSIVE);
}
// Do not forget to allocate an instance of this TestSuite
static LeoAnimTestSuite leoAnimTestSuite;