+# Test as_due_date for hourly loans
+$dt = DateTime->new(
+ year => 2013,
+ month => 12,
+ day => 11,
+ hour => 18,
+ minute => 35,
+);
+$date_string = output_pref({ dt => $dt, dateformat => 'metric', timeformat => '24hr', as_due_date => 1 });
+cmp_ok $date_string, 'eq', '11/12/2013 18:35', 'as_due_date with hours and timeformat 24hr (non-midnight time)';
+$date_string = output_pref({ dt => $dt, dateformat => 'us', timeformat => '12hr', as_due_date => 1 });
+cmp_ok $date_string, 'eq', '12/11/2013 06:35 PM', 'as_due_date with hours and timeformat 12hr (non-midnight time)';
+
+my $now = DateTime->now;
+is( dt_from_string, $now, "Without parameter, dt_from_string should return today" );
+
+my $module_context = Test::MockModule->new('C4::Context');
+$module_context->mock(
+ 'tz',
+ sub {
+ return DateTime::TimeZone->new( name => 'Europe/Lisbon' );
+ }
+);
+
+$dt = dt_from_string('1979-04-01');
+isa_ok( $dt, 'DateTime', 'dt_from_string should return a DateTime object if a DST is given' );
+
+$module_context->mock(
+ 'tz',
+ sub {
+ return DateTime::TimeZone->new( name => 'Europe/Paris' );
+ }
+);
+
+$dt = dt_from_string('2014-03-30 02:00:00');
+isa_ok( $dt, 'DateTime', 'dt_from_string should return a DateTime object if a DST is given' );
+
+# Test output_pref for invalid local time explosion
+$dt = DateTime->new(
+ year => 2017,
+ month => 3,
+ day => 26,
+ hour => 1,
+ minute => 35,
+);
+$module_context->mock(
+ 'tz',
+ sub {
+ return DateTime::TimeZone->new( name => 'Europe/London' );
+ }
+);
+is( output_pref( { dt => $dt, dateonly => 0 } ), '03/26/2017 01:35', 'output_pref should return even if an invalid DST time is passed' );
+
+# Test dt_from_string
+t::lib::Mocks::mock_preference('dateformat', 'metric');
+t::lib::Mocks::mock_preference('TimeFormat', '24hr');
+
+# dt_from_string should take into account the dateformat pref, or the given parameter
+$dt = dt_from_string('31/01/2015');
+is( ref($dt), 'DateTime', '31/01/2015 is a correct date in metric format' );
+is( output_pref( { dt => $dt, dateonly => 1 } ), '31/01/2015' );
+$dt = eval { dt_from_string( '31/01/2015', 'iso' ); };
+is( ref($dt), '', '31/01/2015 is not a correct date in iso format' );
+$dt = eval { dt_from_string( '01/01/2015', 'iso' ); };
+is( ref($dt), '', '01/01/2015 is not a correct date in iso format' );
+$dt = eval { dt_from_string( '01/01/2015', 'rfc3339' ); };
+is( ref($dt), '', '01/01/2015 is not a correct date in rfc3339 format' );
+$dt = eval { dt_from_string( '31/01/2015', 'us' ); };
+is( ref($dt), '', '31/01/2015 is not a correct date in us format' );
+$dt = dt_from_string( '01/01/2015', 'us' );
+is( ref($dt), 'DateTime', '01/01/2015 is a correct date in us format' );
+$dt = dt_from_string( '01.01.2015', 'dmydot' );
+is( ref($dt), 'DateTime', '01.01.2015 is a correct date in dmydot format' );
+
+
+# default value for hh and mm is 00:00
+$dt = dt_from_string('31/01/2015');
+is( output_pref( { dt => $dt } ), '31/01/2015 00:00', 'dt_from_string should generate a DT object with 00:00 as default hh:mm' );
+
+$dt = dt_from_string('31/01/2015 12:34');
+is( output_pref( { dt => $dt } ), '31/01/2015 12:34', 'dt_from_string should match hh:mm' );
+
+$dt = dt_from_string('31/01/2015 12:34:56');
+is( output_pref( { dt => $dt } ), '31/01/2015 12:34', 'dt_from_string should match hh:mm:ss' );
+
+# date before 1900
+$dt = dt_from_string('01/01/1900');
+is( output_pref( { dt => $dt, dateonly => 1 } ), '01/01/1900', 'dt_from_string should manage date < 1900' );
+
+# fallback
+$dt = dt_from_string('2015-01-31 01:02:03');
+is( output_pref( {dt => $dt} ), '31/01/2015 01:02', 'dt_from_string should fallback to sql format' );
+
+# 12hr format
+$dt = dt_from_string('2015-01-31 01:02 AM');
+is( output_pref( {dt => $dt} ), '31/01/2015 01:02', 'dt_from_string ' );
+$dt = dt_from_string('2015-01-31 01:02:03 AM');
+is( output_pref( {dt => $dt} ), '31/01/2015 01:02', 'dt_from_string ' );
+$dt = dt_from_string('2015-01-31 01:02 PM');
+is( output_pref( {dt => $dt} ), '31/01/2015 13:02', 'dt_from_string ' );
+$dt = dt_from_string('2015-01-31 01:02:03 PM');
+is( output_pref( {dt => $dt} ), '31/01/2015 13:02', 'dt_from_string ' );
+$dt = dt_from_string('2015-01-31 12:02 AM');
+is( output_pref( {dt => $dt} ), '31/01/2015 00:02', 'dt_from_string ' );
+$dt = dt_from_string('2015-01-31 12:02:03 AM');
+is( output_pref( {dt => $dt} ), '31/01/2015 00:02', 'dt_from_string ' );
+
+subtest 'TimeFormat 12hr' => sub {
+ plan tests => 4;
+
+ $dt = DateTime->new( year => 2020, month => 5, day => 28, hour => 12, minute => 49 );
+ t::lib::Mocks::mock_preference('TimeFormat', '12hr');
+ my $output = output_pref({ dt => $dt, dateformat => 'iso' });
+ $dt = dt_from_string( $output, 'iso' );
+ is( output_pref( {dt => $dt} ), '28/05/2020 12:49 PM', "12 NOON formatted correctly in 12hr format" );
+ t::lib::Mocks::mock_preference('TimeFormat', '24hr');
+ is( output_pref( {dt => $dt} ), '28/05/2020 12:49' , "12 NOON formatted correctly in 24hr format" );
+
+ $dt = DateTime->new( year => 2020, month => 5, day => 28, hour => 0, minute => 49 );
+ t::lib::Mocks::mock_preference('TimeFormat', '12hr');
+ $output = output_pref({ dt => $dt, dateformat => 'iso' });
+ $dt = dt_from_string( $output, 'iso' );
+ is( output_pref( {dt => $dt} ), '28/05/2020 12:49 AM', "12 MIDNIGHT formatted correctly in 12hr format" );
+ t::lib::Mocks::mock_preference('TimeFormat', '24hr');
+ is( output_pref( {dt => $dt} ), '28/05/2020 00:49', "12 MIDNIGHT formatted correctly in 24hr format" );
+};
+
+# output_pref with no parameters, single parameter (no hash)
+is( output_pref(), undef, 'Call output_pref without parameters' );
+try {
+ output_pref( 'no_dt' );
+ ok( 0, 'Passed single invalid dt to output_pref' );
+} catch {
+ is( ref($_), 'Koha::Exceptions::WrongParameter',
+ 'Passed single invalid dt to output_pref' );
+};
+
+# pass invalid dt via hash
+try {
+ output_pref({ dt => 'no_dt' });
+ ok( 0, 'Passed invalid dt in hash to output_pref' );
+} catch {
+ is( ref($_), 'Koha::Exceptions::WrongParameter',
+ 'Passed invalid dt in hash to output_pref' );
+};
+
+# output_pref with str parameter
+is( output_pref( { 'str' => $testdate_iso, dateformat => 'iso', dateonly => 1 } ), $testdate_iso, 'output_pref should handle correctly the iso parameter' );
+my $output_for_invalid_date;
+try {
+ $output_for_invalid_date = output_pref({ str => 'invalid_date' });
+ ok( 0, 'Invalid date string passed to output_pref' );
+} catch {
+ is( ref($_), 'Koha::Exceptions::WrongParameter',
+ 'Invalid date string passed to output_pref' );
+};
+is( $output_for_invalid_date, undef, 'No return value from output_pref' );
+try {
+ output_pref({ 'str' => $testdate_iso, dt => $dt, dateformat => 'iso', dateonly => 1 });
+ ok( 0, 'output_pref should carp if str and dt parameters are passed together' );
+} catch {
+ is( ref($_), 'Koha::Exceptions::WrongParameter', 'output_pref should throw an exception if str and dt parameters are passed together' );
+};
+
+subtest 'flatpickr_date_format' => sub {
+ plan tests => 4;
+
+ t::lib::Mocks::mock_preference('dateformat', 'iso');
+ is( flatpickr_date_format(), 'Y-m-d', 'check fallback to pref' );
+ is( flatpickr_date_format(q{}), undef, 'empty string' );
+ is( flatpickr_date_format('metric'), 'd/m/Y', 'check valid arg' );
+ is( flatpickr_date_format('zz'), undef, 'wrong arg' );
+};
+
+# End of tests