projects / working / NCIPServer.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a1cbbdb)
Working on extending NCIP.pm
authorChris Cormack <chrisc@catalyst.net.nz>
Tue, 17 Sep 2013 22:27:40 +0000 (10:27 +1200)
committerChris Cormack <chrisc@catalyst.net.nz>
Tue, 17 Sep 2013 22:27:40 +0000 (10:27 +1200)
And adding some tests

My idea is
Figure out what type of request it is
Handle request
Return response

working next on handle_initiation

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
lib/NCIP.pm patch | blob | history
t/NCIP.t [new file with mode: 0644] patch | blob

diff --git a/lib/NCIP.pm b/lib/NCIP.pm
index d1f1521..6bd9c58 100644 (file)
--- a/lib/NCIP.pm
+++ b/lib/NCIP.pm
@@ -1,26 +1,34 @@
 package NCIP;
 use NCIP::Configuration;
 use Modern::Perl;
-
-
-use FileHandle;
+use base qw(Class::Accessor);
 
 sub new {
-    my $self = shift;
-    my $config_file = shift;
-
-    my $config = NCIP::Configuration->new($config_file);
-    return bless $config, $self;
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my $config_dir = shift;
+    my $self = {};
+    my $config = NCIP::Configuration->new($config_dir);
+    $self->{config} = $config;
+    return bless $self, $class;
 
 }
 
 sub process_request {
     my $self = shift;
     my $xml = shift;
-
+    
+    my $request_type = $self->handle_initiation($xml);
     my $response = "<HTML> <HEAD> <TITLE>Hello There</TITLE> </HEAD> <BODY> <H1>Hello You Big JERK!</H1> Who would take this book seriously if the first eaxample didn't say \"hello world\"?  </BODY> </HTML>";
 
     return $response;
 }
 
+sub handle_initiation {
+    my $self = shift;
+    my $xml = shift;
+
+    return('lookup_item');
+}
+
 1;
diff --git a/t/NCIP.t b/t/NCIP.t
new file mode 100644 (file)
index 0000000..fd18414
--- /dev/null
+++ b/t/NCIP.t
@@ -0,0 +1,34 @@
+#
+#===============================================================================
+#
+#         FILE: NCIP.t
+#
+#  DESCRIPTION:
+#
+#        FILES: ---
+#         BUGS: ---
+#        NOTES: ---
+#       AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
+# ORGANIZATION: Koha Development Team
+#      VERSION: 1.0
+#      CREATED: 18/09/13 09:59:01
+#     REVISION: ---
+#===============================================================================
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;    # 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' );
+
NCIP Server