forked from movabletype/movabletype
-
Notifications
You must be signed in to change notification settings - Fork 0
/
24-filter.t
135 lines (125 loc) · 3.76 KB
/
24-filter.t
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use lib 't/lib', 'extlib', 'lib', '../lib', '../extlib';
BEGIN {
$ENV{MT_CONFIG} = 'mysql-test.cfg';
}
use Test::More;
use MT::Test qw(:db :data);
use MT;
use MT::Filter;
my $mt = MT->new();
my $filter = MT::Filter->new;
ok( $filter, 'Create a filter' );
ok( $filter->object_ds('entry'), 'Assign object_ds' );
my @count_specs = (
{ name => 'All',
options => {
terms => {},
args => {},
},
results => [ 8, 8 ],
},
{ name => 'Released',
options => {
terms => { status => MT::Entry::RELEASE(), },
args => {},
},
results => [ 6, 6 ],
},
{ name => 'Released and commented',
options => {
terms => { status => MT::Entry::RELEASE(), },
args => {
'join' => MT::Comment->join_on(
'entry_id', undef, { unique => 1 }
),
},
},
results => [ 5, 5 ],
},
{ name => 'Only entries (that author_id is 2) is editable',
options => {
terms => { status => MT::Entry::RELEASE(), },
args => {},
editable_terms => {
status => MT::Entry::RELEASE(),
author_id => 2,
},
},
results => [ 6, 5 ],
},
{ name =>
'Only entries (that author_id is 2) is editable and editable_args is copied from args',
options => {
terms => { status => MT::Entry::RELEASE(), },
args => {
'join' => MT::Comment->join_on(
'entry_id',
{ junk_status => MT::Comment::JUNK },
{ unique => 1 }
),
},
editable_terms => {
status => MT::Entry::RELEASE(),
author_id => 2,
},
},
results => [ 1, 1 ],
},
{ name =>
'Only entries (that author_id is 2) is editable and editable_args is copied from args',
options => {
terms => { status => MT::Entry::RELEASE(), },
args => {},
editable_terms => {
status => MT::Entry::RELEASE(),
author_id => 2,
},
editable_args => {
'join' => MT::Comment->join_on(
'entry_id', undef, { unique => 1 }
),
},
},
results => [ 6, 4 ],
},
{ name =>
'Only released entries are editable. (filterd by editable_filters)',
options => {
terms => {},
args => {},
editable_filters => [
sub {
my ( $objs, $options ) = @_;
grep( $_->status == MT::Entry::RELEASE(), @$objs );
},
],
},
results => [ 8, 6 ],
},
{ name => 'Both editable_terms and editable_filters are specified.',
options => {
terms => { status => MT::Entry::RELEASE(), },
args => {},
editable_terms => {},
editable_filters => [ sub { 1; }, ],
},
error =>
'"editable_terms" and "editable_filters" cannot be specified at the same time.'
},
);
for my $spec (@count_specs) {
my $count_result = $filter->count_objects( %{ $spec->{options} } );
if ($count_result) {
is_deeply( $count_result, $spec->{results}, $spec->{name} );
}
else {
my $errstr = $filter->errstr;
chomp($errstr);
is( $errstr, $spec->{error}, $spec->{name} );
}
}
done_testing;