Add failing PaddingAtEnd test case
authorAlexander Krotov <ilabdsf@yandex.ru>
Sun, 26 Jul 2015 19:44:30 +0300
changeset 11549 d11670db4d38
parent 11548 86d5cd8e3b34
child 11550 7bcb27873aec
Add failing PaddingAtEnd test case
src/network/test/packet-test-suite.cc
--- a/src/network/test/packet-test-suite.cc	Sun Jul 26 19:44:29 2015 +0300
+++ b/src/network/test/packet-test-suite.cc	Sun Jul 26 19:44:30 2015 +0300
@@ -556,6 +556,18 @@
     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