Commit | Line | Data |
fe67d343 |
1 | use strict; |
2 | use lib qw(t/lib); |
3 | use dbixcsl_common_tests; |
804c115d |
4 | use Test::More; |
f9f65ded |
5 | |
fe67d343 |
6 | my $dsn = $ENV{DBICTEST_SYBASE_DSN} || ''; |
7 | my $user = $ENV{DBICTEST_SYBASE_USER} || ''; |
8 | my $password = $ENV{DBICTEST_SYBASE_PASS} || ''; |
9 | |
10 | my $tester = dbixcsl_common_tests->new( |
7cb9244f |
11 | vendor => 'sybase', |
fe67d343 |
12 | auto_inc_pk => 'INTEGER IDENTITY NOT NULL PRIMARY KEY', |
13 | dsn => $dsn, |
14 | user => $user, |
15 | password => $password, |
804c115d |
16 | extra => { |
17 | create => [ |
18 | q{ |
19 | CREATE TABLE sybase_loader_test1 ( |
20 | id INTEGER IDENTITY NOT NULL PRIMARY KEY, |
21 | ts timestamp |
22 | ) |
23 | }, |
24 | ], |
25 | drop => [ qw/ sybase_loader_test1 / ], |
26 | count => 1, |
27 | run => sub { |
28 | my ($schema, $monikers, $classes) = @_; |
29 | |
30 | my $rs = $schema->resultset($monikers->{sybase_loader_test1}); |
31 | |
32 | { |
33 | local $TODO = 'timestamp introspection broken'; |
34 | |
35 | is $rs->result_source->column_info('ts')->{data_type}, |
36 | 'timestamp', |
37 | 'timestamps have the correct data_type'; |
38 | } |
39 | }, |
40 | }, |
fe67d343 |
41 | ); |
42 | |
43 | if( !$dsn || !$user ) { |
44 | $tester->skip_tests('You need to set the DBICTEST_SYBASE_DSN, _USER, and _PASS environment variables'); |
45 | } |
46 | else { |
47 | $tester->run_tests(); |
48 | } |