2 #===============================================================================
11 # AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
12 # ORGANIZATION: Koha Development Team
14 # CREATED: 18/09/13 09:59:01
16 #===============================================================================
21 use Test::More tests => 5; # last test to print
26 ok( my $ncip = NCIP->new('t/config_sample'), 'Create new object' );
33 ok( my $response = $ncip->process_request($xml), 'Process a request' );
42 # handle_initiation is called as part of the process_request, but best to test
44 ok( !$ncip->handle_initiation($xmlbad), 'Bad xml' );
45 ok( $ncip->handle_initiation($xml), 'Good XML' );