Commit | Line | Data |
8f7e044c |
1 | use strict; |
68de9438 |
2 | use warnings; |
8f7e044c |
3 | |
4 | use Test::More; |
538878de |
5 | use Test::Exception; |
199fbc45 |
6 | use DBIx::Class::Optional::Dependencies (); |
8f7e044c |
7 | use lib qw(t/lib); |
8 | use DBICTest; |
9 | |
199fbc45 |
10 | plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('test_rdbms_oracle') |
11 | unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_rdbms_oracle'); |
12 | |
8f7e044c |
13 | my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_ORA_${_}" } qw/DSN USER PASS/}; |
14 | |
95cbe02e |
15 | if (not ($dsn && $user && $pass)) { |
8f7e044c |
16 | plan skip_all => 'Set $ENV{DBICTEST_ORA_DSN}, _USER and _PASS to run this test. ' . |
17 | 'Warning: This test drops and creates a table called \'track\''; |
18 | } |
68de9438 |
19 | |
8f7e044c |
20 | # DateTime::Format::Oracle needs this set |
21 | $ENV{NLS_DATE_FORMAT} = 'DD-MON-YY'; |
abc914bd |
22 | $ENV{NLS_TIMESTAMP_FORMAT} = 'YYYY-MM-DD HH24:MI:SSXFF'; |
f27af16d |
23 | $ENV{NLS_LANG} = 'AMERICAN_AMERICA.WE8ISO8859P1'; |
994dc91b |
24 | $ENV{NLS_SORT} = "BINARY"; |
25 | $ENV{NLS_COMP} = "BINARY"; |
8f7e044c |
26 | |
27 | my $schema = DBICTest::Schema->connect($dsn, $user, $pass); |
28 | |
538878de |
29 | # older oracles do not support a TIMESTAMP datatype |
30 | my $timestamp_datatype = ($schema->storage->_server_info->{normalized_dbms_version}||0) < 9 |
31 | ? 'DATE' |
32 | : 'TIMESTAMP' |
33 | ; |
34 | |
8f7e044c |
35 | # Need to redefine the last_updated_on column |
36 | my $col_metadata = $schema->class('Track')->column_info('last_updated_on'); |
37 | $schema->class('Track')->add_column( 'last_updated_on' => { |
38 | data_type => 'date' }); |
abc914bd |
39 | $schema->class('Track')->add_column( 'last_updated_at' => { |
538878de |
40 | data_type => $timestamp_datatype }); |
8f7e044c |
41 | |
42 | my $dbh = $schema->storage->dbh; |
43 | |
abc914bd |
44 | #$dbh->do("alter session set nls_timestamp_format = 'YYYY-MM-DD HH24:MI:SSXFF'"); |
45 | |
8f7e044c |
46 | eval { |
47 | $dbh->do("DROP TABLE track"); |
48 | }; |
538878de |
49 | $dbh->do("CREATE TABLE track (trackid NUMBER(12), cd NUMBER(12), position NUMBER(12), title VARCHAR(255), last_updated_on DATE, last_updated_at $timestamp_datatype)"); |
50 | |
4ca1fd6f |
51 | # TODO is in effect for the rest of the tests |
538878de |
52 | local $TODO = 'FIXME - something odd is going on with Oracle < 9 datetime support' |
53 | if ($schema->storage->_server_info->{normalized_dbms_version}||0) < 9; |
4ca1fd6f |
54 | |
538878de |
55 | lives_ok { |
8f7e044c |
56 | |
57 | # insert a row to play with |
abc914bd |
58 | my $new = $schema->resultset('Track')->create({ trackid => 1, cd => 1, position => 1, title => 'Track1', last_updated_on => '06-MAY-07', last_updated_at => '2009-05-03 21:17:18.5' }); |
8f7e044c |
59 | is($new->trackid, 1, "insert sucessful"); |
60 | |
61 | my $track = $schema->resultset('Track')->find( 1 ); |
62 | |
63 | is( ref($track->last_updated_on), 'DateTime', "last_updated_on inflated ok"); |
64 | |
65 | is( $track->last_updated_on->month, 5, "DateTime methods work on inflated column"); |
66 | |
abc914bd |
67 | #note '$track->last_updated_at => ', $track->last_updated_at; |
68 | is( ref($track->last_updated_at), 'DateTime', "last_updated_at inflated ok"); |
69 | |
70 | is( $track->last_updated_at->nanosecond, 500_000_000, "DateTime methods work with nanosecond precision"); |
71 | |
8f7e044c |
72 | my $dt = DateTime->now(); |
73 | $track->last_updated_on($dt); |
abc914bd |
74 | $track->last_updated_at($dt); |
8f7e044c |
75 | $track->update; |
76 | |
77 | is( $track->last_updated_on->month, $dt->month, "deflate ok"); |
abc914bd |
78 | is( int $track->last_updated_at->nanosecond, int $dt->nanosecond, "deflate ok with nanosecond precision"); |
8f7e044c |
79 | |
9900b569 |
80 | # test datetime_setup |
81 | |
82 | $schema->storage->disconnect; |
83 | |
84 | delete $ENV{NLS_DATE_FORMAT}; |
85 | delete $ENV{NLS_TIMESTAMP_FORMAT}; |
86 | |
87 | $schema->connection($dsn, $user, $pass, { |
88 | on_connect_call => 'datetime_setup' |
89 | }); |
90 | |
91 | $dt = DateTime->now(); |
92 | |
93 | my $timestamp = $dt->clone; |
5d3d8b2a |
94 | $timestamp->set_nanosecond( int 500_000_000 ); |
9900b569 |
95 | |
96 | $track = $schema->resultset('Track')->find( 1 ); |
97 | $track->update({ last_updated_on => $dt, last_updated_at => $timestamp }); |
98 | |
99 | $track = $schema->resultset('Track')->find(1); |
100 | |
101 | is( $track->last_updated_on, $dt, 'DateTime round-trip as DATE' ); |
102 | is( $track->last_updated_at, $timestamp, 'DateTime round-trip as TIMESTAMP' ); |
103 | |
5d3d8b2a |
104 | is( int $track->last_updated_at->nanosecond, int 500_000_000, |
105 | 'TIMESTAMP nanoseconds survived' ); |
106 | |
4ca1fd6f |
107 | } 'dateteime operations executed correctly'; |
538878de |
108 | |
68de9438 |
109 | done_testing; |
110 | |
8f7e044c |
111 | # clean up our mess |
112 | END { |
6918c70e |
113 | if($schema && (my $dbh = $schema->storage->dbh)) { |
65d35121 |
114 | $dbh->do("DROP TABLE track"); |
115 | } |
116 | undef $schema; |
8f7e044c |
117 | } |
118 | |