Repo restructuring

3 files changed, 94 insertions, 0 deletions

diff --git a/TAO/tests/Bug_1628_Regression/TestCase.idl b/TAO/tests/Bug_1628_Regression/TestCase.idl
new file mode 100644
index 00000000000..1e95c85d444
--- /dev/null
+++ b/TAO/tests/Bug_1628_Regression/TestCase.idl
@@ -0,0 +1,16 @@
+//
+// $Id$
+//
+
+#include "TestType.idl"
+
+//module Test {
+//module Test2 {
+
+
+
+    typedef HashedMD5SimpleSecret Body;
+
+
+//};
+//};
diff --git a/TAO/tests/Bug_1628_Regression/TestType.idl b/TAO/tests/Bug_1628_Regression/TestType.idl
new file mode 100644
index 00000000000..a7f1adde7b2
--- /dev/null
+++ b/TAO/tests/Bug_1628_Regression/TestType.idl
@@ -0,0 +1,16 @@
+//
+// $Id$
+//
+
+//module Test {
+
+
+                // The size of the hash md5
+          const unsigned long HASH_MD5_SIZEOF = 16;
+
+                // The hash MD5 type
+          typedef octet HashedMD5SimpleSecret[HASH_MD5_SIZEOF] ;
+
+
+
+//};
diff --git a/TAO/tests/Bug_1628_Regression/run_test.pl b/TAO/tests/Bug_1628_Regression/run_test.pl
new file mode 100755
index 00000000000..e2abf7ec7d8
--- /dev/null
+++ b/TAO/tests/Bug_1628_Regression/run_test.pl
@@ -0,0 +1,62 @@
+
+# $Id$
+
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+     & eval 'exec perl -S $0 $argv:q'
+     if 0;
+
+# -*- perl -*-
+
+use lib '../../../bin';
+use PerlACE::Run_Test;
+
+$status =0;
+
+# The location of the tao_idl utility - depends on O/S
+if ($^O eq "MSWin32")
+{
+   $tao_idl = "../../../bin/tao_idl";
+}
+else
+{
+   $tao_idl = "../../../TAO/TAO_IDL/tao_idl";
+}
+
+# Generated code file names
+$TestCaseC_i     = PerlACE::LocalFile("TestCaseC.i");
+unlink $TestCaseC_i;
+
+
+# Compile the IDL
+#
+$TAO_IDL    = new PerlACE::Process("$tao_idl");
+$TAO_IDL->Arguments( "-Ge 1 -Sc TestCase.idl" ) ;
+if( $TAO_IDL->SpawnWaitKill(10) != 0 )
+{
+   print STDERR "ERROR: can't compile IDL\n";
+   $TAO_IDL->Kill ();
+   $status = 1;
+   exit $status;
+}
+
+# Test for the presence of Body_dup etc. Crude test assumes that if
+# Body_dup is there, then all the Body_* methods are also there.
+#
+$found = 0 ;
+open (I_FILE, "$TestCaseC_i") ;
+while( <I_FILE> )
+{
+   chomp ;
+   if( $_ =~ /Body_dup/ )
+   {
+       $found = 1 ;
+       last ;
+   }
+}
+if( $found != 1 )
+{
+    print STDERR "ERROR: Body_* methods not found\n" ;
+    $status = 1 ;
+}
+
+exit $status;