TAO/utils/nsgroup/run_test.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2      & eval 'exec perl -S $0 $argv:q'
   3      if 0;
   4
   5 # -*- perl -*-
   6
   7 use lib "$ENV{ACE_ROOT}/bin";
   8 use PerlACE::TestTarget;
   9
  10 my $status = 0;
  11 my $debug_level = 0;
  12 my $redirection_enabled = 0;
  13
  14
  15 foreach $i (@ARGV) {
  16     if ($i eq '-debug') {
  17         $debug_level = '10';
  18     }
  19 }
  20
  21 #$ENV{ACE_TEST_VERBOSE} = "1";
  22
  23 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
  24 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
  25
  26 ## The LoadManager needs to register signals with the ORB's reactor (on
  27 ## Windows only) and thus can not use the TP Reactor since it doesn't
  28 ## support that kind of thing.  So, we swith to the Select MT Reactor.
  29 my $NM_conf = $server->LocalFile ("windows" . $PerlACE::svcconf_ext);
  30
  31 my $name_mgr_iorbase = "nm.ior";
  32 my $name_srv_iorbase = "ns.ior";
  33 my $stdout_file      = "test.out";
  34 my $stderr_file      = "test.err";
  35
  36 my $server_hostname = $server->HostName ();
  37 my $name_mgr_iorfile = $server->LocalFile ($name_mgr_iorbase);
  38 my $name_server_iorfile = $server->LocalFile ($name_srv_iorbase);
  39
  40 my $naming_mgr_client_iorfile = $client->LocalFile ($name_mgr_iorbase);
  41 my $name_srv_client_iorfile = $client->LocalFile ($name_srv_iorbase);
  42 my $client_stdout_file = $client->LocalFile ($stdout_file);
  43 my $client_stderr_file = $client->LocalFile ($stderr_file);
  44
  45 $server->DeleteFile($name_mgr_iorbase);
  46 $server->DeleteFile($name_srv_iorbase);
  47 $client->DeleteFile($name_mgr_iorbase);
  48 $client->DeleteFile($name_srv_iorbase);
  49 $client->DeleteFile($stdout_file);
  50 $client->DeleteFile($stderr_file);
  51
  52 my $DEBUG_LEVEL   = "-ORBDebugLevel $debug_level";
  53 my $hostname = $server->HostName ();
  54 my $ns_orb_port1  = 10001 + $server->RandomPort ();
  55 my $ns_endpoint1  = "iiop://$hostname:$ns_orb_port1";
  56
  57 my $DEF_REF  = "-ORBDefaultInitRef corbaloc:iiop:$hostname:$ns_orb_port1";
  58 #my $NM_REF   = "-ORBInitRef NameService=file://$name_srv_client_iorfile";
  59 #my $RM_REF   = "-ORBInitRef NamingManager=file://$naming_mgr_client_iorfile";
  60 my $NS_REF   = "--ns file://$name_srv_client_iorfile";
  61 my $LOAD_ARG = "$DEF_REF $DEBUG_LEVEL";
  62
  63 my $tao_ft_naming = "$ENV{TAO_ROOT}/orbsvcs/FT_Naming_Service/tao_ft_naming";
  64 my $name_dir      = "NameService";
  65 my $group_dir     = "Groups";
  66 my $ns_args       = "$DEBUG_LEVEL " .
  67                     "-ORBListenEndPoints $ns_endpoint1 " .
  68                     "-h $name_mgr_iorbase " .
  69                     "-o $name_srv_iorbase " .
  70                     "-v $group_dir " .
  71                     "-u $name_dir " .
  72                     ($^O eq 'MSWin32' ? "-ORBSvcConf $NM_conf" : '');
  73
  74 my $NM      = $server->CreateProcess ($tao_ft_naming, $ns_args);
  75 my $NSGROUP = $client->CreateProcess ("$ENV{ACE_ROOT}/bin/tao_nsgroup");
  76 my $NSLIST  = $client->CreateProcess ("$ENV{ACE_ROOT}/bin/tao_nslist");
  77 my $NSADD   = $client->CreateProcess ("$ENV{ACE_ROOT}/bin/tao_nsadd");
  78 my $NSDEL   = $client->CreateProcess ("$ENV{ACE_ROOT}/bin/tao_nsdel");
  79
  80 my $POSITIVE_TEST_RESULT = 0;
  81 my $NEGATIVE_TEST_RESULT = 1;
  82
  83 sub clean_persistence_dir($$)
  84 {
  85     my $target = shift;
  86     my $directory_name = shift;
  87
  88     chdir $directory_name;
  89     opendir(THISDIR, ".");
  90     @allfiles = grep(!/^\.\.?$/, readdir(THISDIR));
  91     closedir(THISDIR);
  92     foreach $tmp (@allfiles){
  93         $target->DeleteFile ($tmp);
  94     }
  95     chdir "..";
  96 }
  97
  98 # Make sure that the directory to use to hold the persistence data
  99 # exists and is cleaned out.
 100 sub init_persistence_directory($$)
 101 {
 102     my $target = shift;
 103     my $directory_name = shift;
 104
 105     if ( ! -d $directory_name ) {
 106         mkdir ($directory_name, 0777);
 107     } else {
 108         clean_persistence_dir ($target, $directory_name);
 109     }
 110 }
 111
 112 sub cat_file($)
 113 {
 114     my $file_name = shift;
 115     if (-s $file_name ) # size of file is greater than zero
 116     {
 117         open TESTFILE, $file_name or die "Couldn't open file: $!";
 118         my @teststring = <TESTFILE>; # read in all of the file
 119         print STDERR "\n@teststring\n";
 120         close TESTFILE;
 121     }
 122 }
 123
 124 sub redirect_output()
 125 {
 126     open(OLDOUT, ">&", \*STDOUT) or die "Can't dup STDOUT: $!";
 127     open(OLDERR, ">&", \*STDERR) or die "Can't dup STDERR: $!";
 128     open STDERR, '>', $client_stderr_file;
 129     open STDOUT, '>', $client_stdout_file;
 130 }
 131
 132 sub restore_output()
 133 {
 134     open(STDERR, ">&OLDERR") or die "Can't dup OLDERR: $!";
 135     open(STDOUT, ">&OLDOUT") or die "Can't dup OLDOUT: $!";
 136 }
 137
 138 sub run_client ($$)
 139 {
 140     my $args = shift;
 141     my $expected_test_result = shift;
 142
 143     my $arglist = "$LOAD_ARG $args";
 144
 145     if ($expected_test_result != $POSITIVE_TEST_RESULT ) {
 146         print STDERR "\n\n======== Running Negative Test ================\n";
 147     } else {
 148         print STDERR "\n\n======== Running Positive Test ================\n";
 149     }
 150     print STDERR "$args\n";
 151
 152     $NSGROUP->Arguments ($arglist);
 153
 154     if ($redirection_enabled) {
 155         redirect_output();
 156     }
 157
 158     my $client_status = $NSGROUP->SpawnWaitKill ($client->ProcessStartWaitInterval());
 159
 160     if ($redirection_enabled) {
 161         restore_output();
 162     }
 163
 164
 165     if ($client_status != $expected_test_result) {
 166         my $time = localtime;
 167         print STDERR "ERROR: client returned $client_status at $time\n";
 168         if ($redirection_enabled) {
 169             cat_file($client_stderr_file);
 170             cat_file($client_stdout_file);
 171         }
 172         $status = 1;
 173     }
 174 }
 175
 176 sub run_nsadd($)
 177 {
 178     print STDERR "\n\n======== Running tao_nsadd ================\n";
 179     my $args = shift;
 180     $NSADD->Arguments ($args);
 181
 182     if ($redirection_enabled) {
 183         redirect_output();
 184     }
 185
 186     #tao_nsadd --ns file://ns.ior --name iso --ctx
 187     my $client_status = $NSADD->SpawnWaitKill ($client->ProcessStartWaitInterval());
 188
 189     if ($redirection_enabled) {
 190         restore_output();
 191     }
 192
 193     if ($client_status != $0) {
 194         my $time = localtime;
 195         print STDERR "ERROR: nsadd returned $client_status at $time\n";
 196         if ($redirection_enabled) {
 197             cat_file($client_stderr_file);
 198         }
 199         $status = 1;
 200     }
 201 }
 202
 203 sub run_nsdel($)
 204 {
 205     print STDERR "\n\n======== Running tao_nsdel ================\n";
 206     my $args = shift;
 207     $NSDEL->Arguments ($args);
 208
 209     if ($redirection_enabled) {
 210         redirect_output();
 211     }
 212
 213     #tao_nsdel --ns file://ns.ior --name iso --destroy
 214     my $client_status = $NSDEL->SpawnWaitKill ($client->ProcessStartWaitInterval());
 215
 216     if ($redirection_enabled) {
 217         restore_output();
 218     }
 219
 220     if ($client_status != $0) {
 221         my $time = localtime;
 222         print STDERR "ERROR: nsdel returned $client_status at $time\n";
 223         if ($redirection_enabled) {
 224             cat_file($client_stderr_file);
 225         }
 226         $status = 1;
 227     }
 228 }
 229
 230 sub run_nslist($)
 231 {
 232     print STDERR "\n\n======== Running tao_nslist ================\n";
 233     my $args = shift;
 234     $NSLIST->Arguments ($args);
 235
 236     if ($redirection_enabled) {
 237         redirect_output();
 238     }
 239
 240     #tao_nslist --ns file://ns.ior
 241     my $client_status = $NSLIST->SpawnWaitKill ($client->ProcessStartWaitInterval());
 242
 243     if ($redirection_enabled) {
 244         restore_output();
 245     }
 246
 247     if ($client_status != $0) {
 248         my $time = localtime;
 249         print STDERR "ERROR: nslist returned $client_status at $time\n";
 250         if ($redirection_enabled) {
 251             cat_file($client_stderr_file);
 252         }
 253         $status = 1;
 254     }
 255 }
 256
 257 sub run_clients ()
 258 {
 259     run_client (
 260         "group_list",
 261         $POSITIVE_TEST_RESULT);
 262
 263     run_client (
 264         "group_create -group ieee -policy round",
 265         $POSITIVE_TEST_RESULT);
 266
 267     run_client (
 268         "group_create -group ieed -policy random",
 269         $POSITIVE_TEST_RESULT);
 270
 271     run_client (
 272         "group_create -group ieec -policy least",
 273         $NEGATIVE_TEST_RESULT);
 274
 275     run_client (
 276         "group_create -group ieee -policy round",
 277         $NEGATIVE_TEST_RESULT);
 278
 279     run_client (
 280         "group_list",
 281         $POSITIVE_TEST_RESULT);
 282
 283     run_client (
 284         "member_list -group ieee",
 285         $POSITIVE_TEST_RESULT);
 286
 287     run_client (
 288         "member_add -group ieee -location $server_hostname -ior file://$naming_mgr_client_iorfile",
 289         $POSITIVE_TEST_RESULT);
 290
 291     run_client (
 292         "member_list -group ieee",
 293         $POSITIVE_TEST_RESULT);
 294
 295     run_nsadd("$DEF_REF"." --name iso --ctx");
 296
 297     run_nslist("$NS_REF");
 298
 299     run_client (
 300         "group_unbind -name iso/ieee",
 301         $NEGATIVE_TEST_RESULT);
 302
 303     run_nslist("$NS_REF");
 304
 305     run_client (
 306         "group_bind -group ieee -name iso/ieee",
 307         $POSITIVE_TEST_RESULT);
 308
 309     run_nslist("$NS_REF");
 310
 311     run_client (
 312         "member_add -group ieee -location $server_hostname -ior file://$naming_mgr_client_iorfile",
 313         $NEGATIVE_TEST_RESULT);
 314
 315     run_client (
 316         "member_list -group ieee",
 317         $POSITIVE_TEST_RESULT);
 318
 319     run_client (
 320         "member_show -group ieee -location $server_hostname",
 321         $POSITIVE_TEST_RESULT);
 322
 323     run_client (
 324         "member_remove -group ieee -location $server_hostname",
 325         $POSITIVE_TEST_RESULT);
 326
 327     run_client (
 328         "member_list -group ieee",
 329         $POSITIVE_TEST_RESULT);
 330
 331     run_client (
 332         "group_remove -group ieee",
 333         $POSITIVE_TEST_RESULT);
 334
 335     run_client (
 336         "group_unbind -name iso/ieee",
 337         $POSITIVE_TEST_RESULT);
 338
 339     run_nslist("$NS_REF");
 340
 341     run_client (
 342         "group_list",
 343         $POSITIVE_TEST_RESULT);
 344
 345     run_nsdel("$DEF_REF"." --name iso --destroy");
 346
 347     # Verify we can handle a non-existent ior to add to the list
 348     run_nsadd("$DEF_REF --name does_not_exist --ior file://thisfiledoesnotexist");
 349     run_nslist("$NS_REF");
 350     run_nsdel("$DEF_REF"." --name does_not_exist");
 351     run_nslist("$NS_REF");
 352
 353
 354     run_client (
 355         "-help",
 356         $POSITIVE_TEST_RESULT);
 357 }
 358
 359 print STDERR "\n\n======== Running tao_nsgroup Test================\n";
 360 print STDERR "\n";
 361
 362 print STDERR "This test will check the methods of the tao_nsgroup\n";
 363 print STDERR "\n";
 364
 365 init_persistence_directory ($server, $name_dir );
 366 init_persistence_directory ($server, $group_dir );
 367
 368 ################################################################################
 369 # setup END block to cleanup after exit call
 370 ################################################################################
 371 END
 372 {
 373     $server->DeleteFile($name_mgr_iorbase);
 374     $server->DeleteFile($name_srv_iorbase);
 375     $client->DeleteFile($name_mgr_iorbase);
 376     $client->DeleteFile($name_srv_iorbase);
 377     $client->DeleteFile($stdout_file);
 378     $client->DeleteFile($stderr_file);
 379
 380     if ( -d $name_dir ) {
 381         clean_persistence_dir ($server, $name_dir);
 382         rmdir ($name_dir);
 383     }
 384
 385     if ( -d $group_dir ) {
 386         clean_persistence_dir ($server, $group_dir);
 387         rmdir ($group_dir);
 388     }
 389 }
 390
 391 ################################################################################
 392 ## Start tao_ft_naming Service
 393 ################################################################################
 394
 395 $server_status = $NM->Spawn ();
 396
 397 if ($server_status != 0) {
 398     print STDERR "ERROR: server returned $server_status\n";
 399     exit 1;
 400 }
 401
 402 if ($server->WaitForFileTimed ($name_mgr_iorbase,
 403         $server->ProcessStartWaitInterval()) == -1) {
 404     print STDERR "ERROR: cannot find file <$name_mgr_iorbase>\n";
 405     $NM->Kill (); $NM->TimedWait (1);
 406     exit 1;
 407 }
 408
 409 print STDERR "Waiting for $name_mgr_iorbase\n";
 410 if ($server->GetFile ($name_mgr_iorbase) == -1) {
 411     print STDERR "ERROR: cannot retrieve file <$name_mgr_iorbase>\n";
 412     $NM->Kill (); $NM->TimedWait (1);
 413     exit 1;
 414 }
 415
 416 if ($client->PutFile ($name_mgr_iorbase) == -1) {
 417     print STDERR "ERROR: cannot set file <$naming_mgr_client_iorfile>\n";
 418     $NM->Kill (); $NM->TimedWait (1);
 419     exit 1;
 420 }
 421
 422 run_clients();
 423
 424 print STDERR "\n\n====================================================\n";
 425 print STDERR "\n";
 426 $server_status = $NM->TerminateWaitKill ($server->ProcessStopWaitInterval());
 427
 428 if ($server_status != 0) {
 429     print STDERR "ERROR: server returned $server_status\n";
 430     $status = 1;
 431 }
 432
 433
 434 exit $status;