plan skip_all => 'Set $ENV{DBICTEST_MSSQL_DSN}, _USER and _PASS to run this test'
unless ($dsn);
+{
+ my $srv_ver = DBICTest::Schema->connect($dsn, $user, $pass)->storage->_server_info->{dbms_version};
+ ok ($srv_ver, 'Got a test server version on fresh schema: ' . ($srv_ver||'???') );
+}
+
my $testdb_supports_placeholders = DBICTest::Schema->connect($dsn, $user, $pass)
->storage
->_supports_typeless_placeholders;
my $have_rno = $version >= 9 ? 1 : 0;
- local $storage->{_sql_maker} = undef;
- local $storage->{_sql_maker_opts} = undef;
-
local $storage->{_dbh_details}{info} = {}; # delete cache
- $storage->sql_maker;
-
my $rno_detected =
- ($storage->{_sql_maker_opts}{limit_dialect} eq 'RowNumberOver') ? 1 : 0;
+ ($storage->sql_limit_dialect eq 'RowNumberOver') ? 1 : 0;
ok (($have_rno == $rno_detected),
'row_number() over support detected correctly');