From: Peter Rabbitson Date: Fri, 22 Jan 2010 10:35:15 +0000 (+0000) Subject: Moev failing regression test away from trunk X-Git-Tag: v0.08116~36 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4af4c4ec79434f87a069a313db7846b2bf40530;p=dbsrgits%2FDBIx-Class.git Moev failing regression test away from trunk --- diff --git a/t/76select.t b/t/76select.t index c8b6d38..d7c2b4a 100644 --- a/t/76select.t +++ b/t/76select.t @@ -1,5 +1,5 @@ use strict; -use warnings; +use warnings; use Test::More; use Test::Exception; @@ -9,8 +9,6 @@ use DBIC::SqlMakerTest; my $schema = DBICTest->init_schema(); -plan tests => 24; - my $rs = $schema->resultset('CD')->search({}, { '+select' => \ 'COUNT(*)', @@ -29,16 +27,6 @@ $rs = $schema->resultset('CD')->search({}, lives_ok(sub { $rs->first->get_column('count') }, 'multiple +select/+as columns, 1st rscolumn present'); lives_ok(sub { $rs->first->get_column('addedtitle') }, 'multiple +select/+as columns, 2nd rscolumn present'); -# Tests a regression in ResultSetColumn wrt +select -$rs = $schema->resultset('CD')->search(undef, - { - '+select' => [ \'COUNT(*) AS year_count' ], - order_by => 'year_count' - } -); -my @counts = $rs->get_column('cdid')->all; -ok(scalar(@counts), 'got rows from ->all using +select'); - $rs = $schema->resultset('CD')->search({}, { '+select' => [ \ 'COUNT(*)', 'title' ], @@ -196,3 +184,5 @@ TODO: { 'columns/select/as fold properly on sub-searches', ); } + +done_testing;