X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746mssql.t;h=dafee694d5176c102bba8a8c3f224d34c9c0c078;hb=e6977bbbc3dfb119cc11ee7e235ca58dfef7e7e6;hp=c494be8004f29a62a3bac6d7b0fb9045724b8217;hpb=ebc5c60a4ff45bb9ab7630e2512015b3b7cb2c96;p=dbsrgits%2FDBIx-Class.git diff --git a/t/746mssql.t b/t/746mssql.t index c494be8..dafee69 100644 --- a/t/746mssql.t +++ b/t/746mssql.t @@ -75,7 +75,7 @@ for my $opts_name (keys %opts) { } catch { if ($opts{$opts_name}{required}) { - BAIL_OUT "on_connect_call option '$opts_name' is not functional: $_"; + die "on_connect_call option '$opts_name' is not functional: $_"; } else { skip @@ -251,7 +251,7 @@ SQL my $test_type = "Dialect:$dialect Quoted:$quoted"; # basic limit support - TODO: { + { my $art_rs = $schema->resultset ('Artist'); $art_rs->delete; $art_rs->create({ name => 'Artist ' . $_ }) for (1..6); @@ -398,7 +398,7 @@ SQL is ($owners->page(1)->count, 3, "$test_type: has-many prefetch returns correct count"); is ($owners->page(3)->count, 2, "$test_type: has-many prefetch returns correct count"); - TODO: { + { local $TODO = "Top-limit does not work when your limit ends up past the resultset" if $dialect eq 'Top'; is ($owners->page(3)->all, 2, "$test_type: has_many prefetch returns correct number of rows"); @@ -452,7 +452,7 @@ SQL is ($books->page(1)->count, 2, "$test_type: Prefetched grouped search returns correct count"); is ($books->page(2)->count, 1, "$test_type: Prefetched grouped search returns correct count"); - TODO: { + { local $TODO = "Top-limit does not work when your limit ends up past the resultset" if $dialect eq 'Top'; is ($books->page(2)->all, 1, "$test_type: Prefetched grouped search returns correct number of rows"); @@ -522,7 +522,7 @@ CREATE TABLE money_test ( SQL }); - TODO: { + { my $freetds_and_dynamic_cursors = 1 if $opts_name eq 'use_dynamic_cursors' && $schema->storage->_using_freetds;