services: services/perl/t client.t daemon.t

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

jgsmith     01/07/29 18:04:29

  Added:       perl/t   client.t daemon.t
  Log:
  Initial commit of testing scripts
  
  Revision  Changes    Path
  1.1                  services/perl/t/client.t
  
  Index: client.t
  ===================================================================
  use Test::Simple tests => 2;
  
  sub load {
  
      foreach my $m (@_) {
          eval "require $m";
          ok($@ eq "", "Loaded $m" . ($@ eq "" ? "" : " : $@"));
      }
  }
  
  load(
      qw(AppSwitch::Base::Client AppSwitch::Echo::Client)
  );
  
  
  
  1.1                  services/perl/t/daemon.t
  
  Index: daemon.t
  ===================================================================
  use Test::Simple tests => 5;
  
  BEGIN {
      sub load {
  
          foreach my $m (@_) {
              eval "require $m";
              ok($@ eq "", "Loaded $m" . ($@ eq "" ? "" : " : $@"));
          }
      }
  
      load(qw(AppSwitch::Services::Daemon AppSwitch::Base::Service));
  }
  
  load(qw(AppSwitch::Echo::Service)
       );
  
  my $daemon;
  
  eval { $daemon = new AppSwitch::Services::Daemon(LocalPort=>1234) };
  
  ok($@ eq "", "Create service daemon" . ($@ eq "" ? "" : " : $@"));
  
  eval { initialize $daemon q(Echo) };
  
  ok($@ eq "", "Initialize Echo service" . ($@ eq "" ? "" : " : $@"));