Set the ils to NCIP::ILS::Evergreen in the the sample NCIP.xml config.
[working/NCIPServer.git] / t / NCIP.t
index 74422cb..4c18ec3 100644 (file)
--- a/t/NCIP.t
+++ b/t/NCIP.t
 
 use strict;
 use warnings;
+use File::Slurp;
 
-use Test::More tests => 5;    # last test to print
+use Test::More tests => 9;    # last test to print
 
 use lib 'lib';
 
 use_ok('NCIP');
 ok( my $ncip = NCIP->new('t/config_sample'), 'Create new object' );
 
-my $xml = <<'EOT';
-<xml>
-</xml>
-EOT
-
-ok( my $response = $ncip->process_request($xml), 'Process a request' );
-
 my $xmlbad = <<'EOT';
 <xml>
 this is bad
@@ -42,4 +36,22 @@ EOT
 # handle_initiation is called as part of the process_request, but best to test
 # anyway
 ok( !$ncip->handle_initiation($xmlbad), 'Bad xml' );
-ok( $ncip->handle_initiation($xml),     'Good XML' );
+
+my $lookupitem = read_file('t/sample_data/LookupItem.xml');
+
+ok( my $response = $ncip->process_request($lookupitem),
+    'Try looking up an item' );
+is( $response, 'LookupItem', 'We got lookupitem' );
+
+$lookupitem =
+  read_file('t/sample_data/LookupItemWithExampleItemIdentifierType.xml');
+ok(
+    $response = $ncip->process_request($lookupitem),
+    'Try looking up an item, with agency'
+);
+is( $response, 'LookupItem', 'We got lookupitem with agency' );
+
+my $lookupuser = read_file('t/sample_data/LookupUser.xml') || die "Cant open file";
+ok( $response = $ncip->process_request($lookupuser), 'Try looking up a user' );
+is( $response, 'FLO-WHEELOCK', 'Got the user we expected' );
+