diff options
Diffstat (limited to 'rt/t/web/basic.t')
-rw-r--r-- | rt/t/web/basic.t | 146 |
1 files changed, 0 insertions, 146 deletions
diff --git a/rt/t/web/basic.t b/rt/t/web/basic.t deleted file mode 100644 index bc4d65587..000000000 --- a/rt/t/web/basic.t +++ /dev/null @@ -1,146 +0,0 @@ -#!/usr/bin/perl - -use strict; -use warnings; -use Encode; - -use RT::Test tests => 24; -$RT::Test::SKIP_REQUEST_WORK_AROUND = 1; - -my ($baseurl, $agent) = RT::Test->started_ok; - -my $url = $agent->rt_base_url; -diag $url if $ENV{TEST_VERBOSE}; - -# get the top page -{ - $agent->get($url); - is ($agent->{'status'}, 200, "Loaded a page"); -} - -# test a login -{ - ok($agent->{form}->find_input('user')); - ok($agent->{form}->find_input('pass')); - - ok($agent->{'content'} =~ /username:/i); - $agent->field( 'user' => 'root' ); - $agent->field( 'pass' => 'password' ); - - # the field isn't named, so we have to click link 0 - $agent->click(0); - is( $agent->{'status'}, 200, "Fetched the page ok"); - ok( $agent->{'content'} =~ /Logout/i, "Found a logout link"); -} - -{ - $agent->get($url."Ticket/Create.html?Queue=1"); - is ($agent->{'status'}, 200, "Loaded Create.html"); - $agent->form_number(3); - my $string = Encode::decode_utf8("I18N Web Testing æøå"); - $agent->field('Subject' => "Ticket with utf8 body"); - $agent->field('Content' => $string); - ok($agent->submit, "Created new ticket with $string as Content"); - $agent->content_like( qr{$string} , "Found the content"); - ok($agent->{redirected_uri}, "Did redirection"); - - { - my $ticket = RT::Test->last_ticket; - my $content = $ticket->Transactions->First->Content; - like( - $content, qr{$string}, - 'content is there, API check' - ); - } -} - -{ - $agent->get($url."Ticket/Create.html?Queue=1"); - is ($agent->{'status'}, 200, "Loaded Create.html"); - $agent->form_number(3); - - my $string = Encode::decode_utf8("I18N Web Testing æøå"); - $agent->field('Subject' => $string); - $agent->field('Content' => "Ticket with utf8 subject"); - ok($agent->submit, "Created new ticket with $string as Content"); - $agent->content_like( qr{$string} , "Found the content"); - ok($agent->{redirected_uri}, "Did redirection"); - - { - my $ticket = RT::Test->last_ticket; - is( - $ticket->Subject, $string, - 'subject is correct, API check' - ); - } -} - -# Update time worked in hours -{ - $agent->follow_link( text_regex => qr/Basics/ ); - $agent->submit_form( form_number => 3, - fields => { TimeWorked => 5, 'TimeWorked-TimeUnits' => "hours" } - ); - - like ($agent->{'content'}, qr/to '300'/, "5 hours is 300 minutes"); -} - -# {{{ test an image - -TODO: { - todo_skip("Need to handle mason trying to compile images",1); -$agent->get( $url."NoAuth/images/test.png" ); -my $file = RT::Test::get_relocatable_file( - File::Spec->catfile( - qw(.. .. share html NoAuth images test.png) - ) -); -is( - length($agent->content), - -s $file, - "got a file of the correct size ($file)", -); -} -# }}} - -# {{{ Query Builder tests -# -# XXX: hey-ho, we have these tests in t/web/query-builder -# TODO: move everything about QB there - -my $response = $agent->get($url."Search/Build.html"); -ok( $response->is_success, "Fetched " . $url."Search/Build.html" ); - -# Parsing TicketSQL -# -# Adding items - -# set the first value -ok($agent->form_name('BuildQuery')); -$agent->field("AttachmentField", "Subject"); -$agent->field("AttachmentOp", "LIKE"); -$agent->field("ValueOfAttachment", "aaa"); -$agent->submit("AddClause"); - -# set the next value -ok($agent->form_name('BuildQuery')); -$agent->field("AttachmentField", "Subject"); -$agent->field("AttachmentOp", "LIKE"); -$agent->field("ValueOfAttachment", "bbb"); -$agent->submit("AddClause"); - -ok($agent->form_name('BuildQuery')); - -# get the query -my $query = $agent->current_form->find_input("Query")->value; -# strip whitespace from ends -$query =~ s/^\s*//g; -$query =~ s/\s*$//g; - -# collapse other whitespace -$query =~ s/\s+/ /g; - -is ($query, "Subject LIKE 'aaa' AND Subject LIKE 'bbb'"); - - -1; |