run valuetype test also by default

1 files changed, 38 insertions, 15 deletions

diff --git a/TAO/orbsvcs/tests/Event/UDP/run_test.pl b/TAO/orbsvcs/tests/Event/UDP/run_test.pl
index ad98e46a979..6b81e5ca083 100755
--- a/TAO/orbsvcs/tests/Event/UDP/run_test.pl
+++ b/TAO/orbsvcs/tests/Event/UDP/run_test.pl
@@ -10,38 +10,61 @@ use PerlACE::Run_Test;
 
 $status = 0;
 
-foreach $i (@ARGV) {
-    if ($i eq '-v') {
-        $valuetype = '-v';
-    }
-}
-$S = new PerlACE::Process ("sender",
-                           "$valuetype");
-$R = new PerlACE::Process ("receiver",
-                           "$valuetype");
+$S1 = new PerlACE::Process ("sender",
+                            "");
+$R1 = new PerlACE::Process ("receiver",
+                           "");
+$S2 = new PerlACE::Process ("sender",
+                            "-v");
+$R2 = new PerlACE::Process ("receiver",
+                           "-v");
 
-print STDOUT "Starting receiver\n";
-$R->Spawn ();
+print STDOUT "Starting receiver with plain text\n";
+$R1->Spawn ();
 
 sleep 1;
 
-print STDOUT "Starting sender\n";
-$S->Spawn ();
+print STDOUT "Starting sender with plain text\n";
+$S1->Spawn ();
 
 sleep 1;
 
-$consumer = $S->WaitKill (150);
+$consumer = $S1->WaitKill (150);
 
 if ($consumer != 0) {
     print STDERR "ERROR: consumer returned $consumer\n";
     $status = 1;
 }
 
-$receiver = $R->WaitKill (150);
+$receiver = $R1->WaitKill (150);
 
 if ($receiver != 0) {
     print STDERR "ERROR: receiver returned $receiver\n";
     $status = 1;
 }
 
+print STDOUT "Starting receiver with valuetype\n";
+$R2->Spawn ();
+
+sleep 1;
+
+print STDOUT "Starting sender with valuetype\n";
+$S2->Spawn ();
+
+sleep 1;
+
+$consumer2 = $S2->WaitKill (150);
+
+if ($consumer2 != 0) {
+    print STDERR "ERROR: consumer returned $consumer2\n";
+    $status = 1;
+}
+
+$receiver2 = $R2->WaitKill (150);
+
+if ($receiver2 != 0) {
+    print STDERR "ERROR: receiver returned $receiver2\n";
+    $status = 1;
+}
+
 exit $status;