File: ResultsExist.t

package info (click to toggle)
libdbix-class-helpers-perl 2.036000-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 1,008 kB
  • sloc: perl: 5,041; sql: 537; makefile: 7
file content (71 lines) | stat: -rw-r--r-- 2,022 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
#!perl

use strict;
use warnings;

use Test::Roo;

use lib 't/lib';

with 'A::Role::TestConnect';

my $ran = 0;

top_test 'basic functionality' => sub {
  my $self = shift;
  my $schema = $self->schema;
  SKIP: {
    skip 'cannot test without a connection', 1 unless $self->connected;

    $ran++ if $self->engine eq 'SQLite';
    $schema->prepopulate;

    my $rs = $schema->resultset( 'Foo' );
    my $rs_true  = $schema->resultset( 'Foo' )->search({ id => { '>' => 0 } });
    my $rs_false = $schema->resultset( 'Foo' )->search({ id => { '<' => 0 } });

    ok( $rs_true ->results_exist, 'check rs has some results' );
    ok(!$rs_false->results_exist, 'and check that rs has no results' );

    ok( $rs->results_exist({ id => { '>' => 0 } }), 'check that query has some results' );
    ok(!$rs->results_exist({ id => { '<' => 0 } }), 'and check that query has no results' );

    is_deeply(
       [
          $rs->search({}, { order_by => 'id', columns => {

             id => "id",

             has_lesser => $rs->search(
                { 'correlation.id' => { '<' => { -ident => "me.id" } } },
                { alias => 'correlation' }
             )->results_exist_as_query,

             has_greater => $rs->search(
                { 'correlation.id' => { '>' => { -ident => "me.id" } } },
                { alias => 'correlation' }
             )->results_exist_as_query,

          }})->hri->all
       ],
       [
          { id => 1, has_lesser => 0, has_greater => 1 },
          { id => 2, has_lesser => 1, has_greater => 1 },
          { id => 3, has_lesser => 1, has_greater => 1 },
          { id => 4, has_lesser => 1, has_greater => 1 },
          { id => 5, has_lesser => 1, has_greater => 0 },
       ],
       "Correlated-existence works",
    );
  }
};

run_me(SQLite => {
   engine => 'SQLite',
   connect_info => [ 'dbi:SQLite::memory:'],
});
run_me(Pg     => { engine => 'Pg'     });
run_me(mysql  => { engine => 'mysql'  });

ok $ran, 'tests were run against default SQLite';
done_testing;