From 0a73e1427d671c8b9af949cc31225177d2c7d400 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Mon, 18 Feb 2013 17:59:45 -0500 Subject: [PATCH] Fix failing SIP unit test Per LP# 1099595, just copy the constant inline instead of requiring the SIPServer code to be installed on every instance where you don't want 'make check' to fail. (Skipping the test in the absence of the SIPServer code would be another option, but then you're skipping the test, and for the sake of 1 constant, that seems like a bad trade.) Signed-off-by: Dan Scott --- Open-ILS/src/perlmods/lib/OpenILS/SIP.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm index a860910f49..37375064d3 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/SIP.pm @@ -25,7 +25,6 @@ use OpenSRF::Utils qw/:datetime/; use DateTime::Format::ISO8601; use Encode; use Unicode::Normalize; -use Sip::Constants qw(SIP_DATETIME); my $U = 'OpenILS::Application::AppUtils'; @@ -36,6 +35,11 @@ my $target_encoding; # FIXME: this is configured at the institution level. use Digest::MD5 qw(md5_hex); +# Copied from Sip::Constants +use constant { + SIP_DATETIME => "%Y%m%d %H%M%S", +}; + sub new { my ($class, $institution, $login) = @_; my $type = ref($class) || $class; -- 2.11.0