Looking up and finding user data, now just to send the response
[working/NCIPServer.git] / t / NCIPServer.t
index b0dae14..10dc320 100644 (file)
@@ -4,11 +4,16 @@ use strict;
 use warnings;
 use lib 'lib';
 
-use Test::More tests => 2;
+use Test::More tests => 3;
 BEGIN { use_ok('NCIPServer') };
 
 ok(my $server = NCIPServer->new({config_dir => 't/config_sample'}));
 
+
+# internal routines not called except by run, but we should test them
+ok($server->configure_hook());
+
+
 # use Data::Dumper;
 # print Dumper $server;