[Bast-commits] r8024 - DBIx-Class/0.08/branches/mssql_rno_pagination/t/sqlahacks/limit_dialects

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2009-12-04 00:52:44 +0000 (Fri, 04 Dec 2009)
New Revision: 8024

Modified:
   DBIx-Class/0.08/branches/mssql_rno_pagination/t/sqlahacks/limit_dialects/rno.t
Log:
still broken rno test, but now it actually tests mssql

Modified: DBIx-Class/0.08/branches/mssql_rno_pagination/t/sqlahacks/limit_dialects/rno.t
===================================================================
--- DBIx-Class/0.08/branches/mssql_rno_pagination/t/sqlahacks/limit_dialects/rno.t	2009-12-04 00:48:00 UTC (rev 8023)
+++ DBIx-Class/0.08/branches/mssql_rno_pagination/t/sqlahacks/limit_dialects/rno.t	2009-12-04 00:52:44 UTC (rev 8024)
@@ -6,15 +6,12 @@
 use DBICTest;
 use DBIC::SqlMakerTest;
 
-my $schema = DBICTest->init_schema;
-$schema->storage_type('::DBI::MSSQL');
+my $schema = DBICTest->init_schema(
+   no_deploy => 1,
+   no_populate => 1,
+   storage_type => '::DBI::MSSQL',
+);
 
-# Trick the sqlite DB to use Top limit emulation
-# We could test all of this via $sq->$op directly,
-# but some conditions need a $rsrc
-delete $schema->storage->_sql_maker->{_cached_syntax};
-$schema->storage->_sql_maker->limit_dialect ('RowNumberOver');
-
 my $rs = $schema->resultset ('BooksInLibrary')->search ({}, { prefetch => 'owner', rows => 1, offset => 3 });
 
 sub default_test_order {