satellite-arq-test.cc

Go to the documentation of this file.

/* -*- Mode:C++; c-file-style:"gnu"; indent-tabs-mode:nil; -*- */
/*
 * Copyright (c) 2013 Magister Solutions Ltd
 *
 * 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: Jani Puttonen <jani.puttonen@magister.fi>
 */
 
#include "../model/satellite-generic-stream-encapsulator-arq.h"
#include "../model/satellite-queue.h"
#include "../model/satellite-return-link-encapsulator-arq.h"
#include "../utils/satellite-env-variables.h"
 
#include "ns3/callback.h"
#include "ns3/config.h"
#include "ns3/log.h"
#include "ns3/packet.h"
#include "ns3/ptr.h"
#include "ns3/random-variable-stream.h"
#include "ns3/singleton.h"
#include "ns3/test.h"
 
#include <vector>
 
using namespace ns3;
 
class SatRtnArqTestCase : public TestCase
{
  public:
    SatRtnArqTestCase();
    virtual ~SatRtnArqTestCase();
 
    void TransmitPdus(uint32_t numPackets);
 
    void NotifyTxOpportunity();
 
    void ReceivePdu(Ptr<Packet> p);
 
    bool SendAck(Ptr<SatControlMessage> msg, const Address& dest);
 
    void ReceiveAck(Ptr<SatArqAckMessage> ack);
 
    void Receive(Ptr<Packet> p, Mac48Address source, Mac48Address dest);
 
  private:
    void Initialize();
 
    virtual void DoRun(void);
 
    // Same RLE ARQ handles both transmission and reception
    // operations
    Ptr<SatReturnLinkEncapsulatorArq> m_rle;
 
    // Random variable
    Ptr<UniformRandomVariable> m_unif;
 
    // Addressing
    Mac48Address m_source;
    Mac48Address m_dest;
 
    // Number of created packets
    uint32_t m_numPackets;
 
    // Number of generated time slots. When we run out of Tx opportunities
    // the test is finished.
    uint32_t m_numTxOpportunities;
 
    // Tx opportunities (RTN time slot Bytes)
    uint32_t m_minTxOpportunity;
    uint32_t m_maxTxOpportunity;
 
    // Error ratios
    double m_packetErrorRatio;
    double m_ackErrorRatio;
 
    // Propagation delay of the satellite channel
    // = constant
    Time m_propagationDelay;
 
    // RC index for the RLE
    uint8_t m_rcIndex;
 
    // Error probability threshold for HL packets. If the
    // test results in higher error probability than the threshold
    // the test is failed.
    double m_errorProbabilityThreshold;
 
    // Interval for creating tx opportunities
    Time m_txoInterval;
 
    // Jitter (or addition to static Tx opportunity interval)
    double m_minTimeSlotJitterInMs;
    double m_maxTimeSlotJitterInMs;
 
    uint32_t m_txs;
    uint32_t m_txErrors;
    uint32_t m_acks;
    uint32_t m_ackErrors;
 
    // Sent packet statistics
    std::vector<uint32_t> m_sentPacketSizes;
 
    // Received packet statistics
    std::vector<uint32_t> m_rcvdPacketSizes;
};
 
SatRtnArqTestCase::SatRtnArqTestCase()
    : TestCase("Test RLE ARQ.")
{
}
 
SatRtnArqTestCase::~SatRtnArqTestCase()
{
    if (m_rle)
    {
        m_rle->DoDispose();
        m_rle = nullptr;
    }
}
 
void
SatRtnArqTestCase::Initialize()
{
    m_numPackets = 1000;
    m_numTxOpportunities = 60000;
    m_minTxOpportunity = 38;
    m_maxTxOpportunity = 599;
    m_packetErrorRatio = 0.05;
    m_ackErrorRatio = 0.05;
    m_propagationDelay = MilliSeconds(270);
    m_rcIndex = 0;
    m_errorProbabilityThreshold = 0.01;
    m_txoInterval = MilliSeconds(5);
    m_minTimeSlotJitterInMs = 1;
    m_maxTimeSlotJitterInMs = 10;
    m_txs = 0;
    m_txErrors = 0;
    m_acks = 0;
    m_ackErrors = 0;
 
    m_source = Mac48Address::Allocate();
    m_dest = Mac48Address::Allocate();
 
    // The parameters of RLE ARQ may be reconfigured
    Config::SetDefault("ns3::SatQueue::MaxPackets", UintegerValue(1001));
    Config::SetDefault("ns3::SatReturnLinkEncapsulatorArq::MaxNoOfRetransmissions",
                       UintegerValue(3));
    Config::SetDefault("ns3::SatReturnLinkEncapsulatorArq::WindowSize", UintegerValue(50));
    Config::SetDefault("ns3::SatReturnLinkEncapsulatorArq::RetransmissionTimer",
                       TimeValue(Seconds(0.6)));
    Config::SetDefault("ns3::SatReturnLinkEncapsulatorArq::RxWaitingTime", TimeValue(Seconds(2.3)));
 
    Ptr<SatQueue> queue = CreateObject<SatQueue>(m_rcIndex);
    m_rle =
        CreateObject<SatReturnLinkEncapsulatorArq>(m_source, m_dest, m_source, m_dest, m_rcIndex);
    m_rle->SetQueue(queue);
 
    // Create a receive callback to Receive method of this class.
    m_rle->SetReceiveCallback(MakeCallback(&SatRtnArqTestCase::Receive, this));
 
    // Create ACK sending callback
    m_rle->SetCtrlMsgCallback(MakeCallback(&SatRtnArqTestCase::SendAck, this));
 
    // Random variable for sent packet sizes and tx opportunities
    m_unif = CreateObject<UniformRandomVariable>();
}
 
void
SatRtnArqTestCase::DoRun(void)
{
    // Set simulation output details
    Singleton<SatEnvVariables>::Get()->DoInitialize();
    Singleton<SatEnvVariables>::Get()->SetOutputVariables("test-sat-arq", "rtn", true);
 
    Initialize();
 
    // Enque packets to RLE
    TransmitPdus(m_numPackets);
 
    // Schedule the first TxO
    Simulator::Schedule(Seconds(0.1), &SatRtnArqTestCase::NotifyTxOpportunity, this);
 
    Simulator::Run();
 
    // Calculate HL error probability
    double errorProb = 1.0 - (m_rcvdPacketSizes.size() / (double)m_sentPacketSizes.size());
    NS_TEST_ASSERT_MSG_LT(errorProb,
                          m_errorProbabilityThreshold,
                          "HL packet error probability is higher than threshold!");
 
    // std::cout << "RTN: Sent packets: " << m_sentPacketSizes.size () << " received packets: " <<
    // m_rcvdPacketSizes.size () << std::endl; std::cout << "Tx: " << m_txs << " txErrors: " <<
    // m_txErrors << " Acks: " << m_acks << " ackErrors: " << m_ackErrors << std::endl;
 
    Simulator::Destroy();
 
    Singleton<SatEnvVariables>::Get()->DoDispose();
}
 
void
SatRtnArqTestCase::TransmitPdus(uint32_t numPackets)
{
    // Create packets and push them to RLE
    for (uint32_t i = 0; i < numPackets; ++i)
    {
        uint32_t packetSize = m_unif->GetInteger(3, 500);
        Ptr<Packet> packet = Create<Packet>(packetSize);
        m_sentPacketSizes.push_back(packetSize);
        m_rle->EnquePdu(packet, m_dest);
    }
}
 
void
SatRtnArqTestCase::NotifyTxOpportunity()
{
    uint32_t nextMinTxO(0);
    uint32_t bytesLeft(1);
 
    uint32_t bytes = m_unif->GetInteger(m_minTxOpportunity, m_maxTxOpportunity);
    Ptr<Packet> p = m_rle->NotifyTxOpportunity(bytes, bytesLeft, nextMinTxO);
 
    // If packet received
    if (p)
    {
        m_txs++;
 
        // Packet received after propagation delay
        if (m_packetErrorRatio < m_unif->GetValue(0.0, 1.0))
        {
            // Schedule packet receive
            Simulator::Schedule(m_propagationDelay, &SatRtnArqTestCase::ReceivePdu, this, p);
        }
        // Transmission error for packet
        else
        {
            m_txErrors++;
        }
    }
 
    if (m_numTxOpportunities > 0)
    {
        // Schedule next TxO
        Time nextTxOTime = m_txoInterval + MilliSeconds(m_unif->GetValue(m_minTimeSlotJitterInMs,
                                                                         m_maxTimeSlotJitterInMs));
        Simulator::Schedule(nextTxOTime, &SatRtnArqTestCase::NotifyTxOpportunity, this);
    }
 
    // Reduce count
    m_numTxOpportunities--;
}
 
void
SatRtnArqTestCase::ReceivePdu(Ptr<Packet> p)
{
    m_rle->ReceivePdu(p);
}
 
bool
SatRtnArqTestCase::SendAck(Ptr<SatControlMessage> msg, const Address& dest)
{
    m_acks++;
 
    // ACK received after propagation delay
    if (m_ackErrorRatio < m_unif->GetValue(0.0, 1.0))
    {
        Ptr<SatArqAckMessage> ack = DynamicCast<SatArqAckMessage>(msg);
        Simulator::Schedule(m_propagationDelay, &SatRtnArqTestCase::ReceiveAck, this, ack);
    }
    // Transmission error for ACK
    else
    {
        m_ackErrors++;
    }
 
    return true;
}
 
void
SatRtnArqTestCase::ReceiveAck(Ptr<SatArqAckMessage> ack)
{
    m_rle->ReceiveAck(ack);
}
 
void
SatRtnArqTestCase::Receive(Ptr<Packet> p, Mac48Address source, Mac48Address dest)
{
    uint32_t rcvdPacketSize = p->GetSize();
    m_rcvdPacketSizes.push_back(rcvdPacketSize);
 
    // std::cout << "Now: " << Now ().GetSeconds () << " sent: " << m_sentPacketSizes.at
    // (m_rcvdPacketSizes.size ()-1) << " Rcvd: " << rcvdPacketSize << std::endl;
}
 
class SatFwdArqTestCase : public TestCase
{
  public:
    SatFwdArqTestCase();
    virtual ~SatFwdArqTestCase();
 
    void TransmitPdus(uint32_t numPackets);
 
    void NotifyTxOpportunity();
 
    void ReceivePdu(Ptr<Packet> p);
 
    bool SendAck(Ptr<SatControlMessage> msg, const Address& dest);
 
    void ReceiveAck(Ptr<SatArqAckMessage> ack);
 
    void Receive(Ptr<Packet> p, Mac48Address source, Mac48Address dest);
 
  private:
    void Initialize();
 
    virtual void DoRun(void);
 
    // Same GSE ARQ handles both transmission and reception
    // operations
    Ptr<SatGenericStreamEncapsulatorArq> m_gse;
 
    // Random variable
    Ptr<UniformRandomVariable> m_unif;
 
    // Addressing
    Mac48Address m_source;
    Mac48Address m_dest;
 
    // Number of created packets
    uint32_t m_numPackets;
 
    // Short or normal BB frame
    uint32_t m_frameBytes;
 
    // Number of generated time slots. When we run out of Tx opportunities
    // the test is finished.
    uint32_t m_numTxOpportunities;
 
    // Error ratios
    double m_frameErrorRatio;
    double m_ackErrorRatio;
 
    // Propagation delay of the satellite channel
    // = constant
    Time m_propagationDelay;
 
    // Flow index for the GSE
    uint8_t m_flowIndex;
 
    // Error probability threshold for HL packets. If the
    // test results in higher error probability than the threshold
    // the test is failed.
    double m_errorProbabilityThreshold;
 
    // Interval for creating tx opportunities
    Time m_txoInterval;
 
    uint32_t m_txs;
    uint32_t m_txErrors;
    uint32_t m_acks;
    uint32_t m_ackErrors;
 
    // Sent packet statistics
    std::vector<uint32_t> m_sentPacketSizes;
 
    // Received packet statistics
    std::vector<uint32_t> m_rcvdPacketSizes;
};
 
SatFwdArqTestCase::SatFwdArqTestCase()
    : TestCase("Test GSE ARQ.")
{
}
 
SatFwdArqTestCase::~SatFwdArqTestCase()
{
    if (m_gse)
    {
        m_gse->DoDispose();
        m_gse = nullptr;
    }
}
 
void
SatFwdArqTestCase::Initialize()
{
    m_numPackets = 1000;
    m_frameBytes = 64800 / 8;
    m_numTxOpportunities = 60000;
    m_frameErrorRatio = 0.05;
    m_ackErrorRatio = 0.05;
    m_propagationDelay = MilliSeconds(270);
    m_flowIndex = 0;
    m_errorProbabilityThreshold = 0.01;
    m_txoInterval = MilliSeconds(1);
    m_txs = 0;
    m_txErrors = 0;
    m_acks = 0;
    m_ackErrors = 0;
 
    m_source = Mac48Address::Allocate();
    m_dest = Mac48Address::Allocate();
 
    // The parameters of RLE ARQ may be reconfigured
    Config::SetDefault("ns3::SatQueue::MaxPackets", UintegerValue(1001));
    Config::SetDefault("ns3::SatGenericStreamEncapsulatorArq::MaxNoOfRetransmissions",
                       UintegerValue(3));
    Config::SetDefault("ns3::SatGenericStreamEncapsulatorArq::WindowSize", UintegerValue(50));
    Config::SetDefault("ns3::SatGenericStreamEncapsulatorArq::RetransmissionTimer",
                       TimeValue(Seconds(0.6)));
    Config::SetDefault("ns3::SatGenericStreamEncapsulatorArq::RxWaitingTime",
                       TimeValue(Seconds(2.3)));
 
    Ptr<SatQueue> queue = CreateObject<SatQueue>(m_flowIndex);
    m_gse = CreateObject<SatGenericStreamEncapsulatorArq>(m_source,
                                                          m_dest,
                                                          m_source,
                                                          m_dest,
                                                          m_flowIndex);
    m_gse->SetQueue(queue);
 
    // Create a receive callback to Receive method of this class.
    m_gse->SetReceiveCallback(MakeCallback(&SatFwdArqTestCase::Receive, this));
 
    // Create ACK sending callback
    m_gse->SetCtrlMsgCallback(MakeCallback(&SatFwdArqTestCase::SendAck, this));
 
    // Random variable for sent packet sizes and tx opportunities
    m_unif = CreateObject<UniformRandomVariable>();
}
 
void
SatFwdArqTestCase::DoRun(void)
{
    // Set simulation output details
    Singleton<SatEnvVariables>::Get()->DoInitialize();
    Singleton<SatEnvVariables>::Get()->SetOutputVariables("test-sat-arq", "fwd", true);
 
    Initialize();
 
    // Enque packets to RLE
    TransmitPdus(m_numPackets);
 
    // Schedule the first TxO
    Simulator::Schedule(Seconds(0.1), &SatFwdArqTestCase::NotifyTxOpportunity, this);
 
    Simulator::Run();
 
    // Calculate HL error probability
    double errorProb = 1.0 - (m_rcvdPacketSizes.size() / (double)m_sentPacketSizes.size());
 
    // std::cout << "FWD: Sent packets: " << m_sentPacketSizes.size () << " received packets: " <<
    // m_rcvdPacketSizes.size () << std::endl; std::cout << "Tx: " << m_txs << " txErrors: " <<
    // m_txErrors << " Acks: " << m_acks << " ackErrors: " << m_ackErrors << std::endl;
 
    NS_TEST_ASSERT_MSG_LT(errorProb,
                          m_errorProbabilityThreshold,
                          "HL packet error probability is higher than threshold!");
 
    Simulator::Destroy();
 
    Singleton<SatEnvVariables>::Get()->DoDispose();
}
 
void
SatFwdArqTestCase::TransmitPdus(uint32_t numPackets)
{
    // Create packets and push them to RLE
    for (uint32_t i = 0; i < numPackets; ++i)
    {
        uint32_t packetSize = m_unif->GetInteger(3, 500);
        Ptr<Packet> packet = Create<Packet>(packetSize);
        m_sentPacketSizes.push_back(packetSize);
        m_gse->EnquePdu(packet, m_dest);
    }
}
 
void
SatFwdArqTestCase::NotifyTxOpportunity()
{
    uint32_t nextMinTxO(0);
 
    // BB frame load
    uint32_t frameBytes = m_frameBytes;
    uint32_t bytesLeft = 1;
 
    std::vector<Ptr<Packet>> bbFrame;
 
    while (bytesLeft > 0)
    {
        Ptr<Packet> p = m_gse->NotifyTxOpportunity(frameBytes, bytesLeft, nextMinTxO);
        if (p)
        {
            bbFrame.push_back(p);
            frameBytes -= p->GetSize();
        }
        // No PDUs anymore
        else
        {
            break;
        }
    }
 
    // If packet received
    if (!bbFrame.empty())
    {
        m_txs += bbFrame.size();
 
        // Packet received after propagation delay
        if (m_frameErrorRatio < m_unif->GetValue(0.0, 1.0))
        {
            for (std::vector<Ptr<Packet>>::iterator it = bbFrame.begin(); it != bbFrame.end(); ++it)
            {
                // Schedule packet receive
                Simulator::Schedule(m_propagationDelay, &SatFwdArqTestCase::ReceivePdu, this, *it);
            }
        }
        // Transmission error for packet
        else
        {
            m_txErrors++;
        }
    }
 
    if (m_numTxOpportunities > 0)
    {
        // Schedule next TxO
        Simulator::Schedule(m_txoInterval, &SatFwdArqTestCase::NotifyTxOpportunity, this);
    }
 
    // Reduce count
    m_numTxOpportunities--;
}
 
void
SatFwdArqTestCase::ReceivePdu(Ptr<Packet> p)
{
    m_gse->ReceivePdu(p);
}
 
bool
SatFwdArqTestCase::SendAck(Ptr<SatControlMessage> msg, const Address& dest)
{
    m_acks++;
 
    // ACK received after propagation delay
    if (m_ackErrorRatio < m_unif->GetValue(0.0, 1.0))
    {
        Ptr<SatArqAckMessage> ack = DynamicCast<SatArqAckMessage>(msg);
        Simulator::Schedule(m_propagationDelay, &SatFwdArqTestCase::ReceiveAck, this, ack);
    }
    // Transmission error for ACK
    else
    {
        m_ackErrors++;
    }
 
    return true;
}
 
void
SatFwdArqTestCase::ReceiveAck(Ptr<SatArqAckMessage> ack)
{
    m_gse->ReceiveAck(ack);
}
 
void
SatFwdArqTestCase::Receive(Ptr<Packet> p, Mac48Address source, Mac48Address dest)
{
    uint32_t rcvdPacketSize = p->GetSize();
    m_rcvdPacketSizes.push_back(rcvdPacketSize);
 
    // std::cout << "Now: " << Now ().GetSeconds () << " sent: " << m_sentPacketSizes.at
    // (m_rcvdPacketSizes.size ()-1) << " Rcvd: " << rcvdPacketSize << std::endl;
}
 
class SatArqTestSuite : public TestSuite
{
  public:
    SatArqTestSuite();
};
 
SatArqTestSuite::SatArqTestSuite()
    : TestSuite("sat-arq-test", Type::UNIT)
{
    AddTestCase(new SatRtnArqTestCase, TestCase::Duration::QUICK);
    AddTestCase(new SatFwdArqTestCase, TestCase::Duration::QUICK);
}
 
// Do allocate an instance of this TestSuite
static SatArqTestSuite satArqTestSuite;