[Rt-commit] rt branch, 3.8-trunk, updated. rt-3.8.5-288-g7429f55

[Ruslan Zakirov]

The branch, 3.8-trunk has been updated
       via  7429f555227fccb6488e87891fa7581a842f5cf0 (commit)
      from  925fc4ca2d9eb75f91b0955fd7a65088febf07f3 (commit)

Summary of changes:
 t/web/basic.t |  162 ++++++++++++++++++++++++---------------------------------
 1 files changed, 68 insertions(+), 94 deletions(-)

- Log -----------------------------------------------------------------
commit 7429f555227fccb6488e87891fa7581a842f5cf0
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date:   Fri Oct 9 23:10:04 2009 +0400

    fix web/basic.t test

diff --git a/t/web/basic.t b/t/web/basic.t
index 85a9398..bc4d655 100644
--- a/t/web/basic.t
+++ b/t/web/basic.t
@@ -1,73 +1,89 @@
 #!/usr/bin/perl
 
 use strict;
-use HTTP::Request::Common;
-use HTTP::Cookies;
-use LWP;
+use warnings;
 use Encode;
 
-use RT::Test tests => 21;
+use RT::Test tests => 24;
+$RT::Test::SKIP_REQUEST_WORK_AROUND = 1;
+
 my ($baseurl, $agent) = RT::Test->started_ok;
-$agent->cookie_jar( HTTP::Cookies->new );
 
-# get the top page
 my $url = $agent->rt_base_url;
 diag $url if $ENV{TEST_VERBOSE};
-$agent->get($url);
-
-is ($agent->{'status'}, 200, "Loaded a page");
-
-
-# {{{ test a login
-
-# follow the link marked "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");
 
+# 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'));
 
-$agent->get($url."Ticket/Create.html?Queue=1");
-is ($agent->{'status'}, 200, "Loaded Create.html");
-$agent->form_number(3);
-# Start with a string containing characters in latin1
-my $string;
-$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");
-like( $agent->{'content'}, qr{$string} , "Found the content");
-ok($agent->{redirected_uri}, "Did redirection");
+    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);
-# Start with a string containing characters in latin1
-$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 Subject");
+{
+    $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'
+        );
+    }
+}
 
-like( $agent->{'content'}, qr{$string} , "Found the content");
+{
+    $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" }
-);
+{
+    $agent->follow_link( text_regex => qr/Basics/ );
+    $agent->submit_form( form_number => 3,
+        fields => { TimeWorked => 5, 'TimeWorked-TimeUnits' => "hours" }
+    );
 
-like ($agent->{'content'}, qr/to &#39;300&#39;/, "5 hours is 300 minutes");
-
-# }}}
+    like ($agent->{'content'}, qr/to &#39;300&#39;/, "5 hours is 300 minutes");
+}
 
 # {{{ test an image
 
@@ -126,47 +142,5 @@ $query =~ s/\s+/ /g;
 
 is ($query, "Subject LIKE 'aaa' AND Subject LIKE 'bbb'");
 
-# - new items go one level down
-# - add items at currently selected level
-# - if nothing is selected, add at end, one level down
-#
-# move left
-# - error if nothing selected
-# - same item should be selected after move
-# - can't move left if you're at the top level
-#
-# move right
-# - error if nothing selected
-# - same item should be selected after move
-# - can always move right (no max depth...should there be?)
-#
-# move up
-# - error if nothing selected
-# - same item should be selected after move
-# - can't move up if you're first in the list
-#
-# move down
-# - error if nothing selected
-# - same item should be selected after move
-# - can't move down if you're last in the list
-#
-# toggle
-# - error if nothing selected
-# - change all aggregators in the grouping
-# - don't change any others
-#
-# delete
-# - error if nothing selected
-# - delete currently selected item
-# - delete all children of a grouping
-# - if delete leaves a node with no children, delete that, too
-# - what should be selected?
-#
-# Clear
-# - clears entire query
-# - clears it from the session, too
-
-# }}}
-
 
 1;

-----------------------------------------------------------------------