From 8f515dcc031711b0d37ab9b0dffd165835c8dc91 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@yandex.ru>
Date: Sun, 26 Jul 2015 19:44:30 +0300
Subject: [PATCH] Add failing PaddingAtEnd test case

---
 src/network/test/packet-test-suite.cc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/network/test/packet-test-suite.cc b/src/network/test/packet-test-suite.cc
index e7b4b2392..537e8d55f 100644
--- a/src/network/test/packet-test-suite.cc
+++ b/src/network/test/packet-test-suite.cc
@@ -556,6 +556,18 @@ PacketTest::DoRun (void)
     tmp->AddTrailer (ATestTrailer<25> ());
     CHECK (tmp, 1, E (25, 0, 50));
   }
+
+  /* Test AddPaddingAtEnd. */
+  {
+    Ptr<Packet> tmp = Create<Packet> (0);
+    tmp->AddTrailer (ATestTrailer<100> ());
+    tmp->AddByteTag (ATestTag<25> ());
+    CHECK (tmp, 1, E (25, 0, 100));
+    tmp->RemoveAtEnd (50);
+    CHECK (tmp, 1, E (25, 0, 50));
+    tmp->AddPaddingAtEnd (50);
+    CHECK (tmp, 1, E (25, 0, 50));
+  }
 }
 //--------------------------------------
 class PacketTagListTest : public TestCase