+use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_rdbms_ase';
+
use strict;
use warnings;
no warnings 'uninitialized';
use Test::More;
use Test::Exception;
-use DBIx::Class::Optional::Dependencies ();
+use DBIx::Class::_Util 'sigwarn_silencer';
+
use lib qw(t/lib);
use DBICTest;
-my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_${_}" } qw/DSN USER PASS/};
-if (not ($dsn && $user)) {
- plan skip_all => join ' ',
- 'Set $ENV{DBICTEST_SYBASE_DSN}, _USER and _PASS to run this test.',
- 'Warning: This test drops and creates the tables:',
- "'artist', 'money_test' and 'bindtype_test'",
- ;
-};
-
-plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('test_rdbms_ase')
- unless DBIx::Class::Optional::Dependencies->req_ok_for ('test_rdbms_ase');
-
my @storage_types = (
'DBI::Sybase::ASE',
'DBI::Sybase::ASE::NoBindVars',
);
-eval "require DBIx::Class::Storage::$_;" for @storage_types;
my $schema;
-my $storage_idx = -1;
+
+my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_SYBASE_${_}" } qw/DSN USER PASS/};
sub get_schema {
DBICTest::Schema->connect($dsn, $user, $pass, {
my $ping_count = 0;
{
+ require DBIx::Class::Storage::DBI::Sybase::ASE;
my $ping = DBIx::Class::Storage::DBI::Sybase::ASE->can('_ping');
*DBIx::Class::Storage::DBI::Sybase::ASE::_ping = sub {
$ping_count++;
}
for my $storage_type (@storage_types) {
- $storage_idx++;
unless ($storage_type eq 'DBI::Sybase::ASE') { # autodetect
DBICTest::Schema->storage_type("::$storage_type");
$schema->storage->ensure_connected;
- if ($storage_idx == 0 &&
- $schema->storage->isa('DBIx::Class::Storage::DBI::Sybase::ASE::NoBindVars')) {
- # no placeholders in this version of Sybase or DBD::Sybase (or using FreeTDS)
- skip "Skipping entire test for $storage_type - no placeholder support", 1;
- next;
- }
+ # we are going to explicitly test this anyway, just loop through
+ next if
+ $storage_type ne 'DBI::Sybase::ASE::NoBindVars'
+ and
+ $schema->storage->isa('DBIx::Class::Storage::DBI::Sybase::ASE::NoBindVars')
+ ;
isa_ok( $schema->storage, "DBIx::Class::Storage::$storage_type" );
name => { -like => 'bulk artist %' }
});
-# test insert_bulk using populate.
+# test _insert_bulk using populate.
SKIP: {
- skip 'insert_bulk not supported', 4
+ skip '_insert_bulk not supported', 4
unless $storage_type !~ /NoBindVars/i;
lives_ok {
+
+ local $SIG{__WARN__} = sigwarn_silencer(qr/Sybase bulk API operation failed due to character set incompatibility/)
+ unless $ENV{DBICTEST_SYBASE_SUBTEST_RERUN};
+
$schema->resultset('Artist')->populate([
{
name => 'bulk artist 1',
charfield => 'foo',
},
]);
- } 'insert_bulk via populate';
+ } '_insert_bulk via populate';
- is $bulk_rs->count, 3, 'correct number inserted via insert_bulk';
+ is $bulk_rs->count, 3, 'correct number inserted via _insert_bulk';
is ((grep $_->charfield eq 'foo', $bulk_rs->all), 3,
- 'column set correctly via insert_bulk');
+ 'column set correctly via _insert_bulk');
my %bulk_ids;
@bulk_ids{map $_->artistid, $bulk_rs->all} = ();
is ((scalar keys %bulk_ids), 3,
- 'identities generated correctly in insert_bulk');
+ 'identities generated correctly in _insert_bulk');
$bulk_rs->delete;
}
-# make sure insert_bulk works a second time on the same connection
+# make sure _insert_bulk works a second time on the same connection
SKIP: {
- skip 'insert_bulk not supported', 3
+ skip '_insert_bulk not supported', 3
unless $storage_type !~ /NoBindVars/i;
lives_ok {
charfield => 'bar',
},
]);
- } 'insert_bulk via populate called a second time';
+ } '_insert_bulk via populate called a second time';
is $bulk_rs->count, 3,
- 'correct number inserted via insert_bulk';
+ 'correct number inserted via _insert_bulk';
is ((grep $_->charfield eq 'bar', $bulk_rs->all), 3,
- 'column set correctly via insert_bulk');
+ 'column set correctly via _insert_bulk');
$bulk_rs->delete;
}
-# test invalid insert_bulk (missing required column)
+# test invalid _insert_bulk (missing required column)
#
-# There should be a rollback, reconnect and the next valid insert_bulk should
-# succeed.
throws_ok {
+ local $SIG{__WARN__} = sigwarn_silencer(qr/Sybase bulk API operation failed due to character set incompatibility/)
+ unless $ENV{DBICTEST_SYBASE_SUBTEST_RERUN};
+
$schema->resultset('Artist')->populate([
{
charfield => 'foo',
}
]);
- } qr/no value or default|does not allow null|placeholders/i,
+ }
# The second pattern is the error from fallback to regular array insert on
# incompatible charset.
# The third is for ::NoBindVars with no syb_has_blk.
- 'insert_bulk with missing required column throws error';
-
-# now test insert_bulk with IDENTITY_INSERT
+ qr/
+ \Qno value or default\E
+ |
+ \Qdoes not allow null\E
+ |
+ \QUnable to invoke fast-path insert without storage placeholder support\E
+ /xi,
+ '_insert_bulk with missing required column throws error';
+
+# now test _insert_bulk with IDENTITY_INSERT
SKIP: {
- skip 'insert_bulk not supported', 3
+ skip '_insert_bulk not supported', 3
unless $storage_type !~ /NoBindVars/i;
lives_ok {
charfield => 'foo',
},
]);
- } 'insert_bulk with IDENTITY_INSERT via populate';
+ } '_insert_bulk with IDENTITY_INSERT via populate';
is $bulk_rs->count, 3,
- 'correct number inserted via insert_bulk with IDENTITY_INSERT';
+ 'correct number inserted via _insert_bulk with IDENTITY_INSERT';
is ((grep $_->charfield eq 'foo', $bulk_rs->all), 3,
- 'column set correctly via insert_bulk with IDENTITY_INSERT');
+ 'column set correctly via _insert_bulk with IDENTITY_INSERT');
$bulk_rs->delete;
}
$rs->delete;
- # now try insert_bulk with blobs and only blobs
+ # now try _insert_bulk with blobs and only blobs
$new_str = $binstr{large} . 'bar';
lives_ok {
$rs->populate([
clob => $new_str,
},
]);
- } 'insert_bulk with blobs does not die';
+ } '_insert_bulk with blobs does not die';
is((grep $_->blob eq $binstr{large}, $rs->all), 2,
- 'IMAGE column set correctly via insert_bulk');
+ 'IMAGE column set correctly via _insert_bulk');
is((grep $_->clob eq $new_str, $rs->all), 2,
- 'TEXT column set correctly via insert_bulk');
+ 'TEXT column set correctly via _insert_bulk');
- # now try insert_bulk with blobs and a non-blob which also happens to be an
+ # now try _insert_bulk with blobs and a non-blob which also happens to be an
# identity column
SKIP: {
- skip 'no insert_bulk without placeholders', 4
+ skip 'no _insert_bulk without placeholders', 4
if $storage_type =~ /NoBindVars/i;
$rs->delete;
a_memo => 2,
},
]);
- } 'insert_bulk with blobs and explicit identity does NOT die';
+ } '_insert_bulk with blobs and explicit identity does NOT die';
is((grep $_->blob eq $binstr{large}, $rs->all), 2,
- 'IMAGE column set correctly via insert_bulk with identity');
+ 'IMAGE column set correctly via _insert_bulk with identity');
is((grep $_->clob eq $new_str, $rs->all), 2,
- 'TEXT column set correctly via insert_bulk with identity');
+ 'TEXT column set correctly via _insert_bulk with identity');
is_deeply [ map $_->id, $rs->all ], [ 1,2 ],
- 'explicit identities set correctly via insert_bulk with blobs';
+ 'explicit identities set correctly via _insert_bulk with blobs';
}
lives_and {
$rs->update({ blob => undef });
is((grep !defined($_->blob), $rs->all), 2);
} 'blob update to NULL';
+
+ lives_ok {
+ $schema->txn_do(sub {
+ my $created = $rs->create( { clob => "some text" } );
+ });
+ } 'insert blob field in transaction';
+ $ping_count-- if $@; # failure retry triggers a ping
}
# test MONEY column support (and some other misc. stuff)
}
# test insert in an outer transaction when there's an active cursor
- TODO: {
+ {
local $TODO = 'this should work once we have eager cursors';
# clear state, or we get a deadlock on $row->delete
is $ping_count, 0, 'no pings';
-# if tests passed and did so under a non-C lang - let's rerun the test
-if (Test::Builder->new->is_passing and $ENV{LANG} and $ENV{LANG} ne 'C') {
- my $oldlang = $ENV{LANG};
- local $ENV{LANG} = 'C';
+# if tests passed and did so under a non-C LC_ALL - let's rerun the test
+if (Test::Builder->new->is_passing and $ENV{LC_ALL} and $ENV{LC_ALL} ne 'C') {
+
+ pass ("Your LC_ALL is set to $ENV{LC_ALL} - retesting with C");
- pass ("Your lang is set to $oldlang - retesting with C");
+ local $ENV{LC_ALL} = 'C';
+ local $ENV{DBICTEST_SYBASE_SUBTEST_RERUN} = 1;
local $ENV{PATH};
my @cmd = map { $_ =~ /(.+)/ } ($^X, __FILE__);