1 files changed, 158 insertions, 0 deletions
diff --git a/TAO/orbsvcs/tests/Notify/Basic/run_test_ipv6.pl b/TAO/orbsvcs/tests/Notify/Basic/run_test_ipv6.pl
new file mode 100755
index 00000000000..6063fd06080
--- /dev/null
+++ b/TAO/orbsvcs/tests/Notify/Basic/run_test_ipv6.pl
@@ -0,0 +1,158 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# -*- perl -*-
+
+use lib "$ENV{ACE_ROOT}/bin";
+use PerlACE::Run_Test;
+
+PerlACE::check_privilege_group();
+
+$experiment_timeout = 60;
+$startup_timeout = 60;
+$notifyior = PerlACE::LocalFile ("notify.ior");
+$namingior = PerlACE::LocalFile ("naming.ior");
+$status = 0;
+
+@tests =
+  (
+   {
+    name => "AdminProperties",
+    args => "-ORBSvcConf adminproperties.conf -ORBConnectIPV6Only 1",
+   },
+   {
+    name => "ConnectDisconnect",
+    args => "-ORBConnectIPV6Only 1",
+    extra => 300,
+   },
+   {
+    name => "Events",
+    args => "-ORBConnectIPV6Only 1",
+   },
+   {
+    name => "IdAssignment",
+    args => "-ORBConnectIPV6Only 1",
+   },
+   {
+    name => "LifeCycle",
+    args => "-ORBConnectIPV6Only 1",
+   },
+   {
+    name => "Simple",
+    args => "-ORBConnectIPV6Only 1",
+   },
+   {
+    name => "MultiTypes",
+    args => "-ORBConnectIPV6Only 1",
+   },
+   {
+    name => "Filter",
+    args => "-ORBConnectIPV6Only 1",
+   },
+   {
+    name => "Updates",
+    args => "-ORBConnectIPV6Only 1",
+   },
+   {
+    name => "Sequence",
+    args => "-ORBConnectIPV6Only 1",
+   },
+  );
+
+@default_test_configs =
+  (
+   "notify.rt.conf",
+   "notify.reactive.conf",
+   "notify.mt.conf",
+   );
+
+if ($#ARGV == -1)
+  {
+    @test_configs = @default_test_configs;
+  }
+else
+  {
+    @test_configs = @ARGV;
+  }
+
+$Naming = new PerlACE::Process ("../../../Naming_Service/Naming_Service",
+                                "-o $namingior");
+unlink $namingior;
+
+$Naming->Spawn ();
+
+if (PerlACE::waitforfile_timed ($namingior, $startup_timeout) == -1) {
+  print STDERR "ERROR: waiting for the naming service to start\n";
+  $Naming->Kill ();
+  exit 1;
+}
+
+for $dispatch_opt ("", "-UseSeparateDispatchingOrb 1")
+{
+for $config (@test_configs)
+  {
+    if ($dispatch_opt =~ /UseSeparateDispatchingORB 1/i
+        && ($config =~ /\.(reactive|rt)\./))
+      {
+        print STDERR "\nSkipping $config;  not supported with $dispatch_opt\n\n";
+        next;
+      }
+
+    print STDERR "\nTesting Notification Service with config file = $config ....\n\n";
+
+    $Notification = new PerlACE::Process ("../../../Notify_Service/Notify_Service",
+					  ' '.$dispatch_opt.' '.
+                                          "-ORBInitRef NameService=file://$namingior " .
+                                          "-IORoutput $notifyior " .
+                                          "-ORBSvcConf $config " .
+                                          "-ORBListenEndpoints iiop://1.2@[::1]");
+    unlink $notifyior;
+    $Notification->Spawn ();
+
+    if (PerlACE::waitforfile_timed ($notifyior, $startup_timeout) == -1) {
+      print STDERR "ERROR: waiting for the notify service to start\n";
+      $Notification->Kill ();
+      $Naming->Kill ();
+      exit 1;
+    }
+
+    for $name (@tests)
+      {
+        ## The MaxQueueLength and MaxEventsPerConsumer are not supported in the Reactive
+        ## configuration, so we skip this test for now.
+        ## The Notification should actually throw an exception for the property not supported.
+        if ($name->{name} eq "AdminProperties"
+            && ($config eq "notify.reactive.conf" || $config eq "notify.rt.conf"))
+          {
+            next;
+          }
+
+        print STDERR "\nTesting $name->{name}....\n\n";
+        $test = new PerlACE::Process ("./$name->{name}",
+                                      "-ORBInitRef NameService=file://$namingior " .
+                                      "$name->{args} ");
+        $test->Spawn ();
+
+        $status = $test->WaitKill ($experiment_timeout +
+                                   (defined $name->{extra} ?
+                                            $name->{extra} : 0));
+
+        if ($status != 0)
+          {
+            print STDERR "ERROR: $name->{name} returned $status\n";
+            break;
+          }
+      }
+
+    $Notification->Kill ();
+  }
+}
+
+$Naming->Kill ();
+
+unlink $namingior;
+unlink $notifyior;
+
+exit $status;