services: services/perl/t daemon.t

[<app...@li...>]

jgsmith     01/07/29 18:18:00

  Modified:    perl/t   daemon.t
  Log:
  Generalized tests so we can add more service modules without too much
  trouble...
  
  Revision  Changes    Path
  1.2       +14 -6     services/perl/t/daemon.t
  
  Index: daemon.t
  ===================================================================
  RCS file: /cvsroot/appswitch/services/perl/t/daemon.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -b -u -r1.1 -r1.2
  --- daemon.t	2001/07/30 01:04:29	1.1
  +++ daemon.t	2001/07/30 01:18:00	1.2
  @@ -1,6 +1,10 @@
  -use Test::Simple tests => 5;
  -
   BEGIN {
  +    @services = qw(Echo);
  +
  +    $number_tests = 3 + 2 * @services;
  +
  +    eval "use Test::Simple tests => $number_tests;";
  +
       sub load {
   
           foreach my $m (@_) {
  @@ -12,15 +16,19 @@
       load(qw(AppSwitch::Services::Daemon AppSwitch::Base::Service));
   }
   
  -load(qw(AppSwitch::Echo::Service)
  -     );
  +# tests 3..(2+@services)
  +load(map { "AppSwitch::${_}::Service" } @services);
   
   my $daemon;
   
   eval { $daemon = new AppSwitch::Services::Daemon(LocalPort=>1234) };
   
  +# test 3+@services
   ok($@ eq "", "Create service daemon" . ($@ eq "" ? "" : " : $@"));
   
  -eval { initialize $daemon q(Echo) };
  +# tests 4+@services .. 3+2*@services
  +foreach(@services) {
  +    eval { initialize $daemon $_ };
   
  -ok($@ eq "", "Initialize Echo service" . ($@ eq "" ? "" : " : $@"));
  +    ok($@ eq "", "Initialize $_ service" . ($@ eq "" ? "" : " : $@"));
  +}