X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746mssql.t;h=e4a9de09d1387488b5112d667508ea5372a2e073;hb=b58ec618e9efcae245aed37529738180c551db91;hp=e2c3abd2b0b0bd78020b65557ac158f157e3a2f2;hpb=ceb5f4120b53e71772d8158215e0644961b1a92c;p=dbsrgits%2FDBIx-Class.git diff --git a/t/746mssql.t b/t/746mssql.t index e2c3abd..e4a9de0 100644 --- a/t/746mssql.t +++ b/t/746mssql.t @@ -3,7 +3,6 @@ use warnings; use Test::More; use Test::Exception; -use Test::Warn; use Try::Tiny; use DBIx::Class::Optional::Dependencies (); @@ -103,35 +102,11 @@ SQL ok(($new->artistid||0) > 0, "Auto-PK worked for $opts_name"); -# Test graceful error handling if not supporting multiple active statements - if( $opts_name eq 'plain' ) { - - # keep the first cursor alive (as long as $rs is alive) - my $rs = $schema->resultset("Artist"); - - my $a1 = $rs->next; - - my $a2; - - warnings_are { - # second cursor, invalidates $rs, but it doesn't - # matter as long as we do not try to use it - $a2 = $schema->resultset("Artist")->next; - } [], 'No warning on retry due to previous cursor invalidation'; - - is_deeply( - { $a1->get_columns }, - { $a2->get_columns }, - 'Same data', - ); - - dies_ok { - $rs->next; - } 'Invalid cursor did not silently return garbage'; - } - # Test multiple active statements - else { + SKIP: { + skip 'not a multiple active statements configuration', 1 + if $opts_name eq 'plain'; + $schema->storage->ensure_connected; lives_ok {