Some test hackage

[dbsrgits/DBIx-Class.git] / t / run / 14mssql.tl

sub run_tests {
my $schema = shift;\r
\r
my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_${_}" } qw/DSN USER PASS/};\r
\r
#warn "$dsn $user $pass";\r
\r
plan skip_all, 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test'\r
  unless ($dsn);\r
\r
plan tests => 4;\r
\r
$schema->class("Schema")->compose_connection( 'MSSQLTest' => $dsn, $user, $pass );\r
\r
my $dbh = MSSQLTest::Artist->storage->dbh;\r
\r
$dbh->do("IF OBJECT_ID('artist', 'U') IS NOT NULL\r
    DROP TABLE artist");\r
\r
$dbh->do("CREATE TABLE artist (artistid INT IDENTITY PRIMARY KEY, name VARCHAR(255));");\r
\r
MSSQLTest::Artist->load_components('PK::Auto::MSSQL');\r
\r
# Test PK\r
my $new = MSSQLTest::Artist->create( { name => 'foo' } );\r
ok($new->artistid, "Auto-PK worked");\r
\r
# Test LIMIT\r
for (1..6) {\r
    MSSQLTest::Artist->create( { name => 'Artist ' . $_ } );\r
}\r
\r
my $it = MSSQLTest::Artist->search( { },\r
    { rows     => 3,\r
      offset   => 2,\r
      order_by => 'artistid'\r
    }\r
);\r
\r
is( $it->count, 3, "LIMIT count ok" );\r
is( $it->next->name, "Artist 2", "iterator->next ok" );\r
$it->next;\r
$it->next;\r
is( $it->next, undef, "next past end of resultset ok" );\r
\r
}\r
\r
1;\r