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
36using namespace ns3;
37
38NS_LOG_COMPONENT_DEFINE ("lr-wpan-error-model-test");
39
47{
48public:
51
56 uint32_t GetReceived (void) const
57 {
58 return m_received;
59 }
60
61private:
62 virtual void DoRun (void);
63
71};
72
80{
81public:
84
85private:
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
99void
101{
102 m_received++;
103}
104
105void
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
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
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
177void
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{
209public:
211};
212
214 : TestSuite ("lr-wpan-error-model", UNIT)
215{
216 AddTestCase (new LrWpanErrorModelTestCase, TestCase::QUICK);
217 AddTestCase (new LrWpanErrorDistanceTestCase, TestCase::QUICK);
218}
219
void Run(ObjectFactory &factory, uint32_t pop, uint32_t total, uint32_t runs, Ptr< RandomVariableStream > eventStream, bool calRev)
Perform the runs for a single scheduler type.
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.
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:156
#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:1245
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:83
MCPS-DATA.indication params.
Definition: lr-wpan-mac.h:364
MCPS-DATA.request params.
Definition: lr-wpan-mac.h:337
LrWpanAddressMode m_srcAddrMode
Source address mode.
Definition: lr-wpan-mac.h:338
LrWpanAddressMode m_dstAddrMode
Destination address mode.
Definition: lr-wpan-mac.h:339
uint16_t m_dstPanId
Destination PAN identifier.
Definition: lr-wpan-mac.h:340
Mac16Address m_dstAddr
Destination address.
Definition: lr-wpan-mac.h:341
uint8_t m_msduHandle
MSDU handle.
Definition: lr-wpan-mac.h:343
uint8_t m_txOptions
Tx Options (bitfield)
Definition: lr-wpan-mac.h:344