t/NCIPServer.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use lib 'lib';
   6
   7 use Test::More tests => 3;
   8 BEGIN { use_ok('NCIPServer') };
   9
  10 ok(my $server = NCIPServer->new({config_dir => 't/config_sample'}));
  11
  12
  13 # internal routines not called except by run, but we should test them
  14 ok($server->configure_hook());
  15
  16
  17 # use Data::Dumper;
  18 # print Dumper $server;
  19
  20 # uncomment this if you want to run the server in test mode
  21 # $server->run();