TAO/tests/Bug_3630_Regression/server.cpp

   1 #include "tao/ORB.h"
   2 #include "tao/ORB_Core.h"
   3
   4 int
   5 ACE_TMAIN(int argc, ACE_TCHAR *argv[])
   6 {
   7   int result = 0;
   8   int extra_argc = 2;
   9   int second_extra_argc = 2;
  10   int largc = argc;
  11   int second_largc = argc;
  12
  13   try
  14     {
  15       ACE_TCHAR **extra = 0;
  16       ACE_NEW_RETURN (extra, ACE_TCHAR *[extra_argc], -1);
  17       extra[0] = ACE::strnew (ACE_TEXT ("-ORBSvcConf"));
  18       extra[1] = ACE::strnew (ACE_TEXT ("TAO Conf File.conf"));
  19
  20       ACE_TCHAR **largv = new ACE_TCHAR *[largc+extra_argc];
  21       for (int i = 0; i < largc; i++)
  22         largv[i] = argv[i];
  23
  24
  25       for (int i = 0; i < extra_argc; i++)
  26         largv[argc+i] = extra[i];
  27
  28       largc += extra_argc;
  29
  30       CORBA::ORB_var orb = CORBA::ORB_init (largc, largv, "FirstORB");
  31        if(CORBA::is_nil(orb.in ()))
  32        {
  33           ACE_ERROR((LM_ERROR,ACE_TEXT ("Test failed. CORBA::ORB_init returned NIL ORB\n"),1));
  34
  35           for (int i = 0; i < extra_argc; i++)
  36             ACE::strdelete (extra[i]);
  37
  38           delete [] extra;
  39           delete [] largv;
  40
  41           return -1;
  42      }
  43
  44       orb->destroy ();
  45       orb = CORBA::ORB::_nil ();
  46
  47       for (int i = 0; i < extra_argc; i++)
  48         ACE::strdelete (extra[i]);
  49       delete [] extra;
  50       delete [] largv;
  51
  52
  53       ACE_TCHAR **second_extra = 0;
  54       ACE_NEW_RETURN (second_extra, ACE_TCHAR *[second_extra_argc], -1);
  55       second_extra[0] = ACE::strnew (ACE_TEXT ("-ORBSvcConf"));
  56       second_extra[1] = ACE::strnew (ACE_TEXT ("TAO_Conf_File.conf"));
  57       ACE_TCHAR **second_largv = new ACE_TCHAR *[second_largc+second_extra_argc];
  58       for (int i = 0; i < second_largc; i++)
  59         second_largv[i] = argv[i];
  60       for (int i = 0; i < second_extra_argc; i++)
  61         second_largv[second_largc + i] = second_extra[i];
  62
  63       second_largc += second_extra_argc;
  64
  65       CORBA::ORB_var second_orb = CORBA::ORB_init (second_largc, second_largv, "SecondORB");
  66        if(CORBA::is_nil(second_orb.in ()))
  67        {
  68           ACE_ERROR((LM_ERROR,ACE_TEXT ("Test failed. CORBA::ORB_init returned NIL ORB\n"),1));
  69
  70           for (int i = 0; i < extra_argc; i++)
  71             ACE::strdelete (second_extra[i]);
  72
  73           delete [] second_extra;
  74           delete [] second_largv;
  75
  76           return -1;
  77      }
  78
  79       second_orb->destroy ();
  80       second_orb = CORBA::ORB::_nil ();
  81
  82       for (int i2 = 0; i2 < second_extra_argc; i2++)
  83         ACE::strdelete (second_extra[i2]);
  84
  85       delete [] second_extra;
  86       delete [] second_largv;
  87     }
  88   catch (const CORBA::Exception& ex)
  89     {
  90       ex._tao_print_exception ("Exception caught:");
  91     }
  92
  93   if (result == 0)
  94     ACE_DEBUG ((LM_DEBUG,
  95                 ACE_TEXT ("Test passed!\n")));
  96   else
  97     ACE_ERROR ((LM_ERROR,
  98                 ACE_TEXT ("Test failed. Result: %d\n"),
  99                 result));
 100   return result;
 101 }