1 files changed, 146 insertions, 0 deletions
diff --git a/rt/t/web/basic.t b/rt/t/web/basic.t
new file mode 100644
index 0000000..bc4d655
--- /dev/null
+++ b/rt/t/web/basic.t
@@ -0,0 +1,146 @@
+#!/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 &#39;300&#39;/, "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;