1 files changed, 84 insertions, 0 deletions
diff --git a/ACE/TAO/tests/Transport_Cache_Manager/Bug_3549_Regression.cpp b/ACE/TAO/tests/Transport_Cache_Manager/Bug_3549_Regression.cpp
new file mode 100644
index 00000000000..ff63da47815
--- /dev/null
+++ b/ACE/TAO/tests/Transport_Cache_Manager/Bug_3549_Regression.cpp
@@ -0,0 +1,84 @@
+// $Id$
+#include "ace/Get_Opt.h"
+#include "ace/Argv_Type_Converter.h"
+#include "ace/SString.h"
+#include "ace/Manual_Event.h"
+
+#include "tao/Transport_Cache_Manager_T.h"
+#include "tao/ORB.h"
+
+class mock_transport;
+class mock_tdi;
+class mock_ps;
+
+static int global_purged_count = 0;
+
+typedef TAO::Transport_Cache_Manager_T<mock_transport, mock_tdi, mock_ps> TCM;
+
+#include "mock_tdi.h"
+#include "mock_transport.h"
+#include "mock_ps.h"
+
+int
+ACE_TMAIN(int argc, ACE_TCHAR *argv[])
+{
+  int result = 0;
+
+  try
+    {
+      // We need an ORB to get an ORB core
+      CORBA::ORB_var orb = CORBA::ORB_init (argc, argv);
+
+      // We create 10 transports and have a max of 10 tran
+
+      size_t const transport_max = 10;
+      int cache_maximum = 10;
+      int purging_percentage = 20;
+      size_t i = 0;
+      mock_transport mytransport[transport_max];
+      mock_tdi mytdi[transport_max];
+      mock_ps* myps = new mock_ps(10);
+      TCM my_cache (purging_percentage, myps, cache_maximum, false, 0);
+
+      // Cache all transports in the cache
+      for (i = 0; i < transport_max; i++)
+        {
+          my_cache.cache_transport (&mytdi[i], &mytransport[i]);
+          mytransport[i].purging_order (i);
+        }
+
+      // Now purge the cache and see which one get removed. Only transport
+      // 0 and 1 should be purged in that order, 0 has the lowest purging
+      // count, 1 has the second lowest value.
+      my_cache.purge ();
+
+      for (i = 2; i < transport_max; i++)
+        {
+          if (mytransport[i].purged_count () != 0)
+            {
+              ACE_ERROR ((LM_ERROR, "ERROR Incorrect purged count %d for transport %d\n", mytransport[i].purged_count(), i));
+              ++result;
+            }
+        }
+ 
+     if (mytransport[0].purged_count () != 1)
+       {
+         ACE_ERROR ((LM_ERROR, "ERROR Incorrect purged count for transport 0: %d\n", mytransport[0].purged_count ()));
+         ++result;
+       }
+
+     if (mytransport[1].purged_count () != 2)
+       {
+         ACE_ERROR ((LM_ERROR, "ERROR Incorrect purged count for transport 1: %d\n", mytransport[1].purged_count ()));
+         ++result;
+       }
+
+      orb->destroy ();
+
+    }
+  catch (const CORBA::Exception&)
+    {
+      // Ignore exceptions..
+    }
+  return result;
+}