TAO/tests/Multiple/Collocation_Tester.cpp

   1 #include "Collocation_Tester.h"
   2 #include "ace/OS_NS_string.h"
   3
   4 const char *Quote::top = "Ciao";
   5 const char *Quote::left = "Hola";
   6 const char *Quote::right = "Hello";
   7 const char *Quote::bottom = "Previet";
   8
   9 Collocation_Tester::Collocation_Tester (CORBA::Object_ptr object)
  10 {
  11   this->object_ = CORBA::Object::_duplicate (object);
  12 }
  13
  14 Collocation_Tester::~Collocation_Tester ()
  15 {
  16   // No-Op.
  17 }
  18
  19 int
  20 Collocation_Tester::match_answer (const char *actual_answer,
  21                                   const char *right_answer,
  22                                   const char *method_name)
  23 {
  24   if (ACE_OS::strcmp (actual_answer, right_answer))
  25     {
  26       ACE_ERROR ((LM_DEBUG,
  27                   ACE_TEXT ("Call to <%C> returned the wrong value!\n"), method_name));
  28       return 1;
  29     }
  30   else
  31     {
  32       ACE_DEBUG ((LM_DEBUG,
  33                   ACE_TEXT ("Call to <%C> returned with success: %C\n"), method_name, actual_answer));
  34       return 0;
  35     }
  36 }
  37
  38 int
  39 Collocation_Tester::test_top ()
  40 {
  41   ACE_DEBUG ((LM_DEBUG,
  42               ACE_TEXT("\n------------------------<TOP>-------------------------------\n")));
  43   int failure = 0;
  44   int call_num = 1;
  45   Multiple::Top_var top =
  46     Multiple::Top::_narrow (this->object_.in ());
  47
  48   if (CORBA::is_nil (top.in ()))
  49     {
  50       ACE_ERROR ((LM_DEBUG,
  51                   ACE_TEXT ("Unable to Narrow to Multiple::Top\n")));
  52       return 1;
  53     }
  54
  55   ACE_DEBUG ((LM_DEBUG,
  56               ACE_TEXT ("\n\nCalling all method supported by the Interface Top\n\n")));
  57
  58   CORBA::String_var msg = top->top_quote ();
  59
  60   failure += this->match_answer (Quote::top, msg.in (), "top_quote");
  61
  62   if (failure)
  63     ACE_ERROR ((LM_DEBUG,
  64                 ACE_TEXT ("The test had %d/%d Failure\n"), failure, call_num));
  65
  66   ACE_DEBUG ((LM_DEBUG,
  67               ACE_TEXT("\n------------------------<TOP>-------------------------------\n")));
  68
  69   return failure;
  70 }
  71
  72 int
  73 Collocation_Tester::test_right ()
  74 {
  75   ACE_DEBUG ((LM_DEBUG,
  76               ACE_TEXT("\n------------------------<RIGHT>-------------------------------\n")));
  77   int failure = 0;
  78   int call_num = 2;
  79   Multiple::Right_var right =
  80     Multiple::Right::_narrow (this->object_.in ());
  81
  82   if (CORBA::is_nil (right.in ()))
  83     {
  84       ACE_ERROR ((LM_DEBUG,
  85                   ACE_TEXT ("Unable to Narrow to Multiple::Right\n")));
  86       return 1;
  87     }
  88
  89   ACE_DEBUG ((LM_DEBUG,
  90               ACE_TEXT ("\n\nCalling all method supported by the Interface Right\n\n")));
  91
  92   CORBA::String_var msg = right->top_quote ();
  93
  94   failure += this->match_answer (Quote::top, msg.in (), "top_quote");
  95
  96   msg = right->right_quote ();
  97
  98   failure += this->match_answer (Quote::right, msg.in (), "right_quote");
  99
 100   if (failure)
 101     ACE_ERROR ((LM_DEBUG,
 102                 ACE_TEXT ("The test had %d/%d Failure"), failure, call_num));
 103
 104   ACE_DEBUG ((LM_DEBUG,
 105               ACE_TEXT("\n------------------------<RIGHT>-------------------------------\n")));
 106
 107   return failure;
 108 }
 109
 110
 111 int
 112 Collocation_Tester::test_left ()
 113 {
 114   ACE_DEBUG ((LM_DEBUG,
 115               ACE_TEXT("\n------------------------<LEFT>-------------------------------\n")));
 116   int failure = 0;
 117   int call_num = 2;
 118
 119   Multiple::Left_var left =
 120     Multiple::Left::_narrow (this->object_.in ());
 121
 122   if (CORBA::is_nil (left.in ()))
 123     {
 124       ACE_ERROR ((LM_DEBUG,
 125                   ACE_TEXT ("Unable to Narrow to Multiple::Right\n")));
 126       return 1;
 127     }
 128
 129   ACE_DEBUG ((LM_DEBUG,
 130               ACE_TEXT ("\n\nCalling all method supported by the Interface Left\n\n")));
 131
 132   CORBA::String_var msg = left->top_quote ();
 133
 134   failure += this->match_answer (Quote::top, msg.in (), "top_quote");
 135
 136   msg = left->left_quote ();
 137
 138   failure += this->match_answer (Quote::left, msg.in (), "left_quote");
 139
 140   if (failure)
 141     ACE_ERROR ((LM_DEBUG,
 142                 ACE_TEXT ("The test had %d/%d Failure"), failure, call_num));
 143
 144   ACE_DEBUG ((LM_DEBUG,
 145               ACE_TEXT("\n------------------------<LEFT>-------------------------------\n")));
 146
 147   return failure;
 148 }
 149
 150
 151 int
 152 Collocation_Tester::test_bottom ()
 153 {
 154   ACE_DEBUG ((LM_DEBUG,
 155               ACE_TEXT("\n-----------------------<BOTTOM>-------------------------------\n")));
 156   int failure = 0;
 157   int call_num = 4;
 158
 159   Multiple::Bottom_var bottom =
 160     Multiple::Bottom::_narrow (this->object_.in ());
 161
 162   if (CORBA::is_nil (bottom.in ()))
 163     {
 164       ACE_ERROR ((LM_DEBUG,
 165                   ACE_TEXT ("Unable to Narrow to Multiple::Right\n")));
 166       return 1;
 167     }
 168
 169   ACE_DEBUG ((LM_DEBUG,
 170               ACE_TEXT ("\n\nCalling all method supported by the Interface Bottom\n\n")));
 171
 172   CORBA::String_var msg = bottom->top_quote ();
 173
 174   failure += this->match_answer (Quote::top, msg.in (), "top_quote");
 175
 176   msg = bottom->left_quote ();
 177
 178   failure += this->match_answer (Quote::left, msg.in (), "left_quote");
 179
 180   msg = bottom->right_quote ();
 181
 182   failure += this->match_answer (Quote::right, msg.in (), "right_quote");
 183
 184   msg = bottom->bottom_quote ();
 185
 186   failure += this->match_answer (Quote::bottom, msg.in (), "bottom_quote");
 187
 188   if (failure)
 189     ACE_ERROR ((LM_DEBUG,
 190                 ACE_TEXT ("The test had %d/%d Failure"), failure, call_num));
 191
 192   ACE_DEBUG ((LM_DEBUG,
 193               ACE_TEXT("\n-----------------------<BOTTOM>-------------------------------\n")));
 194
 195   return failure;
 196 }
 197
 198 void
 199 Collocation_Tester::shutdown ()
 200 {
 201   Multiple::Top_var top =
 202     Multiple::Top::_narrow (this->object_.in ());
 203
 204   if (CORBA::is_nil (top.in ()))
 205     {
 206       ACE_ERROR ((LM_DEBUG,
 207                   ACE_TEXT ("Unable to Narrow to Multiple::Top\n")));
 208       return;
 209     }
 210
 211   ACE_DEBUG ((LM_DEBUG,
 212               ACE_TEXT ("\n\nCalling ShutDown on Top.\n\n")));
 213
 214   top->shutdown ();
 215 }
 216
 217 void
 218 Collocation_Tester::run ()
 219 {
 220   int failure_num =   this->test_top ();
 221
 222   failure_num += this->test_left ();
 223
 224   failure_num += this->test_right ();
 225
 226   failure_num += this->test_bottom ();
 227
 228   if (failure_num)
 229     ACE_ERROR ((LM_DEBUG,
 230                 ACE_TEXT ("\n\nThe Test failed in %d cases."), failure_num));
 231   else
 232     ACE_DEBUG ((LM_DEBUG,
 233                 ACE_TEXT ("\n\nThe Test Completed Successfully. Congratulations! ")));
 234
 235   this->shutdown ();
 236 }