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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!perl
use strict;
use warnings;
use lib 't/lib';
use Test::More;
use Test::Deep;
use Test::Fatal 'dies_ok', 'lives_ok';
use TestSchema;
my $schema = TestSchema->deploy_or_connect();
$schema->prepopulate;
my $rs = $schema->resultset('Foo')->search({ id => 1 });
my $rs2 = $schema->resultset('Foo')->search({ id => { '>=' => 3 } });
my $rs3 = $schema->resultset('Foo')->search({ id => [ 1, 3 ] });
cmp_deeply [ sort map $_->id, $rs2->union($rs2)->all ], [3, 4, 5],
'union returns correct values';
cmp_deeply [ sort map $_->id, $rs2->union_all($rs2)->all ], [3, 3, 4, 4, 5, 5],
'union returns correct values';
cmp_deeply [ sort map $_->id, $rs2->union($rs)->all ], [1, 3, 4, 5],
'union returns correct values';
cmp_deeply [ sort map $_->id, $rs3->union($rs)->all ], [1, 3],
'union returns correct values';
cmp_deeply [ sort map $_->id, $rs3->union_all($rs)->all ], [1, 1, 3],
'union returns correct values';
cmp_deeply [ sort map $_->id, $rs2->intersect($rs)->all ], [],
'intersect returns correct values';
cmp_deeply [ sort map $_->id, $rs3->intersect($rs)->all ], [1],
'intersect returns correct values';
cmp_deeply [ sort map $_->id, $rs->intersect($rs3)->all ], [1],
'intersect returns correct values';
cmp_deeply [ sort map $_->id, $rs2->intersect($rs3)->all ], [3],
'intersect returns correct values';
cmp_deeply [ sort map $_->id, $rs3->intersect($rs2)->all ], [3],
'intersect returns correct values';
cmp_deeply [ sort map $_->id, $rs2->except($rs)->all ], [3, 4, 5],
'except returns correct values';
cmp_deeply [ sort map $_->id, $rs->except($rs2)->all ], [1],
'except returns correct values';
cmp_deeply [ sort map $_->id, $rs3->except($rs)->all ], [3],
'except returns correct values';
cmp_deeply [ sort map $_->id, $rs->except($rs3)->all ], [],
'except returns correct values';
cmp_deeply [ sort map $_->id, $rs2->except($rs3)->all ], [4, 5],
'except returns correct values';
cmp_deeply [ sort map $_->id, $rs3->except($rs2)->all ], [1],
'except returns correct values';
dies_ok {
my $rs3 = $rs->search(undef, { columns => ['id'] });
$rs->union($rs3) ;
} 'unioning differing ColSpecs dies';
dies_ok {
$rs->union($rs->search_rs(undef, { result_class => 'DBIx::Class::ResultClass::HashRefInflator'})) ;
} 'unioning with differing ResultClasses dies';
dies_ok { $rs->union($schema->resultset('Bar')) } 'unioning differing ResultSets dies';
{
my $rs3 = $rs->search(undef, {
columns => ['id'],
'+select' => [\'"foo" as station'],
'+as' => ['station'],
});
my $rs4 = $schema->resultset('Bar')->search(undef, {
columns => ['id'],
'+select' => [\'"bar" as station'],
'+as' => ['station'],
});
$rs3->result_class('DBIx::Class::ResultClass::HashRefInflator');
$rs4->result_class('DBIx::Class::ResultClass::HashRefInflator');
my $rs5 = $rs3->union($rs4);
lives_ok { [ $rs5->all ] }
q{unioning differing ResultSets does not die when you know what you're doing};
}
done_testing;
|
