A Discrete-Event Network Simulator
API
lr-wpan-error-model-test.cc
Go to the documentation of this file.
1 /* -*- Mode: C++; c-file-style: "gnu"; indent-tabs-mode:nil; -*- */
2 /*
3  * Copyright (c) 2011 The Boeing Company
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License version 2 as
7  * published by the Free Software Foundation;
8  *
9  * This program is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12  * GNU General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software
16  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17  *
18  * Author: Tom Henderson <thomas.r.henderson@boeing.com>
19  */
20 #include <ns3/test.h>
21 #include <ns3/log.h>
22 #include <ns3/callback.h>
23 #include <ns3/packet.h>
24 #include <ns3/simulator.h>
25 #include <ns3/lr-wpan-error-model.h>
26 #include <ns3/propagation-loss-model.h>
27 #include <ns3/lr-wpan-net-device.h>
28 #include <ns3/lr-wpan-mac.h>
29 #include <ns3/node.h>
30 #include <ns3/net-device.h>
31 #include <ns3/single-model-spectrum-channel.h>
32 #include <ns3/mac16-address.h>
33 #include <ns3/constant-position-mobility-model.h>
34 #include "ns3/rng-seed-manager.h"
35 
36 using namespace ns3;
37 
38 NS_LOG_COMPONENT_DEFINE ("lr-wpan-error-model-test");
39 
47 {
48 public:
50  virtual ~LrWpanErrorDistanceTestCase ();
51 
56  uint32_t GetReceived (void) const
57  {
58  return m_received;
59  }
60 
61 private:
62  virtual void DoRun (void);
63 
70  uint32_t m_received;
71 };
72 
80 {
81 public:
83  virtual ~LrWpanErrorModelTestCase ();
84 
85 private:
86  virtual void DoRun (void);
87 };
88 
90  : TestCase ("Test the 802.15.4 error model vs distance"),
91  m_received (0)
92 {
93 }
94 
96 {
97 }
98 
99 void
101 {
102  m_received++;
103 }
104 
105 void
107 {
108  // Set the random seed and run number for this test
109  RngSeedManager::SetSeed (1);
110  RngSeedManager::SetRun (6);
111 
112  Ptr<Node> n0 = CreateObject <Node> ();
113  Ptr<Node> n1 = CreateObject <Node> ();
114  Ptr<LrWpanNetDevice> dev0 = CreateObject<LrWpanNetDevice> ();
115  Ptr<LrWpanNetDevice> dev1 = CreateObject<LrWpanNetDevice> ();
116 
117  // Make random variable stream assignment deterministic
118  dev0->AssignStreams (0);
119  dev1->AssignStreams (10);
120 
121  dev0->SetAddress (Mac16Address ("00:01"));
122  dev1->SetAddress (Mac16Address ("00:02"));
123  Ptr<SingleModelSpectrumChannel> channel = CreateObject<SingleModelSpectrumChannel> ();
124  Ptr<LogDistancePropagationLossModel> model = CreateObject<LogDistancePropagationLossModel> ();
125  channel->AddPropagationLossModel (model);
126  dev0->SetChannel (channel);
127  dev1->SetChannel (channel);
128  n0->AddDevice (dev0);
129  n1->AddDevice (dev1);
130  Ptr<ConstantPositionMobilityModel> mob0 = CreateObject<ConstantPositionMobilityModel> ();
131  dev0->GetPhy ()->SetMobility (mob0);
132  Ptr<ConstantPositionMobilityModel> mob1 = CreateObject<ConstantPositionMobilityModel> ();
133  dev1->GetPhy ()->SetMobility (mob1);
134 
137  dev1->GetMac ()->SetMcpsDataIndicationCallback (cb0);
138 
139  McpsDataRequestParams params;
140  params.m_srcAddrMode = SHORT_ADDR;
141  params.m_dstAddrMode = SHORT_ADDR;
142  params.m_dstPanId = 0;
143  params.m_dstAddr = Mac16Address ("00:02");
144  params.m_msduHandle = 0;
145  params.m_txOptions = 0;
146 
147  Ptr<Packet> p;
148  mob0->SetPosition (Vector (0,0,0));
149  mob1->SetPosition (Vector (100,0,0));
150  for (int i = 0; i < 1000; i++)
151  {
152  p = Create<Packet> (20);
153  Simulator::Schedule (Seconds (i),
154  &LrWpanMac::McpsDataRequest,
155  dev0->GetMac (), params, p);
156  }
157 
158  Simulator::Run ();
159 
160  // Test that we received 977 packets out of 1000, at distance of 100 m
161  // with default power of 0
162  NS_TEST_ASSERT_MSG_EQ (GetReceived (), 977, "Model fails");
163 
164  Simulator::Destroy ();
165 }
166 
167 // ==============================================================================
169  : TestCase ("Test the 802.15.4 error model")
170 {
171 }
172 
174 {
175 }
176 
177 void
179 {
180 
181  Ptr<LrWpanErrorModel> model = CreateObject<LrWpanErrorModel> ();
182 
183  // Test a few values
184  double snr = 5;
185  double ber = 1.0 - model->GetChunkSuccessRate (pow (10.0, snr / 10.0), 1);
186  NS_TEST_ASSERT_MSG_EQ_TOL (ber, 7.38e-14, 0.01e-14, "Model fails for SNR = " << snr);
187  snr = 2;
188  ber = 1.0 - model->GetChunkSuccessRate (pow (10.0, snr / 10.0), 1);
189  NS_TEST_ASSERT_MSG_EQ_TOL (ber, 5.13e-7, 0.01e-7, "Model fails for SNR = " << snr);
190  snr = -1;
191  ber = 1.0 - model->GetChunkSuccessRate (pow (10.0, snr / 10.0), 1);
192  NS_TEST_ASSERT_MSG_EQ_TOL (ber, 0.00114, 0.00001, "Model fails for SNR = " << snr);
193  snr = -4;
194  ber = 1.0 - model->GetChunkSuccessRate (pow (10.0, snr / 10.0), 1);
195  NS_TEST_ASSERT_MSG_EQ_TOL (ber, 0.0391, 0.0001, "Model fails for SNR = " << snr);
196  snr = -7;
197  ber = 1.0 - model->GetChunkSuccessRate (pow (10.0, snr / 10.0), 1);
198  NS_TEST_ASSERT_MSG_EQ_TOL (ber, 0.175, 0.001, "Model fails for SNR = " << snr);
199 }
200 
208 {
209 public:
211 };
212 
214  : TestSuite ("lr-wpan-error-model", UNIT)
215 {
216  AddTestCase (new LrWpanErrorModelTestCase, TestCase::QUICK);
217  AddTestCase (new LrWpanErrorDistanceTestCase, TestCase::QUICK);
218 }
219 
LrWpan Error Vs Distance Test.
void Callback(McpsDataIndicationParams params, Ptr< Packet > p)
Function to be called when a packet is received.
virtual void DoRun(void)
Implementation to actually run this TestCase.
uint32_t m_received
The number of received packets.
uint32_t GetReceived(void) const
Get the number of received packets.
LrWpan Error model Test.
virtual void DoRun(void)
Implementation to actually run this TestCase.
LrWpan Error model TestSuite.
Callback template class.
Definition: callback.h:1279
virtual void SetAddress(Address address)
This method indirects to LrWpanMac::SetShortAddress ()
void SetChannel(Ptr< SpectrumChannel > channel)
Set the channel to which the NetDevice, and therefore the PHY, should be attached to.
int64_t AssignStreams(int64_t stream)
Assign a fixed random variable stream number to the random variables used by this model.
Ptr< LrWpanPhy > GetPhy(void) const
Get the PHY used by this NetDevice.
Ptr< LrWpanMac > GetMac(void) const
Get the MAC used by this NetDevice.
This class can contain 16 bit addresses.
Definition: mac16-address.h:42
uint32_t AddDevice(Ptr< NetDevice > device)
Associate a NetDevice to this node.
Definition: node.cc:130
encapsulates test code
Definition: test.h:994
void AddTestCase(TestCase *testCase, TestDuration duration=QUICK)
Add an individual child TestCase to this test suite.
Definition: test.cc:299
A suite of tests to run.
Definition: test.h:1188
#define NS_LOG_COMPONENT_DEFINE(name)
Define a Log component with a specific name.
Definition: log.h:205
@ SHORT_ADDR
Definition: lr-wpan-mac.h:141
#define NS_TEST_ASSERT_MSG_EQ(actual, limit, msg)
Test that an actual and expected (limit) value are equal and report and abort if not.
Definition: test.h:141
#define NS_TEST_ASSERT_MSG_EQ_TOL(actual, limit, tol, msg)
Test that actual and expected (limit) values are equal to plus or minus some tolerance and report and...
Definition: test.h:323
Time Seconds(double value)
Construct a Time in the indicated unit.
Definition: nstime.h:1244
static LrWpanErrorModelTestSuite g_lrWpanErrorModelTestSuite
Static variable for test initialization.
Every class exported by the ns3 library is enclosed in the ns3 namespace.
Callback< R, Ts... > MakeCallback(R(T::*memPtr)(Ts...), OBJ objPtr)
Build Callbacks for class method members which take varying numbers of arguments and potentially retu...
Definition: callback.h:1648
channel
Definition: third.py:92
MCPS-DATA.indication params.
Definition: lr-wpan-mac.h:271
MCPS-DATA.request params.
Definition: lr-wpan-mac.h:237
LrWpanAddressMode m_srcAddrMode
Source address mode.
Definition: lr-wpan-mac.h:246
LrWpanAddressMode m_dstAddrMode
Destination address mode.
Definition: lr-wpan-mac.h:247
uint16_t m_dstPanId
Destination PAN identifier.
Definition: lr-wpan-mac.h:248
Mac16Address m_dstAddr
Destination address.
Definition: lr-wpan-mac.h:249
uint8_t m_msduHandle
MSDU handle.
Definition: lr-wpan-mac.h:251
uint8_t m_txOptions
Tx Options (bitfield)
Definition: lr-wpan-mac.h:252