t/NCIP_Configuration.t

   1 #
   2 #===============================================================================
   3 #
   4 #         FILE: NCIP_Configuration.t
   5 #
   6 #  DESCRIPTION:
   7 #
   8 #        FILES: ---
   9 #         BUGS: ---
  10 #        NOTES: ---
  11 #       AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
  12 # ORGANIZATION: Koha Development Team
  13 #      VERSION: 1.0
  14 #      CREATED: 28/08/13 10:35:44
  15 #     REVISION: ---
  16 #===============================================================================
  17
  18 use strict;
  19 use warnings;
  20 use Sys::Syslog;
  21
  22 use Test::More tests => 5;    # last test to print
  23
  24 use_ok('NCIP::Configuration');
  25
  26 ok( my $config = NCIP::Configuration->new('../t/config_sample'),
  27     'Creating a config object' );
  28
  29 # because the file is called NCIP.xml we now have that namespace
  30 ok( my $server_params = $config->('NCIP.server-params'), 'Get server-params' );
  31
  32 is( $server_params->{'min_servers'}, 1, 'Do we have a minimum of one server' );
  33
  34 ok ($config->find_service('127.0.0.1','6001','tcp'),'Testing find_service');
  35