Add unit test for issue #570

    * TAO/tests/Bug_3845_Regression/issue570.idl:
      Added.

    * TAO/tests/Bug_3845_Regression/run_test.pl:

2 files changed, 15 insertions, 0 deletions

diff --git a/TAO/tests/Bug_3845_Regression/issue570.idl b/TAO/tests/Bug_3845_Regression/issue570.idl
new file mode 100644
index 00000000000..c688ed48102
--- /dev/null
+++ b/TAO/tests/Bug_3845_Regression/issue570.idl
@@ -0,0 +1,4 @@
+// Reproducer IDL for issue 570
+// https://github.com/DOCGroup/ACE_TAO/issues/570
+
+struct X { _; };
diff --git a/TAO/tests/Bug_3845_Regression/run_test.pl b/TAO/tests/Bug_3845_Regression/run_test.pl
index bc7adaddbbc..d02a4a7e147 100755
--- a/TAO/tests/Bug_3845_Regression/run_test.pl
+++ b/TAO/tests/Bug_3845_Regression/run_test.pl
@@ -28,6 +28,7 @@ $input_file1 = $server->LocalFile ("local_inarg.idl");
 $input_file2 = $server->LocalFile ("local_inoutarg.idl");
 $input_file3 = $server->LocalFile ("local_outarg.idl");
 $input_file4 = $server->LocalFile ("local_rettype.idl");
+$input_file5 = $server->LocalFile ("issue570.idl");
 
 # Compile the IDL
 $SV = $server->CreateProcess ("$tao_idl", "$input_file1");
@@ -49,6 +50,11 @@ $SV = $server->CreateProcess ("$tao_idl", "$input_file4");
 
 $server_status4 = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
 
+# Compile the IDL
+$SV = $server->CreateProcess ("$tao_idl", "$input_file5");
+
+$server_status5 = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
+
 open (STDOUT, ">&OLDOUT");
 open (STDERR, ">&OLDERR");
 
@@ -72,4 +78,9 @@ if ($server_status4 == 0) {
     $status = 1;
 }
 
+if ($server_status5 == 0) {
+    print STDERR "ERROR: tao_idl returned $server_status5 for $input_file5, should have failed\n";
+    $status = 1;
+}
+
 exit $status;