t/search/reentrancy.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8
   9 use DBICTest;
  10
  11 my $schema = DBICTest->init_schema();
  12
  13 my $track_titles = { map { @$_ }
  14   $schema->resultset('Track')
  15           ->search({}, { columns => [qw(trackid title)] })
  16            ->cursor
  17             ->all
  18 };
  19
  20 my $rs = $schema->resultset('Track');
  21
  22 for my $pass (1,2,3) {
  23   for my $meth (qw(search single find)) {
  24
  25     my $id = (keys %$track_titles)[0];
  26     my $tit = delete $track_titles->{$id};
  27
  28     my ($o) = $rs->$meth({ trackid => $id });
  29
  30     is(
  31       $rs->count({ trackid => $id }),
  32       1,
  33       "Count works (pass $pass)",
  34     );
  35
  36     is(
  37       $o->title,
  38       $tit,
  39       "Correct object retrieved via $meth() (pass $pass)"
  40     );
  41
  42     $o->delete;
  43
  44     is(
  45       $rs->count_rs({ trackid => $id })->next,
  46       0,
  47       "Count_rs works (pass $pass)",
  48     );
  49   }
  50 }
  51
  52 done_testing;