check in bombing test for subquery-with-as_query
[dbsrgits/DBIx-Class-Historic.git] / t / 746mssql.t
1 use strict;
2 use warnings;  
3
4 use Test::More;
5 use lib qw(t/lib);
6 use DBICTest;
7
8 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_ODBC_${_}" } qw/DSN USER PASS/};
9
10 plan skip_all => 'Set $ENV{DBICTEST_MSSQL_ODBC_DSN}, _USER and _PASS to run this test'
11   unless ($dsn && $user);
12
13 plan tests => 12;
14
15 my $schema = DBICTest::Schema->connect($dsn, $user, $pass, {AutoCommit => 1});
16
17 $schema->storage->ensure_connected;
18 isa_ok( $schema->storage, 'DBIx::Class::Storage::DBI::ODBC::Microsoft_SQL_Server' );
19
20 $schema->storage->dbh_do (sub {
21     my ($storage, $dbh) = @_;
22     eval { $dbh->do("DROP TABLE artist") };
23     $dbh->do(<<'SQL');
24
25 CREATE TABLE artist (
26    artistid INT IDENTITY NOT NULL,
27    name VARCHAR(100),
28    rank INT NOT NULL DEFAULT '13',
29    charfield CHAR(10) NULL,
30    primary key(artistid)
31 )
32
33 SQL
34
35 });
36
37 my %seen_id;
38
39 # fresh $schema so we start unconnected
40 $schema = DBICTest::Schema->connect($dsn, $user, $pass, {AutoCommit => 1});
41
42 # test primary key handling
43 my $new = $schema->resultset('Artist')->create({ name => 'foo' });
44 ok($new->artistid > 0, "Auto-PK worked");
45
46 $seen_id{$new->artistid}++;
47
48 # test LIMIT support
49 for (1..6) {
50     $new = $schema->resultset('Artist')->create({ name => 'Artist ' . $_ });
51     is ( $seen_id{$new->artistid}, undef, "id for Artist $_ is unique" );
52     $seen_id{$new->artistid}++;
53 }
54
55 my $it = $schema->resultset('Artist')->search( {}, {
56     rows => 3,
57     order_by => 'artistid',
58 });
59
60 is( $it->count, 3, "LIMIT count ok" );
61 is( $it->next->name, "foo", "iterator->next ok" );
62 $it->next;
63 is( $it->next->name, "Artist 2", "iterator->next ok" );
64 is( $it->next, undef, "next past end of resultset ok" );
65
66
67 # clean up our mess
68 END {
69     my $dbh = eval { $schema->storage->_dbh };
70     $dbh->do('DROP TABLE artist') if $dbh;
71 }
72