TAO/orbsvcs/tests/Bug_2137_Regression/client.cpp

   1 // -*- C++ -*-
   2 #include "ace/Get_Opt.h"
   3 #include "tao/corba.h"
   4 // Ensure that the PI library is linked in when building statically
   5 #include "tao/PI/PI.h"
   6 #include "orbsvcs/FaultTolerance/FT_ClientService_Activate.h"
   7
   8 CORBA::ORB_var orb = CORBA::ORB::_nil ();
   9
  10 int
  11 parse_args (int argc, ACE_TCHAR *argv[])
  12 {
  13   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT(""));
  14   int c;
  15
  16   while ((c = get_opts ()) != -1)
  17     switch (c)
  18       {
  19       case '?':
  20       default:
  21         ACE_ERROR_RETURN ((LM_ERROR,
  22                            "usage:  %s "
  23                            "\n",
  24                            argv [0]),
  25                           -1);
  26       }
  27   // Indicates successful parsing of the command line
  28   return 0;
  29 }
  30
  31 // Returns false if calling is_equivalent in both directions on the two supplied
  32 // IORs does not produce expected result.
  33 CORBA::Boolean
  34 check_is_equivalent (const char* ior1, const char * ior2, CORBA::Boolean expected_result)
  35 {
  36   CORBA::Boolean result = 1;
  37   try
  38     {
  39       CORBA::Object_var object1 =
  40         orb->string_to_object(ior1);
  41
  42       CORBA::Object_var object2 =
  43         orb->string_to_object (ior2);
  44
  45       const char* expected_result_string = (expected_result ? "true" : "false");
  46
  47       if ((object1->_is_equivalent (object2.in ())) != expected_result)
  48         {
  49           ACE_DEBUG ((LM_ERROR, "Error: Result of <%s>->_is_equivalent (<%s>) is not %s when it should be...\n",
  50                                 ior1, ior2, expected_result_string));
  51           result = 0;
  52         }
  53
  54       if ((object2->_is_equivalent (object1.in ())) != expected_result)
  55         {
  56           ACE_DEBUG ((LM_ERROR, "Error: Result of <%s>->_is_equivalent (<%s>) is not %s when it should be...\n",
  57                                 ior2, ior1, expected_result_string));
  58           result = 0;
  59         }
  60     }
  61   catch (const CORBA::Exception& ex)
  62     {
  63       ACE_DEBUG ((LM_ERROR, "Vastly unexpected exception comparing %s and %s:\n", ior1, ior2));
  64       ex._tao_print_exception ("Exception:");
  65       result = 0;
  66     }
  67   return result;
  68 }
  69
  70 int
  71 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  72 {
  73   CORBA::Boolean result = 0;
  74   try
  75     {
  76       orb =
  77         CORBA::ORB_init (argc, argv);
  78
  79       if (parse_args (argc, argv) != 0)
  80         return 1;
  81
  82       // ep1 is equivalent to no other IORs - it is not an IOGR, and ep2 is a different endpoint.
  83       // The next nine should all be false.
  84       if (! check_is_equivalent ("file://ep1.ior", "file://ep1_d1_g1_v1.ior", 0))
  85         {
  86           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
  87           result = 1;
  88         }
  89
  90       if (! check_is_equivalent ("file://ep1.ior", "file://ep1_d1_g1_v2.ior", 0))
  91         {
  92           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
  93           result = 1;
  94         }
  95
  96       if (! check_is_equivalent ("file://ep1.ior", "file://ep1_d1_g2_v1.ior", 0))
  97         {
  98           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
  99           result = 1;
 100         }
 101
 102       if (! check_is_equivalent ("file://ep1.ior", "file://ep1_d2_g1_v1.ior", 0))
 103         {
 104           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 105           result = 1;
 106         }
 107
 108       if (! check_is_equivalent ("file://ep1.ior", "file://ep2.ior", 0))
 109         {
 110           ACE_DEBUG ((LM_ERROR, "... it should be false because these are IORs with different endpoints.\n\n"));
 111           result = 1;
 112         }
 113
 114       if (! check_is_equivalent ("file://ep1.ior", "file://ep2_d1_g1_v1.ior", 0))
 115         {
 116           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 117           result = 1;
 118         }
 119
 120       if (! check_is_equivalent ("file://ep1.ior", "file://ep2_d1_g1_v2.ior", 0))
 121         {
 122           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 123           result = 1;
 124         }
 125
 126       if (! check_is_equivalent ("file://ep1.ior", "file://ep1_d1_g2_v1.ior", 0))
 127         {
 128           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 129           result = 1;
 130         }
 131
 132       if (! check_is_equivalent ("file://ep1.ior", "file://ep1_d2_g1_v1.ior", 0))
 133         {
 134           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 135           result = 1;
 136         }
 137
 138       if (! check_is_equivalent ("file://ep1_d1_g1_v1.ior", "file://ep1_d1_g1_v2.ior", 1))
 139         {
 140           ACE_DEBUG ((LM_ERROR, "... it should be true because both are IOGRs and the domain and group ids match.\n\n"));
 141           result = 1;
 142         }
 143
 144       if (! check_is_equivalent ("file://ep1_d1_g1_v1.ior", "file://ep1_d1_g2_v1.ior", 0))
 145         {
 146           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 147           result = 1;
 148         }
 149
 150       if (! check_is_equivalent ("file://ep1_d1_g1_v1.ior", "file://ep1_d2_g1_v1.ior", 0))
 151         {
 152           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 153           result = 1;
 154         }
 155
 156       if (! check_is_equivalent ("file://ep1_d1_g1_v1.ior", "file://ep2.ior", 0))
 157         {
 158           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 159           result = 1;
 160         }
 161
 162       if (! check_is_equivalent ("file://ep1_d1_g1_v1.ior", "file://ep2_d1_g1_v1.ior", 1))
 163         {
 164           ACE_DEBUG ((LM_ERROR, "... it should be true because both are IOGRs and the domain and group ids match.\n\n"));
 165           result = 1;
 166         }
 167
 168       if (! check_is_equivalent ("file://ep1_d1_g1_v1.ior", "file://ep2_d1_g1_v2.ior", 1))
 169         {
 170           ACE_DEBUG ((LM_ERROR, "... it should be true because both are IOGRs and the domain and group ids match.\n\n"));
 171           result = 1;
 172         }
 173
 174       if (! check_is_equivalent ("file://ep1_d1_g1_v1.ior", "file://ep2_d1_g2_v1.ior", 0))
 175         {
 176           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 177           result = 1;
 178         }
 179
 180       if (! check_is_equivalent ("file://ep1_d1_g1_v1.ior", "file://ep2_d2_g1_v1.ior", 0))
 181         {
 182           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 183           result = 1;
 184         }
 185
 186       if (! check_is_equivalent ("file://ep1_d1_g1_v2.ior", "file://ep1_d1_g2_v1.ior", 0))
 187         {
 188           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 189           result = 1;
 190         }
 191
 192       if (! check_is_equivalent ("file://ep1_d1_g1_v2.ior", "file://ep1_d2_g1_v1.ior", 0))
 193         {
 194           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 195           result = 1;
 196         }
 197
 198       if (! check_is_equivalent ("file://ep1_d1_g1_v2.ior", "file://ep2.ior", 0))
 199         {
 200           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 201           result = 1;
 202         }
 203
 204       if (! check_is_equivalent ("file://ep1_d1_g1_v2.ior", "file://ep2_d1_g1_v1.ior", 1))
 205         {
 206           ACE_DEBUG ((LM_ERROR, "... it should be true because both are IOGRs and the domain and group ids match.\n\n"));
 207           result = 1;
 208         }
 209
 210       if (! check_is_equivalent ("file://ep1_d1_g1_v2.ior", "file://ep2_d1_g1_v2.ior", 1))
 211         {
 212           ACE_DEBUG ((LM_ERROR, "... it should be true because both are IOGRs and the domain and group ids match.\n\n"));
 213           result = 1;
 214         }
 215
 216       if (! check_is_equivalent ("file://ep1_d1_g1_v2.ior", "file://ep2_d1_g2_v1.ior", 0))
 217         {
 218           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 219           result = 1;
 220         }
 221
 222       if (! check_is_equivalent ("file://ep1_d1_g1_v2.ior", "file://ep2_d2_g1_v1.ior", 0))
 223         {
 224           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 225           result = 1;
 226         }
 227
 228       if (! check_is_equivalent ("file://ep1_d1_g2_v1.ior", "file://ep1_d2_g1_v1.ior", 0))
 229         {
 230           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 231           result = 1;
 232         }
 233
 234       if (! check_is_equivalent ("file://ep1_d1_g2_v1.ior", "file://ep2.ior", 0))
 235         {
 236           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 237           result = 1;
 238         }
 239
 240       if (! check_is_equivalent ("file://ep1_d1_g2_v1.ior", "file://ep2_d1_g1_v1.ior", 0))
 241         {
 242           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 243           result = 1;
 244         }
 245
 246       if (! check_is_equivalent ("file://ep1_d1_g2_v1.ior", "file://ep2_d1_g1_v2.ior", 0))
 247         {
 248           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 249           result = 1;
 250         }
 251
 252       if (! check_is_equivalent ("file://ep1_d1_g2_v1.ior", "file://ep2_d1_g2_v1.ior", 1))
 253         {
 254           ACE_DEBUG ((LM_ERROR, "... it should be true because both are IOGRs and the domain and group ids match.\n\n"));
 255           result = 1;
 256         }
 257
 258       if (! check_is_equivalent ("file://ep1_d1_g2_v1.ior", "file://ep2_d2_g1_v1.ior", 0))
 259         {
 260           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 261           result = 1;
 262         }
 263
 264       if (! check_is_equivalent ("file://ep1_d2_g1_v1.ior", "file://ep2.ior", 0))
 265         {
 266           ACE_DEBUG ((LM_ERROR, "... it should be false because an IOR is never equivalent to an IOGR\n\n"));
 267           result = 1;
 268         }
 269
 270       if (! check_is_equivalent ("file://ep1_d2_g1_v1.ior", "file://ep2_d1_g1_v1.ior", 0))
 271         {
 272           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 273           result = 1;
 274         }
 275
 276       if (! check_is_equivalent ("file://ep1_d2_g1_v1.ior", "file://ep2_d1_g1_v1.ior", 0))
 277         {
 278           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 279           result = 1;
 280         }
 281
 282       if (! check_is_equivalent ("file://ep1_d2_g1_v1.ior", "file://ep2_d1_g1_v1.ior", 0))
 283         {
 284           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 285           result = 1;
 286         }
 287
 288       if (! check_is_equivalent ("file://ep1_d2_g1_v1.ior", "file://ep2_d1_g1_v1.ior", 0))
 289         {
 290           ACE_DEBUG ((LM_ERROR, "... it should be false because both are IOGRs but the domain and group ids don't match.\n\n"));
 291           result = 1;
 292         }
 293
 294       orb->destroy ();
 295     }
 296   catch (const CORBA::Exception& ex)
 297     {
 298       ex._tao_print_exception ("Exception caught:");
 299       return 1;
 300     }
 301
 302   return result;
 303 }