Wed Aug 15 12:09:12 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>

4 files changed, 82 insertions, 0 deletions

diff --git a/TAO/tests/Bug_3042_Regression/Bug_3042_Test.mpc b/TAO/tests/Bug_3042_Regression/Bug_3042_Test.mpc
new file mode 100644
index 00000000000..aa31e54e848
--- /dev/null
+++ b/TAO/tests/Bug_3042_Regression/Bug_3042_Test.mpc
@@ -0,0 +1,6 @@
+// -*- MPC -*-
+// $Id$
+
+project(*Client): taoclient {
+}
+
diff --git a/TAO/tests/Bug_3042_Regression/client.cpp b/TAO/tests/Bug_3042_Regression/client.cpp
new file mode 100644
index 00000000000..c26637bf77e
--- /dev/null
+++ b/TAO/tests/Bug_3042_Regression/client.cpp
@@ -0,0 +1,28 @@
+// -*- C++ -*-
+
+#include "testC.h"
+#include "ace/Log_Msg.h"
+
+ACE_RCSID (BoundedSeq,
+           client,
+           "$Id$")
+
+int
+ACE_TMAIN(int, ACE_TCHAR *[])
+{
+  try
+    {
+       // creation
+       Foo::Node node;
+    }
+  catch (const CORBA::Exception& ex)
+    {
+      ex._tao_print_exception ("Bug_3042_Test test:");
+      return -1;
+    }
+  catch (...)
+    {
+      return -1;
+    }
+  return 0;
+}
diff --git a/TAO/tests/Bug_3042_Regression/run_test.pl b/TAO/tests/Bug_3042_Regression/run_test.pl
new file mode 100755
index 00000000000..466dd5baeae
--- /dev/null
+++ b/TAO/tests/Bug_3042_Regression/run_test.pl
@@ -0,0 +1,27 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# -*- perl -*-
+# $Id$
+
+use lib "$ENV{ACE_ROOT}/bin";
+use PerlACE::Run_Test;
+
+print STDERR "\n\n==== Running Bug_3042_Test test\n";
+
+if (PerlACE::is_vxworks_test()) {
+    $T = new PerlACE::ProcessVX ("client");
+}
+else {
+    $T = new PerlACE::Process ("client");
+}
+
+$test = $T->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation);
+
+if ($test != 0) {
+    print STDERR "ERROR: Bug 3042 test returned $test\n";
+    exit 1;
+}
+
+exit 0;
diff --git a/TAO/tests/Bug_3042_Regression/test.idl b/TAO/tests/Bug_3042_Regression/test.idl
new file mode 100644
index 00000000000..0dc7ea9b602
--- /dev/null
+++ b/TAO/tests/Bug_3042_Regression/test.idl
@@ -0,0 +1,21 @@
+// -*- IDL -*-
+
+//=============================================================================
+/**
+ * @file test.idl
+ *
+ * $Id$
+ *
+ * "test" IDL interface for the Codec test.
+ *
+ * @author Balachandran Natarajan <bala@dre.vanderbilt.edu>
+ */
+//=============================================================================
+
+module Foo
+{
+  struct Node {
+    sequence <Node,2> nodes;
+  };
+  
+};