ChangeLogTag: Fri Aug 6 14:35:45 UTC 2010 Jeff Parsons <j.parsons@vanderbilt.edu>

3 files changed, 103 insertions, 0 deletions

diff --git a/TAO/ChangeLog b/TAO/ChangeLog
index 1366db0044f..06940c43ae3 100644
--- a/TAO/ChangeLog
+++ b/TAO/ChangeLog
@@ -1,3 +1,10 @@
+Fri Aug  6 14:35:45 UTC 2010  Jeff Parsons <j.parsons@vanderbilt.edu>
+
+        * orbsvcs/tests/InterfaceRepo/Bug_3881_Regression/*.*:
+        
+          New test, consisiting of IDL file and perl script, to 
+          check for reintroduction of [BUGID:3881].
+
 Fri Aug  6 13:42:39 UTC 2010  Jeff Parsons <j.parsons@vanderbilt.edu>
 
         * orbsvcs/orbsvcs/IFRService/IFR_Service_Utils.cpp(valid_creation):
diff --git a/TAO/orbsvcs/tests/InterfaceRepo/Bug_3881_Regression/run_test.pl b/TAO/orbsvcs/tests/InterfaceRepo/Bug_3881_Regression/run_test.pl
new file mode 100755
index 00000000000..d221f710a57
--- /dev/null
+++ b/TAO/orbsvcs/tests/InterfaceRepo/Bug_3881_Regression/run_test.pl
@@ -0,0 +1,89 @@
+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::TestTarget;
+
+$status = 0;
+$debug_level = '0';
+
+$nice = "";
+$locking = "";
+
+foreach $i (@ARGV) {
+    if ($i eq '-debug') {
+        $debug_level = '10';
+    }
+}
+
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
+
+my $iorfile = "if_repo.ior";
+
+#Files which used by server
+my $server_iorfile = $server->LocalFile ($iorfile);
+$server->DeleteFile($iorfile);
+
+#Files which used by client
+my $client_iorfile = $client->LocalFile ($iorfile);
+$client->DeleteFile($iorfile);
+
+$SV = $server->CreateProcess ("../../../IFR_Service/IFR_Service",
+                              "-ORBdebuglevel $debug_level " .
+                              "$nice " .
+                              "-o $server_iorfile " .
+                              "$locking");
+
+$CL = $client->CreateProcess ("$ENV{ACE_ROOT}/bin/tao_ifr",
+                              "-ORBdebuglevel $debug_level " .
+                              "-ORBInitRef InterfaceRepository=file://$client_iorfile test.idl");
+
+$server_status = $SV->Spawn ();
+
+if ($server_status != 0) {
+    print STDERR "ERROR: server returned $server_status\n";
+    exit 1;
+}
+
+if ($server->WaitForFileTimed ($iorfile,
+                               $server->ProcessStartWaitInterval()) == -1) {
+    print STDERR "ERROR: cannot find file <$server_iorfile>\n";
+    $SV->Kill (); $SV->TimedWait (1);
+    exit 1;
+}
+
+if ($server->GetFile ($iorfile) == -1) {
+    print STDERR "ERROR: cannot retrieve file <$server_iorfile>\n";
+    $SV->Kill (); $SV->TimedWait (1);
+    exit 1;
+}
+
+if ($client->PutFile ($iorfile) == -1) {
+    print STDERR "ERROR: cannot set file <$client_iorfile>\n";
+    $SV->Kill (); $SV->TimedWait (1);
+    exit 1;
+}
+
+$client_status = $CL->SpawnWaitKill ($client->ProcessStartWaitInterval() + 45);
+
+if ($client_status != 0) {
+    print STDERR "ERROR: client returned $client_status\n";
+    $status = 1;
+}
+
+$server_status = $SV->TerminateWaitKill ($server->ProcessStopWaitInterval());
+
+if ($server_status != 0) {
+    print STDERR "ERROR: server returned $server_status\n";
+    $status = 1;
+}
+
+$server->DeleteFile($iorfile);
+$client->DeleteFile($iorfile);
+
+exit $status;
diff --git a/TAO/orbsvcs/tests/InterfaceRepo/Bug_3881_Regression/test.idl b/TAO/orbsvcs/tests/InterfaceRepo/Bug_3881_Regression/test.idl
new file mode 100644
index 00000000000..49114a42792
--- /dev/null
+++ b/TAO/orbsvcs/tests/InterfaceRepo/Bug_3881_Regression/test.idl
@@ -0,0 +1,7 @@
+#pragma prefix "omg.org"
+
+module CORBA
+{
+  typedef sequence<long> LSeq;
+};
+