Beta Shell v2.0

File Manager

~ /usr/share/doc/perl-DBIx-Class/t/search

Name	Size	Perms	Modified	Actions
[ .. / .. ]
deprecated_attributes.t	963 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
distinct.t	2.53 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
empty_attrs.t	1007 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
preserve_original_rs.t	3.74 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
reentrancy.t	862 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
related_has_many.t	711 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
related_strip_prefetch.t	1.16 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
select_chains.t	4.53 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
select_chains_unbalanced.t	3.52 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
stack_cond.t	2.95 KB	-rw-r--r--	2020-06-16 13:11:01	Edit Del
subquery.t	5.06 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
void.t	295 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del

Editing: empty_attrs.t (1007 B)

use strict;
use warnings;

use Test::More;

use lib qw(t/lib);
use DBICTest ':DiffSQL';

my $schema = DBICTest->init_schema();

my $rs = $schema->resultset('Artist')->search(
  [ -and => [ {}, [] ], -or => [ {}, [] ] ],
  {
    select => [],
    columns => {},
    '+columns' => 'artistid',
    join => [ {}, [ [ {}, {} ] ], {} ],
    prefetch => [ [ [ {}, [] ], {} ], {}, [ {} ] ],
    order_by => [],
    group_by => [],
    offset => 0,
  }
);

is_same_sql_bind(
  $rs->as_query,
  '(SELECT me.artistid FROM artist me)',
  [],
);

is_same_sql_bind(
  $rs->count_rs->as_query,
  '(SELECT COUNT(*) FROM artist me)',
  [],
);

is_same_sql_bind(
  $rs->as_subselect_rs->search({}, { columns => 'artistid' })->as_query,
  '(SELECT me.artistid FROM (SELECT me.artistid FROM artist me) me)',
  [],
);

{
  local $TODO = 'Stupid misdesigned as_subselect_rs';
  is_same_sql_bind(
    $rs->as_subselect_rs->as_query,
    $rs->as_subselect_rs->search({}, { columns => 'artistid' })->as_query,
  );
}

done_testing;