t/NCIP_Handler.t

   1 #
   2 #===============================================================================
   3 #
   4 #         FILE: NCIP_Handler.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: 19/09/13 11:32:01
  15 #     REVISION: ---
  16 #===============================================================================
  17
  18 use strict;
  19 use warnings;
  20
  21 use Test::More tests => 4;    # last test to print
  22 use lib 'lib';
  23
  24 use_ok('NCIP::Handler');
  25 my $namespace = 'http://test';
  26
  27 my $type = 'LookupItem';
  28
  29 ok(
  30     my $handler =
  31       NCIP::Handler->new( { namespace => $namespace, type => $type } ),
  32     'Create new LookupItem handler'
  33 );
  34 ok( my $response = $handler->handle() );
  35
  36 $type = 'LookupUser';
  37 ok(
  38     $handler = NCIP::Handler->new( { namespace => $namespace, type => $type } ),
  39     'Create new LookupItem handler'
  40 );
  41 ok( $response = $handler->handle() );
  42