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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!perl
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use A::ResultSet::DateMethods1;
A::ResultSet::DateMethods1->run_tests(mysql => {
engine => 'mysql',
utc_now => 'UTC_TIMESTAMP()',
stringified_date => '2014-02-08 04:43:00',
storage_type => 'mysql',
pluck_sql_prefix => \[ 'EXTRACT(SECOND FROM `me`.`a_date`)' ],
pluck_sql_by_part => {
microsecond => \[ 'EXTRACT(MICROSECOND FROM `a_date`)' ],
second => \[ 'EXTRACT(SECOND FROM `a_date`)' ],
minute => \[ 'EXTRACT(MINUTE FROM `a_date`)' ],
hour => \[ 'EXTRACT(HOUR FROM `a_date`)' ],
day_of_month => \[ 'EXTRACT(DAY FROM `a_date`)' ],
week => \[ 'EXTRACT(WEEK FROM `a_date`)' ],
month => \[ 'EXTRACT(MONTH FROM `a_date`)' ],
quarter => \[ 'EXTRACT(QUARTER FROM `a_date`)' ],
year => \[ 'EXTRACT(YEAR FROM `a_date`)' ],
second_microsecond => \[ 'EXTRACT(SECOND_MICROSECOND FROM `a_date`)' ],
minute_microsecond => \[ 'EXTRACT(MINUTE_MICROSECOND FROM `a_date`)' ],
minute_second => \[ 'EXTRACT(MINUTE_SECOND FROM `a_date`)' ],
hour_microsecond => \[ 'EXTRACT(HOUR_MICROSECOND FROM `a_date`)' ],
hour_second => \[ 'EXTRACT(HOUR_SECOND FROM `a_date`)' ],
hour_minute => \[ 'EXTRACT(HOUR_MINUTE FROM `a_date`)' ],
day_microsecond => \[ 'EXTRACT(DAY_MICROSECOND FROM `a_date`)' ],
day_second => \[ 'EXTRACT(DAY_SECOND FROM `a_date`)' ],
day_minute => \[ 'EXTRACT(DAY_MINUTE FROM `a_date`)' ],
day_hour => \[ 'EXTRACT(DAY_HOUR FROM `a_date`)' ],
year_month => \[ 'EXTRACT(YEAR_MONTH FROM `a_date`)' ],
},
pluck_sql_by_part_result => {
microsecond => 0,
second_microsecond => '5000000',
minute_microsecond => '405000000',
minute_second => 405,
hour_microsecond => '30405000000',
hour_second => 30405,
hour_minute => 304,
day_microsecond => '2030405000000',
day_second => '2030405',
day_minute => 20304,
day_hour => 203,
year_month => '201201',
},
add_sql_prefix => \[ 'DATE_ADD(`me`.`a_date`, INTERVAL ? SECOND)', 1 ],
add_sql_by_part => {
day => \[ 'DATE_ADD(`a_date`, INTERVAL ? DAY)', 1 ],
hour => \[ 'DATE_ADD(`a_date`, INTERVAL ? HOUR)', 2 ],
microsecond => \[ 'DATE_ADD(`a_date`, INTERVAL ? MICROSECOND)', 7 ],
minute => \[ 'DATE_ADD(`a_date`, INTERVAL ? MINUTE)', 3 ],
month => \[ 'DATE_ADD(`a_date`, INTERVAL ? MONTH)', 4 ],
quarter => \[ 'DATE_ADD(`a_date`, INTERVAL ? QUARTER)', 8 ],
second => \[ 'DATE_ADD(`a_date`, INTERVAL ? SECOND)', 5 ],
week => \[ 'DATE_ADD(`a_date`, INTERVAL ? WEEK)', 9 ],
year => \[ 'DATE_ADD(`a_date`, INTERVAL ? YEAR)', 6 ],
},
add_sql_by_part_result => {
microsecond => '2012-12-12 00:00:00.000007',
second => qr/^2012-12-12 00:00:05/,
quarter => '2014-12-12 00:00:00',
week => '2013-02-13 00:00:00',
},
subtract_sql_prefix => \[ 'DATE_SUB(`me`.`a_date`, INTERVAL ? SECOND)', 1 ],
subtract_sql_by_part => {
day => \[ 'DATE_SUB(`a_date`, INTERVAL ? DAY)', 1 ],
hour => \[ 'DATE_SUB(`a_date`, INTERVAL ? HOUR)', 2 ],
microsecond => \[ 'DATE_SUB(`a_date`, INTERVAL ? MICROSECOND)', 7 ],
minute => \[ 'DATE_SUB(`a_date`, INTERVAL ? MINUTE)', 3 ],
month => \[ 'DATE_SUB(`a_date`, INTERVAL ? MONTH)', 4 ],
quarter => \[ 'DATE_SUB(`a_date`, INTERVAL ? QUARTER)', 8 ],
second => \[ 'DATE_SUB(`a_date`, INTERVAL ? SECOND)', 5 ],
week => \[ 'DATE_SUB(`a_date`, INTERVAL ? WEEK)', 9 ],
year => \[ 'DATE_SUB(`a_date`, INTERVAL ? YEAR)', 6 ],
},
subtract_sql_by_part_result => {
microsecond => '2012-12-11 23:59:59.999993',
second => qr/^2012-12-11 23:59:55/,
quarter => '2010-12-12 00:00:00',
week => '2012-10-10 00:00:00',
},
});
done_testing;
|
