From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

XMIKEW / DateTime-Format-MySQL-0.08 / t / 01format.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

              
use strict;
use Test::More tests => 12;
use DateTime::Format::MySQL;
my $mysql = 'DateTime::Format::MySQL';
my $dt = DateTime->new( year   => 2000,
                        month  => 5,
                        day    => 6,
                        hour   => 15,
                        minute => 23,
                        second => 44,
                        time_zone => 'UTC',
                      );
{
    is( $mysql->format_date($dt), '2000-05-06', 'format_date' );
    is( $mysql->format_datetime($dt), '2000-05-06 15:23:44', 'format_datetime' );
    is( $mysql->format_time($dt), '15:23:44', 'format_time' );
}
my $dt_hires = DateTime->new( year   => 2000,
                        month  => 5,
                        day    => 6,
                        hour   => 15,
                        minute => 23,
                        second => 44,
                        nanosecond => 123_456_000,
                        time_zone => 'UTC',
                      );
{
    is( $mysql->format_time($dt_hires), '15:23:44.123456', 'format_time hires keeps micros');
    $dt_hires->set(nanosecond => 123_456_789);
    is( $mysql->format_time($dt_hires), '15:23:44.123456', 'format_time hires truncates nanos');
    $dt_hires->set(nanosecond => 1);
    is( $mysql->format_time($dt_hires), '15:23:44', 'format_time hires drops nanos < 1 micro');
    $dt_hires->set(nanosecond => 500_000_000);
    is( $mysql->format_time($dt_hires), '15:23:44.500000', 'format_time hires keeps 6 digit precision');
}
$dt_hires = DateTime->new( year   => 2000,
                        month  => 5,
                        day    => 6,
                        hour   => 15,
                        minute => 23,
                        second => 44,
                        nanosecond => 12_345_000,
                        time_zone => 'UTC',
                      );
{
    is( $mysql->format_time($dt_hires), '15:23:44.012345', 'format_time hires keeps micros');
    $dt_hires->set(nanosecond => 12_345_000);
    is( $mysql->format_time($dt_hires), '15:23:44.012345', 'format_time hires truncates nanos');
    $dt_hires->set(nanosecond => 1);
    is( $mysql->format_time($dt_hires), '15:23:44', 'format_time hires drops nanos < 1 micro');
    $dt_hires->set(nanosecond => 1_000);
    is( $mysql->format_time($dt_hires), '15:23:44.000001', 'format_time hires ok with 1 micro');
    $dt_hires->set(nanosecond => 500_000_000);
    is( $mysql->format_time($dt_hires), '15:23:44.500000', 'format_time hires keeps 6 digit precision');
}