forked from movabletype/movabletype
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path100-cms_search.t
109 lines (97 loc) · 4.95 KB
/
100-cms_search.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
#!/usr/bin/perl
use strict;
use warnings;
use lib 't/lib', 'lib', 'extlib';
use Test::More tests => 40;
BEGIN {
$ENV{MT_APP} = 'MT::App::CMS';
}
use MT;
use MT::Author;
use MT::Blog;
use MT::Test qw( :app :db :data );
my $blog = MT::Blog->load(1);
my $user = MT::Author->load(2);
my ($app, $out);
# global search for a template
# __mode=search_replace&_type=template&do_search=1&search=hello
$app = _run_app(
'MT::App::CMS',
{ __test_user => $user, __mode => 'search_replace', do_search => 1, search => 'movable', _type => 'template' }
);
$out = delete $app->{__test_output};
ok ($out, "Global template search results are present");
ok ($out !~ /Publish selected templates/i, "Publish templates button isn't present for global template search");
ok ($out =~ /Delete selected templates/i, "Delete templates button is present");
ok ($out =~ /Refresh template\(s\)/i, "Refresh templates dropdown is present");
ok ($out =~ /Clone template\(s\)/i, "Clone templates dropdown is present");
# blog search for a template
# __mode=search_replace&_type=template&do_search=1&search=hello&blog_id=1
$app = _run_app(
'MT::App::CMS',
{ __test_user => $user, __mode => 'search_replace', blog_id => $blog->id, do_search => 1, search => 'index', _type => 'template' }
);
$out = delete $app->{__test_output};
ok ($out, "Blog template search results are present");
ok ($out =~ /Publish selected templates/i, "Publish templates button is present");
ok ($out =~ /Delete selected templates/i, "Delete templates button is present");
ok ($out =~ /Refresh template\(s\)/i, "Refresh templates dropdown is present");
ok ($out =~ /Clone template\(s\)/i, "Clone templates dropdown is present");
# global search for an entry
# __mode=search_replace&_type=entry&do_search=1&search=hello
$app = _run_app(
'MT::App::CMS',
{ __test_user => $user, __mode => 'search_replace', do_search => 1, search => 'rain', _type => 'entry' }
);
$out = delete $app->{__test_output};
ok ($out, "Global entry search results are present");
ok ($out =~ /Republish selected entries/i, "Publish entries button is present");
ok ($out =~ /Delete selected entries/i, "Delete entries button is present");
ok ($out =~ /Add tags/i, "Add tags dropdown is present");
ok ($out =~ /Remove tags/i, "Remove tags dropdown is present");
# blog seaarch for an entry
# __mode=search_replace&_type=entry&do_search=1&search=hello&blog_id=1
$app = _run_app(
'MT::App::CMS',
{ __test_user => $user, __mode => 'search_replace', blog_id => $blog->id, do_search => 1, search => 'rain', _type => 'entry' }
);
$out = delete $app->{__test_output};
ok ($out, "Blog entry search results are present");
ok ($out =~ /Republish selected entries/i, "Publish entries button is present");
ok ($out =~ /Delete selected entries/i, "Delete entries button is present");
ok ($out =~ /Unpublish entries/i, "Unpublish entries dropdown is present");
ok ($out =~ /Add tags/i, "Add tags dropdown is present");
ok ($out =~ /Remove tags/i, "Remove tags dropdown is present");
ok ($out =~ /Batch edit entries/i, "Batch edit entries dropdown is present");
# global search for a comment
# __mode=search_replace&_type=comment&do_search=1&search=hello
$app = _run_app(
'MT::App::CMS',
{ __test_user => $user, __mode => 'search_replace', do_search => 1, search => 'comment', _type => 'comment' }
);
$out = delete $app->{__test_output};
ok ($out, "Global comment search results are present");
ok ($out =~ /Publish selected comments/i, "Publish comments button is present");
ok ($out =~ /Delete selected comments/i, "Delete comments button is present");
ok ($out =~ /Report selected comments as spam/i, "Spam comments button is present");
ok ($out =~ /Unpublish comment\(s\)/i, "Unpublish comments dropdown is present");
ok ($out =~ /Trust commenter\(s\)/i, "Trust commenter dropdown is present");
ok ($out =~ /Untrust commenter\(s\)/i, "Untrust commenter dropdown is present");
ok ($out =~ /Ban commenter\(s\)/i, "Ban commenter dropdown is present");
ok ($out =~ /Unban commenter\(s\)/i, "Unban commenter dropdown is present");
# blog search for a comment
# __mode=search_replace&_type=comment&do_search=1&search=hello&blog_id=1
$app = _run_app(
'MT::App::CMS',
{ __test_user => $user, __mode => 'search_replace', blog_id => $blog->id, do_search => 1, search => 'comment', _type => 'comment' }
);
$out = delete $app->{__test_output};
ok ($out, "Blog comment search results are present");
ok ($out =~ /Publish selected comments/i, "Publish comments button is present");
ok ($out =~ /Delete selected comments/i, "Delete comments button is present");
ok ($out =~ /Report selected comments as spam/i, "Spam comments button is present");
ok ($out =~ /Unpublish comment\(s\)/i, "Unpublish comments dropdown is present");
ok ($out =~ /Trust commenter\(s\)/i, "Trust commenter dropdown is present");
ok ($out =~ /Untrust commenter\(s\)/i, "Untrust commenter dropdown is present");
ok ($out =~ /Ban commenter\(s\)/i, "Ban commenter dropdown is present");
ok ($out =~ /Unban commenter\(s\)/i, "Unban commenter dropdown is present");