TAO/orbsvcs/tests/Bug_2615_Regression/client.cpp

   1 #include "TestS.h"
   2 #include "ace/Get_Opt.h"
   3 // Ensure that the PI library is linked in when building statically
   4 #include "tao/PI/PI.h"
   5 #include "orbsvcs/FaultTolerance/FT_ClientService_Activate.h"
   6 #include "Hello.h"
   7
   8
   9 const ACE_TCHAR *ior = ACE_TEXT("file://ior.ior");
  10 const ACE_TCHAR *iogr = ACE_TEXT("file://iogr.ior");
  11
  12 int
  13 parse_args (int argc, ACE_TCHAR *argv[])
  14 {
  15   ACE_Get_Opt get_opts (argc, argv, ACE_TEXT("k:l:"));
  16   int c;
  17
  18   while ((c = get_opts ()) != -1)
  19     switch (c)
  20       {
  21       case 'k':
  22         ior = get_opts.opt_arg ();
  23         break;
  24       case 'l':
  25         iogr = get_opts.opt_arg ();
  26         break;
  27       case '?':
  28       default:
  29         ACE_ERROR_RETURN ((LM_ERROR,
  30                            "usage:  %s "
  31                            "-k <ior> "
  32                            "-l <iogr> "
  33                            "\n",
  34                            argv [0]),
  35                           -1);
  36       }
  37   // Indicates successful parsing of the command line
  38   return 0;
  39 }
  40
  41 int
  42 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
  43 {
  44   CORBA::Boolean result = 0;
  45   try
  46     {
  47       CORBA::ORB_var orb =
  48         CORBA::ORB_init (argc, argv);
  49
  50       if (parse_args (argc, argv) != 0)
  51         return 1;
  52
  53       // First perform the test with an IOR
  54       CORBA::Object_var tmp =
  55         orb->string_to_object(ior);
  56
  57       Test::Hello_var hello =
  58         Test::Hello::_narrow(tmp.in ());
  59
  60       if (CORBA::is_nil (hello.in ()))
  61         {
  62           ACE_ERROR_RETURN ((LM_DEBUG,
  63                              "Test failed - Not regression - Unexpected Nil Test::Hello reference <%s>\n",
  64                              ior),
  65                             1);
  66         }
  67
  68       // Check this isn't generating exceptions for any other reason
  69       hello->ping ();
  70
  71       if (hello->has_ft_request_service_context ())
  72         {
  73           ACE_DEBUG ((LM_ERROR, "ERROR - REGRESSION - Request made on a plain IOR has a FT_REQUEST service context.\n" ));
  74           result = 1;
  75         }
  76       else
  77         {
  78           ACE_DEBUG ((LM_DEBUG, "Request made on a plain IOR has no FT_REQUEST service context. This is OK.\n" ));
  79         }
  80
  81       // Now repeat the test (for the converse result) with an IOGR
  82       tmp =
  83         orb->string_to_object(iogr);
  84
  85       hello =
  86         Test::Hello::_narrow(tmp.in ());
  87
  88       if (CORBA::is_nil (hello.in ()))
  89         {
  90           ACE_ERROR_RETURN ((LM_DEBUG,
  91                              "Test failed - Not regression - Unexpected Nil Test::Hello reference <%s>\n",
  92                              iogr),
  93                             1);
  94         }
  95
  96       // Check this isn't generating transients for any other reason
  97       hello->ping ();
  98
  99       if (! hello->has_ft_request_service_context ())
 100         {
 101           ACE_DEBUG ((LM_ERROR, "ERROR - REGRESSION - Request made on an IOGR has no FT_REQUEST service context.\n" ));
 102           result = 1;
 103         }
 104       else
 105         {
 106           ACE_DEBUG ((LM_DEBUG, "Request made on an IOGR has a FT_REQUEST service context. This is OK.\n" ));
 107         }
 108
 109       hello->shutdown ();
 110
 111       orb->destroy ();
 112     }
 113   catch (const CORBA::Exception& ex)
 114     {
 115       ex._tao_print_exception (
 116         "Test failed (Not regression) because unexpected exception caught:");
 117       return 1;
 118     }
 119
 120   if (result)
 121     {
 122       ACE_DEBUG ((LM_ERROR, "Error: REGRESSION identified!!!\n"));
 123     }
 124   else
 125     {
 126       ACE_DEBUG ((LM_DEBUG, "Test passed !!!\n"));
 127     }
 128   return result;
 129 }