diff options
Diffstat (limited to 'rt/t/articles/search-interface.t')
| -rw-r--r-- | rt/t/articles/search-interface.t | 164 |
1 files changed, 164 insertions, 0 deletions
diff --git a/rt/t/articles/search-interface.t b/rt/t/articles/search-interface.t new file mode 100644 index 000000000..bcba3116b --- /dev/null +++ b/rt/t/articles/search-interface.t @@ -0,0 +1,164 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use RT::Test tests => 44; + +use RT::CustomField; +use RT::Queue; +use RT::Ticket; +use_ok 'RT::Class'; +use_ok 'RT::Topic'; +use_ok 'RT::Article'; + +my ($url, $m) = RT::Test->started_ok; + +# Variables to test return values +my ($ret, $msg); + +# Create a test class +my $class = RT::Class->new($RT::SystemUser); +($ret, $msg) = $class->Create('Name' => 'tlaTestClass-'.$$, + 'Description' => 'A general-purpose test class'); +ok($ret, "Test class created"); + + +my $questionCF = RT::CustomField->new($RT::SystemUser); +my $answerCF = RT::CustomField->new($RT::SystemUser); +my $ticketCF = RT::CustomField->new($RT::SystemUser); +($ret, $msg) = $questionCF->Create('Name' => 'Question-'.$$, + 'Type' => 'Text', + 'MaxValues' => 1, + 'LookupType' => 'RT::Class-RT::Article', + 'Description' => 'The question to be answered', + 'Disabled' => 0); +ok($ret, "Question CF created: $msg"); +($ret, $msg) = $answerCF->Create('Name' => 'Answer-'.$$, + 'Type' => 'Text', + 'MaxValues' => 1, + 'LookupType' => 'RT::Class-RT::Article', + 'Description' => 'The answer to the question', + 'Disabled' => 0); +ok($ret, "Answer CF created: $msg"); + +($ret, $msg) = $ticketCF->Create('Name' => 'Class', + 'Type' => 'Text', + 'MaxValues' => 1, + 'LookupType' => 'RT::Queue-RT::Ticket', + 'Disabled' => 0); +ok($ret, "Ticket CF 'Class' created: $msg"); + +# Attach the custom fields to our class +($ret, $msg) = $questionCF->AddToObject($class); +ok($ret, "Question CF added to class: $msg"); +($ret, $msg) = $answerCF->AddToObject($class); +ok($ret, "Answer CF added to class: $msg"); +my ($qid, $aid) = ($questionCF->Id, $answerCF->Id); + +my $global_queue = RT::Queue->new($RT::SystemUser); +($ret, $msg) = $ticketCF->AddToObject($global_queue); +ok($ret, "Ticket CF added globally: $msg"); + +my %cvals = ('article1q' => 'Some question about swallows', + 'article1a' => 'Some answer about Europe and Africa', + 'article2q' => 'Another question about Monty Python', + 'article2a' => 'Romani ite domum', + 'article3q' => 'Why should I eat my supper?', + 'article3a' => 'There are starving children in Africa', + 'article4q' => 'What did Brian originally write?', + 'article4a' => 'This is an answer that is longer than 255 ' + . 'characters so these tests will be sure to use the LargeContent ' + . 'SQL as well as the normal SQL that would be generated if this ' + . 'was an answer that was shorter than 255 characters. This second ' + . 'sentence has a few extra characters to get this string to go ' + . 'over the 255 character boundary. Lorem ipsum.'); + +# Create an article or two with our custom field values. + +my $article1 = RT::Article->new($RT::SystemUser); +my $article2 = RT::Article->new($RT::SystemUser); +my $article3 = RT::Article->new($RT::SystemUser); +my $article4 = RT::Article->new($RT::SystemUser); +($ret, $msg) = $article1->Create(Name => 'First article '.$$, + Summary => 'blah blah 1', + Class => $class->Id, + "CustomField-$qid" => $cvals{'article1q'}, + "CustomField-$aid" => $cvals{'article1a'}, + ); +ok($ret, "article 1 created"); +($ret, $msg) = $article2->Create(Name => 'Second article '.$$, + Summary => 'foo bar 2', + Class => $class->Id, + "CustomField-$qid" => $cvals{'article2q'}, + "CustomField-$aid" => $cvals{'article2a'}, + ); +ok($ret, "article 2 created"); +($ret, $msg) = $article3->Create(Name => 'Third article '.$$, + Summary => 'ping pong 3', + Class => $class->Id, + "CustomField-$qid" => $cvals{'article3q'}, + "CustomField-$aid" => $cvals{'article3a'}, + ); +ok($ret, "article 3 created"); +($ret, $msg) = $article4->Create(Name => 'Fourth article '.$$, + Summary => 'hoi polloi 4', + Class => $class->Id, + "CustomField-$qid" => $cvals{'article4q'}, + "CustomField-$aid" => $cvals{'article4a'}, + ); +ok($ret, "article 4 created"); + +isa_ok($m, 'Test::WWW::Mechanize'); +ok($m->login, 'logged in'); +$m->follow_link_ok( { text => 'Articles', url_regex => qr!^/Articles/! }, + 'UI -> Articles' ); + +# In all of the search results below, the results page should +# have the summary text of the article it occurs in. + +# Case sensitive search on small field. +DoArticleSearch($m, $class->Name, 'Africa'); +$m->text_contains('Search results'); # Did we do a search? +$m->text_contains('blah blah 1'); + +# Case insensitive search on small field. +DoArticleSearch($m, $class->Name, 'africa'); +$m->text_contains('Search results'); # Did we do a search? +$m->text_contains('blah blah 1'); + +# Case sensitive search on large field. +DoArticleSearch($m, $class->Name, 'ipsum'); +$m->text_contains('Search results'); # Did we do a search? +$m->text_contains('hoi polloi 4'); + +# Case insensitive search on large field. +DoArticleSearch($m, $class->Name, 'lorem'); +$m->text_contains('Search results'); # Did we do a search? +TODO:{ + local $TODO = 'Case insensitive search on LONGBLOB not available in MySQL' + if RT->Config->Get('DatabaseType') eq 'mysql'; + $m->text_contains('hoi polloi 4'); +} + +# When you send $m to this sub, it must be on a page with +# a Search link. +sub DoArticleSearch{ + my $m = shift; + my $class_name = shift; + my $search_text = shift; + + $m->follow_link_ok( {text => 'Search'}, 'Articles -> Search'); + $m->follow_link_ok( {text => 'in class '. $class_name}, 'Articles in class '. $class_name); + $m->text_contains('First article'); + + $m->submit_form_ok( { + form_number => 3, + fields => { + 'Article~' => $search_text + }, + }, "Search for $search_text" + ); + return; +} + |