From: Rafael Kitover Date: Sat, 14 Nov 2009 08:41:25 +0000 (+0000) Subject: add TODO test for large column list in select X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e38348dda1c10605136ac17a3d17b6bf3d3e724c;p=dbsrgits%2FDBIx-Class-Historic.git add TODO test for large column list in select --- diff --git a/t/747mssql_ado.t b/t/747mssql_ado.t index 227c9b5..d86e4e1 100644 --- a/t/747mssql_ado.t +++ b/t/747mssql_ado.t @@ -11,7 +11,7 @@ my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_MSSQL_ADO_${_}" } qw/DSN USER PAS plan skip_all => 'Set $ENV{DBICTEST_MSSQL_ADO_DSN}, _USER and _PASS to run this test' unless ($dsn && $user); -plan tests => 10; +plan tests => 11; my $schema = DBICTest::Schema->connect($dsn, $user, $pass); $schema->storage->ensure_connected; @@ -39,6 +39,16 @@ ok($new->artistid > 0, 'Auto-PK worked'); my $found = $schema->resultset('Artist')->search({ name => 'foo' })->first; is $found->artistid, $new->artistid, 'search works'; +# try a select with a big column list +TODO: { + local $TODO = 'select with a big column list does not work'; + + $found = $schema->resultset('Artist')->search({ name => 'foo' }, { + select => ['name', map "'foo' foo_$_", 0..50] + })->first; + is $found->artistid, $new->artistid, 'select with big column list'; +} + # create a few more rows for (1..6) { $schema->resultset('Artist')->create({ name => 'Artist ' . $_ });