X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746sybase.t;h=91bfb242945717a1f9b6906d78087350b1fe2600;hb=8c4b6c50e873a2b5993d1bfe0f40763d994b7da4;hp=16823ba34cfd24fe3416cffd8b0ded511ca54420;hpb=8242035e7f824106e902a7667d0e82c4ec442b0b;p=dbsrgits%2FDBIx-Class.git diff --git a/t/746sybase.t b/t/746sybase.t index 16823ba..91bfb24 100644 --- a/t/746sybase.t +++ b/t/746sybase.t @@ -1,36 +1,61 @@ use strict; use warnings; +no warnings 'uninitialized'; use Test::More; +use Test::Exception; use lib qw(t/lib); use DBICTest; -use DBIx::Class::Storage::DBI::Sybase::DateTime; my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_${_}" } qw/DSN USER PASS/}; -plan skip_all => 'Set $ENV{DBICTEST_SYBASE_DSN}, _USER and _PASS to run this test' - unless ($dsn && $user); +my $TESTS = 29 + 2; -plan tests => (18 + 4*2)*2; +if (not ($dsn && $user)) { + plan skip_all => + 'Set $ENV{DBICTEST_SYBASE_DSN}, _USER and _PASS to run this test' . + "\nWarning: This test drops and creates the tables " . + "'artist' and 'bindtype_test'"; +} else { + plan tests => $TESTS*2; +} my @storage_types = ( 'DBI::Sybase', 'DBI::Sybase::NoBindVars', ); my $schema; +my $storage_idx = -1; for my $storage_type (@storage_types) { + $storage_idx++; $schema = DBICTest::Schema->clone; unless ($storage_type eq 'DBI::Sybase') { # autodetect $schema->storage_type("::$storage_type"); } - $schema->connection($dsn, $user, $pass, {AutoCommit => 1}); + $schema->connection($dsn, $user, $pass, { + AutoCommit => 1, + on_connect_call => [ + [ blob_setup => log_on_update => 1 ], # this is a safer option + ], + }); $schema->storage->ensure_connected; + $schema->storage->_dbh->disconnect; + + if ($storage_idx == 0 && + $schema->storage->isa('DBIx::Class::Storage::DBI::Sybase::NoBindVars')) { +# no placeholders in this version of Sybase or DBD::Sybase (or using FreeTDS) + my $tb = Test::More->builder; + $tb->skip('no placeholders') for 1..$TESTS; + next; + } isa_ok( $schema->storage, "DBIx::Class::Storage::$storage_type" ); + lives_ok (sub { $schema->storage->dbh }, 'reconnect works'); + $schema->storage->dbh_do (sub { my ($storage, $dbh) = @_; eval { $dbh->do("DROP TABLE artist") }; @@ -65,11 +90,9 @@ SQL is ($schema->resultset('Artist')->count, 7, 'count(*) of whole table ok'); # test LIMIT support - -## avoid quoting bug with NoBindVars for now -# my $it = $schema->resultset('Artist')->search({artistid => { '>' => 0 }}, { - - my $it = $schema->resultset('Artist')->search({}, { + my $it = $schema->resultset('Artist')->search({ + artistid => { '>' => 0 } + }, { rows => 3, order_by => 'artistid', }); @@ -105,37 +128,91 @@ SQL is( $it->count, 7, 'COUNT of GROUP_BY ok' ); -# Test DateTime inflation with DATETIME - my @dt_types = ( - ['DATETIME', '2004-08-21T14:36:48.080Z'], - ['SMALLDATETIME', '2004-08-21T14:36:00.000Z'], # minute precision - ); - - for my $dt_type (@dt_types) { - my ($type, $sample_dt) = @$dt_type; - - eval { $schema->storage->dbh->do("DROP TABLE track") }; - $schema->storage->dbh->do(<<"SQL"); -CREATE TABLE track ( - trackid INT IDENTITY PRIMARY KEY, - cd INT, - position INT, - last_updated_on $type, -) -SQL - ok(my $dt = DBIx::Class::Storage::DBI::Sybase::DateTime - ->parse_datetime($sample_dt)); - - my $row; - ok( $row = $schema->resultset('Track')->create({ - last_updated_on => $dt, - cd => 1, - })); - ok( $row = $schema->resultset('Track') - ->search({ trackid => $row->trackid }, { select => ['last_updated_on'] }) - ->first - ); - is( $row->updated_date, $dt, 'DateTime inflation works' ); +# mostly stolen from the blob stuff Nniuq wrote for t/73oracle.t + SKIP: { + skip 'TEXT/IMAGE support does not work with FreeTDS', 12 + if $schema->storage->_using_freetds; + + my $dbh = $schema->storage->dbh; + { + local $SIG{__WARN__} = sub {}; + eval { $dbh->do('DROP TABLE bindtype_test') }; + + $dbh->do(qq[ + CREATE TABLE bindtype_test + ( + id INT IDENTITY PRIMARY KEY, + bytea INT NULL, + blob IMAGE NULL, + clob TEXT NULL + ) + ],{ RaiseError => 1, PrintError => 0 }); + } + + my %binstr = ( 'small' => join('', map { chr($_) } ( 1 .. 127 )) ); + $binstr{'large'} = $binstr{'small'} x 1024; + + my $maxloblen = length $binstr{'large'}; + note + "Localizing LongReadLen to $maxloblen to avoid truncation of test data"; + local $dbh->{'LongReadLen'} = $maxloblen * 2; + + my $rs = $schema->resultset('BindType'); + my $last_id; + + foreach my $type (qw(blob clob)) { + foreach my $size (qw(small large)) { + no warnings 'uninitialized'; + + my $created = eval { $rs->create( { $type => $binstr{$size} } ) }; + ok(!$@, "inserted $size $type without dying"); + diag $@ if $@; + + $last_id = $created->id if $created; + + my $got = eval { + $rs->find($last_id)->$type + }; + diag $@ if $@; + ok($got eq $binstr{$size}, "verified inserted $size $type"); + } + } + + # blob insert with explicit PK + { + local $SIG{__WARN__} = sub {}; + eval { $dbh->do('DROP TABLE bindtype_test') }; + + $dbh->do(qq[ + CREATE TABLE bindtype_test + ( + id INT PRIMARY KEY, + bytea INT NULL, + blob IMAGE NULL, + clob TEXT NULL + ) + ],{ RaiseError => 1, PrintError => 0 }); + } + my $created = eval { $rs->create( { id => 1, blob => $binstr{large} } ) }; + ok(!$@, "inserted large blob without dying with manual PK"); + diag $@ if $@; + + my $got = eval { + $rs->find(1)->blob + }; + diag $@ if $@; + ok($got eq $binstr{large}, "verified inserted large blob with manual PK"); + + # try a blob update + my $new_str = $binstr{large} . 'mtfnpy'; + eval { $rs->search({ id => 1 })->update({ blob => $new_str }) }; + ok !$@, 'updated blob successfully'; + diag $@ if $@; + $got = eval { + $rs->find(1)->blob + }; + diag $@ if $@; + ok($got eq $new_str, "verified updated blob"); } } @@ -143,6 +220,6 @@ SQL END { if (my $dbh = eval { $schema->storage->_dbh }) { $dbh->do('DROP TABLE artist'); - $dbh->do('DROP TABLE track'); + eval { $dbh->do('DROP TABLE bindtype_test') }; } }