# test primary key handling
my $new = $schema->resultset('Artist')->create({ name => 'foo' });
+ like $new->artistid, qr/^\d+\z/, 'Auto-PK returned a number';
ok($new->artistid > 0, "Auto-PK worked");
$seen_id{$new->artistid}++;
# mostly stolen from the blob stuff Nniuq wrote for t/73oracle.t
SKIP: {
skip 'TEXT/IMAGE support does not work with FreeTDS', 22
- if $schema->storage->using_freetds;
+ if $schema->storage->_using_freetds;
my $dbh = $schema->storage->_dbh;
{
my $maxloblen = length $binstr{'large'};
- if (not $schema->storage->using_freetds) {
+ if (not $schema->storage->_using_freetds) {
$dbh->{'LongReadLen'} = $maxloblen * 2;
} else {
$dbh->do("set textsize ".($maxloblen * 2));
}
# 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
pass ("Your lang is set to $oldlang - retesting with C");
- my @cmd = ($^X, __FILE__);
+ local $ENV{PATH};
+ my @cmd = map { $_ =~ /(.+)/ } ($^X, __FILE__);
# this is cheating, and may even hang here and there (testing on windows passed fine)
# will be replaced with Test::SubExec::Noninteractive in due course