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 "" ? "" : " : $@"));
+}
|
