set maxConnect in DSN and add docs
[dbsrgits/DBIx-Class-Historic.git] / t / 746sybase.t
CommitLineData
a964a928 1use strict;
2use warnings;
b0b44f97 3no warnings 'uninitialized';
a964a928 4
5use Test::More;
e0b2344f 6use Test::Exception;
a964a928 7use lib qw(t/lib);
8use DBICTest;
9
10my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_${_}" } qw/DSN USER PASS/};
11
7d17f469 12if (not ($dsn && $user)) {
13 plan skip_all =>
14 'Set $ENV{DBICTEST_SYBASE_DSN}, _USER and _PASS to run this test' .
15 "\nWarning: This test drops and creates the tables " .
16 "'artist' and 'bindtype_test'";
17} else {
64f4e691 18 plan tests => (27 + 2)*2;
7d17f469 19}
a964a928 20
6b1f5ef7 21my @storage_types = (
22 'DBI::Sybase',
23 'DBI::Sybase::NoBindVars',
24);
25my $schema;
26
27for my $storage_type (@storage_types) {
28 $schema = DBICTest::Schema->clone;
29
30 unless ($storage_type eq 'DBI::Sybase') { # autodetect
31 $schema->storage_type("::$storage_type");
32 }
b25da5cf 33 $schema->connection($dsn, $user, $pass, {
34 AutoCommit => 1,
35 on_connect_call => [
b25da5cf 36 [ blob_setup => log_on_update => 1 ], # this is a safer option
37 ],
38 });
a964a928 39
6b1f5ef7 40 $schema->storage->ensure_connected;
64f4e691 41 $schema->storage->_dbh->disconnect;
a964a928 42
6b1f5ef7 43 isa_ok( $schema->storage, "DBIx::Class::Storage::$storage_type" );
44
64f4e691 45 lives_ok (sub { $schema->storage->dbh }, 'reconnect works');
46
6b1f5ef7 47 $schema->storage->dbh_do (sub {
48 my ($storage, $dbh) = @_;
49 eval { $dbh->do("DROP TABLE artist") };
6b1f5ef7 50 $dbh->do(<<'SQL');
a964a928 51CREATE TABLE artist (
c5ce7cd6 52 artistid INT IDENTITY PRIMARY KEY,
a964a928 53 name VARCHAR(100),
54 rank INT DEFAULT 13 NOT NULL,
c5ce7cd6 55 charfield CHAR(10) NULL
a964a928 56)
c5ce7cd6 57SQL
6b1f5ef7 58 });
a964a928 59
6b1f5ef7 60 my %seen_id;
a964a928 61
6b1f5ef7 62# so we start unconnected
63 $schema->storage->disconnect;
a964a928 64
65# test primary key handling
6b1f5ef7 66 my $new = $schema->resultset('Artist')->create({ name => 'foo' });
67 ok($new->artistid > 0, "Auto-PK worked");
a964a928 68
6b1f5ef7 69 $seen_id{$new->artistid}++;
a964a928 70
6b1f5ef7 71 for (1..6) {
a964a928 72 $new = $schema->resultset('Artist')->create({ name => 'Artist ' . $_ });
73 is ( $seen_id{$new->artistid}, undef, "id for Artist $_ is unique" );
74 $seen_id{$new->artistid}++;
6b1f5ef7 75 }
a964a928 76
aa56ff9a 77# test simple count
78 is ($schema->resultset('Artist')->count, 7, 'count(*) of whole table ok');
79
80# test LIMIT support
e0b2344f 81 my $it = $schema->resultset('Artist')->search({
82 artistid => { '>' => 0 }
83 }, {
a964a928 84 rows => 3,
85 order_by => 'artistid',
6b1f5ef7 86 });
a964a928 87
b7505130 88 is( $it->count, 3, "LIMIT count ok" );
a964a928 89
6b1f5ef7 90 is( $it->next->name, "foo", "iterator->next ok" );
91 $it->next;
92 is( $it->next->name, "Artist 2", "iterator->next ok" );
93 is( $it->next, undef, "next past end of resultset ok" );
a964a928 94
a0348159 95# now try with offset
96 $it = $schema->resultset('Artist')->search({}, {
97 rows => 3,
98 offset => 3,
99 order_by => 'artistid',
100 });
101
102 is( $it->count, 3, "LIMIT with offset count ok" );
103
104 is( $it->next->name, "Artist 3", "iterator->next ok" );
105 $it->next;
106 is( $it->next->name, "Artist 5", "iterator->next ok" );
107 is( $it->next, undef, "next past end of resultset ok" );
108
92e7a79b 109# now try a grouped count
110 $schema->resultset('Artist')->create({ name => 'Artist 6' })
111 for (1..6);
112
113 $it = $schema->resultset('Artist')->search({}, {
114 group_by => 'name'
115 });
116
117 is( $it->count, 7, 'COUNT of GROUP_BY ok' );
118
6636ad53 119# mostly stole the blob stuff Nniuq wrote for t/73oracle.t
e0b2344f 120 my $dbh = $schema->storage->dbh;
121 {
122 local $SIG{__WARN__} = sub {};
123 eval { $dbh->do('DROP TABLE bindtype_test') };
124
125 $dbh->do(qq[
126 CREATE TABLE bindtype_test
127 (
128 id INT PRIMARY KEY,
129 bytea INT NULL,
130 blob IMAGE NULL,
131 clob TEXT NULL
132 )
133 ],{ RaiseError => 1, PrintError => 1 });
134 }
135
136 my %binstr = ( 'small' => join('', map { chr($_) } ( 1 .. 127 )) );
137 $binstr{'large'} = $binstr{'small'} x 1024;
138
139 my $maxloblen = length $binstr{'large'};
140 note "Localizing LongReadLen to $maxloblen to avoid truncation of test data";
141 local $dbh->{'LongReadLen'} = $maxloblen;
142
143 my $rs = $schema->resultset('BindType');
144 my $id = 0;
145
bc54ca97 146 foreach my $type (qw(blob clob)) {
147 foreach my $size (qw(small large)) {
148 no warnings 'uninitialized';
149 $id++;
150
151 eval { $rs->create( { 'id' => $id, $type => $binstr{$size} } ) };
152 ok(!$@, "inserted $size $type without dying");
153 diag $@ if $@;
154
b0b44f97 155 my $got = eval {
bc54ca97 156 $rs->search({ id=> $id }, { select => [$type] })->single->$type
b0b44f97 157 };
64f4e691 158 diag $@ if $@;
b0b44f97 159 ok($got eq $binstr{$size}, "verified inserted $size $type");
e0b2344f 160 }
161 }
7d17f469 162
163 # try a blob update
164 TODO: {
165 local $TODO = 'updating TEXT/IMAGE does not work yet';
166
167 my $new_str = $binstr{large} . 'foo';
168 eval { $rs->search({ id => $id })->update({ blob => $new_str }) };
169 ok !$@, 'updated blob successfully';
170 diag $@ if $@;
171 ok(eval {
172 $rs->search({ id=> $id }, { select => ['blob'] })->single->blob
173 } eq $new_str, "verified updated blob" );
174 diag $@ if $@;
175 }
6b1f5ef7 176}
a964a928 177
178# clean up our mess
179END {
6b1f5ef7 180 if (my $dbh = eval { $schema->storage->_dbh }) {
181 $dbh->do('DROP TABLE artist');
e0b2344f 182 $dbh->do('DROP TABLE bindtype_test');
6b1f5ef7 183 }
a964a928 184}