Open-ILS/src/perlmods/t/12-OpenILS-SIP.t

   1 #!perl
   2 # note that taint mode is explicitly off; see
   3 # https://rt.cpan.org/Public/Bug/Display.html?id=94520 for why
   4
   5 use Test::More tests => 9;
   6
   7 BEGIN {
   8         use_ok( 'OpenILS::SIP' );
   9 }
  10
  11 use_ok( 'OpenILS::SIP::Item' );
  12 use_ok( 'OpenILS::SIP::Msg' );
  13 use_ok( 'OpenILS::SIP::Patron' );
  14 use_ok( 'OpenILS::SIP::Transaction' );
  15 use_ok( 'OpenILS::SIP::Transaction::Checkin' );
  16 use_ok( 'OpenILS::SIP::Transaction::Checkout' );
  17 use_ok( 'OpenILS::SIP::Transaction::Renew' );
  18
  19 $ENV{TZ} = 'America/New_York'; # chosen to exercise the LP#1516757 bug
  20 my $dob = '1960-12-31';
  21 my $dob_formatted = OpenILS::SIP->format_date($dob, 'dob');
  22 is($dob_formatted, '19601231', 'LP#1516757: ensure dates of birth do not get offset');