diff options
Diffstat (limited to 'TAO/orbsvcs/tests/ImplRepo/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/ImplRepo/run_test.pl | 166 |
1 files changed, 0 insertions, 166 deletions
diff --git a/TAO/orbsvcs/tests/ImplRepo/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/run_test.pl deleted file mode 100755 index 47eda1fa345..00000000000 --- a/TAO/orbsvcs/tests/ImplRepo/run_test.pl +++ /dev/null @@ -1,166 +0,0 @@ -#$Id$ -# -*- perl -*- -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -use lib "../../../../bin"; - -require ACEutils; - -$airplane_ior = "airplane.ior"; -$simple_ior = "simple.ior"; -$implrepo_ior = "implrepo.ior"; - -# Make sure the files are gone, so we can wait on them. -unlink $airplane_ior; -unlink $simple_ior; -unlink $implrepo_ior; - -# The Tests - -sub airplane_test -{ - $SV = Process::Create ($EXEPREFIX."airplane_server".$Process::EXE_EXT, - "-o $airplane_ior -r"); - - ACE::waitforfile ($airplane_ior); - - $status = system ($EXEPREFIX."airplane_client".$Process::EXE_EXT. - " -f $airplane_ior"); - - $SV->Kill (); $SV->Wait (); - unlink $airplane_ior; -} - -sub airplane_ir_test -{ - $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, - "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 0"); - - ACE::waitforfile ($implrepo_ior); - - $SV = Process::Create ($EXEPREFIX."airplane_server".$Process::EXE_EXT, - "-o $airplane_ior -i -r -ORBobjrefstyle url"); - - ACE::waitforfile ($airplane_ior); - - system($EXEPREFIX."airplane_client -f $airplane_ior -ORBobjrefstyle url"); - - $IR->Kill (); $IR->Wait (); -} - -sub simple_test -{ - $SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, - "-o $simple_ior"); - - ACE::waitforfile ($simple_ior); - - $status = system ($EXEPREFIX."client".$Process::EXE_EXT. - " -f $simple_ior"); - - $SV->Kill (); $SV->Wait (); - - unlink $simple_ior; -} - -sub implrepo_test -{ - $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, - "-ORBsvcconf implrepo.conf"); - - ACE::waitforfile ("implrepo.ior"); - - system ($EXEPREFIX."server -r -o svr.ior"); - - $SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, ""); - - sleep $ACE::sleeptime; - - $PSV = Process::Create ($EXEPREFIX."airplane_server".$Process::EXE_EXT, - "-o $airplane_ior -i -r"); - - ACE::waitforfile ($airplane_ior); - - $PCL = Process::Create ($EXEPREFIX."airplane_client".$Process::EXE_EXT, - " -f $airplane_ior"); - - system ($EXEPREFIX."client -f svr.ior"); - - $IR->Kill (); $IR->Wait (); -} - -sub implrepo2_test -{ - $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, - "-ORBsvcconf implrepo.conf"); - - ACE::waitforfile ("implrepo.ior"); - - system ($EXEPREFIX."server -r -o svr.ior"); - - $SV = Process::Create ($EXEPREFIX."server".$Process::EXE_EXT, ""); - - sleep $ACE::sleeptime; - - $PSV = Process::Create ($EXEPREFIX."airplane_server".$Process::EXE_EXT, - "-o $airplane_ior -i -r"); - - ACE::waitforfile ($airplane_ior); - - $PCL = Process::Create ($EXEPREFIX."client".$Process::EXE_EXT, - " -f $svr_ior"); - - system ($EXEPREFIX."airplane_client -f $airplane_ior"); - - $IR->Kill (); $IR->Wait (); -} - - - -# Parse the arguments - -for ($i = 0; $i <= $#ARGV; $i++) -{ - SWITCH: - { - if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?") - { - print "run_test test\n"; - print "\n"; - print "test -- Runs a specific test\n"; - print " airplane, simple, or implrepo\n"; - exit; - } - if ($ARGV[$i] eq "airplane") - { - airplane_test (); - exit; - } - if ($ARGV[$i] eq "airplane_ir") - { - airplane_ir_test (); - exit; - } - if ($ARGV[$i] eq "simple") - { - simple_test (); - exit; - } - if ($ARGV[$i] eq "implrepo") - { - implrepo_test (); - exit; - } - if ($ARGV[$i] eq "implrepo2") - { - implrepo2_test (); - exit; - } - - print "run_test: Unknown Option: ".$ARGV[$i]."\n"; - } -} - -print "Specify airplane, airplane_ir\n" |