Beta Shell v2.0

File Manager

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

Name	Size	Perms	Modified	Actions
[ .. / .. ]
attrs_untouched.t	790 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
correlated.t	7.71 KB	-rw-r--r--	2020-06-13 16:33:22	Edit Del
count.t	3.57 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
diamond.t	2.64 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
double_prefetch.t	1.23 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
empty_cache.t	995 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
false_colvalues.t	843 B	-rw-r--r--	2020-06-13 16:33:22	Edit Del
grouped.t	15.15 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
incomplete.t	6.38 KB	-rw-r--r--	2020-06-13 16:33:22	Edit Del
join_type.t	1.49 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
lazy_cursor.t	2.46 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
manual.t	14.4 KB	-rw-r--r--	2020-06-13 16:33:22	Edit Del
multiple_hasmany.t	1.84 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
multiple_hasmany_torture.t	6.06 KB	-rw-r--r--	2020-06-13 16:33:22	Edit Del
o2m_o2m_order_by_with_limit.t	5.99 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
one_to_many_to_one.t	782 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
refined_search_on_relation.t	851 B	-rw-r--r--	2020-03-29 18:33:33	Edit Del
restricted_children_set.t	2.3 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
standard.t	9.09 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
via_search_related.t	6.98 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del
with_limit.t	9.09 KB	-rw-r--r--	2020-03-29 18:33:33	Edit Del

Editing: lazy_cursor.t (2.46 KB)

use strict;
use warnings;

use Test::More;
use Test::Warn;
use Test::Exception;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema();

my $rs = $schema->resultset('Artist')->search({}, {
  select => 'artistid',
  prefetch => { cds => 'tracks' },
});

my $initial_artists_cnt = $rs->count;

# create one extra artist with just one cd with just one track
# and then an artist with nothing at all
# the implicit order by me.artistid will get them back in correct order
$rs->create({
  name => 'foo',
  cds => [{
    year => 2012,
    title => 'foocd',
    tracks => [{
      title => 'footrack',
    }]
  }],
});
$rs->create({ name => 'bar' });
$rs->create({ name => 'baz' });

# make sure we are reentrant, and also check with explicit order_by
for (undef, undef, 'me.artistid') {
  $rs = $rs->search({}, { order_by => $_ }) if $_;

  for (1 .. $initial_artists_cnt) {
    is ($rs->next->artistid, $_, 'Default fixture artists in order') || exit;
  }

  my $foo_artist = $rs->next;
  is ($foo_artist->cds->next->tracks->next->title, 'footrack', 'Right track');

  is (
    [$rs->cursor->next]->[0],
    $initial_artists_cnt + 3,
    'Very last artist still on the cursor'
  );

  is_deeply ([$rs->cursor->next], [], 'Nothing else left');

  is ($rs->next->artistid, $initial_artists_cnt + 2, 'Row stashed in resultset still accessible');
  is ($rs->next, undef, 'Nothing left in resultset either');

  $rs->reset;
}

$rs->next;

my @objs = $rs->all;
is (@objs, $initial_artists_cnt + 3, '->all resets everything correctly');
is ( ($rs->cursor->next)[0], 1, 'Cursor auto-rewound after all()');
is ($rs->{_stashed_rows}, undef, 'Nothing else left in $rs stash');

my $unordered_rs = $rs->search({}, { order_by => 'cds.title' });

warnings_exist {
  ok ($unordered_rs->next, 'got row 1');
} qr/performed an eager cursor slurp underneath/, 'Warned on auto-eager cursor';

is_deeply ([$unordered_rs->cursor->next], [], 'Nothing left on cursor, eager slurp');
ok ($unordered_rs->next, "got row $_")  for (2 .. $initial_artists_cnt + 3);
is ($unordered_rs->next, undef, 'End of RS reached');
is ($unordered_rs->next, undef, 'End of RS not lost');

{
  my $non_uniquely_ordered_constrained = $schema->resultset('CD')->search(
    { artist => 1 },
    { order_by => [qw( me.genreid me.title me.year )], prefetch => 'tracks' },
  );

  isa_ok ($non_uniquely_ordered_constrained->next, 'DBICTest::CD' );

  ok( defined $non_uniquely_ordered_constrained->cursor->next, 'Cursor not exhausted' );
}

done_testing;