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 use lib 'lib';
  22
  23 use Test::More tests => 5;    # last test to print
  24
  25 use_ok('NCIP::Configuration');
  26
  27 ok( my $config = NCIP::Configuration->new('t/config_sample'),
  28     'Creating a config object' );
  29
  30 # because the file is called NCIP.xml we now have that namespace
  31 ok( my $server_params = $config->('NCIP.server-params'), 'Get server-params' );
  32
  33 is( $server_params->{'min_servers'}, 1, 'Do we have a minimum of one server' );
  34
  35 ok ($config->find_service('127.0.0.1','6001','tcp'),'Testing find_service');
  36