basic.t 3.34 KB
Newer Older
1
2

use strict;
Ruslan Zakirov's avatar
Ruslan Zakirov committed
3
use warnings;
4
use Encode;
5

6
use RT::Test tests => 24;
Ruslan Zakirov's avatar
Ruslan Zakirov committed
7

8
my ($baseurl, $agent) = RT::Test->started_ok;
9

10
my $url = $agent->rt_base_url;
11

Ruslan Zakirov's avatar
Ruslan Zakirov committed
12
13
14
# get the top page
{
    $agent->get($url);
15
    is ($agent->status, 200, "Loaded a page");
Ruslan Zakirov's avatar
Ruslan Zakirov committed
16
}
17

Ruslan Zakirov's avatar
Ruslan Zakirov committed
18
19
# test a login
{
20
    $agent->login('root' => 'password');
Ruslan Zakirov's avatar
Ruslan Zakirov committed
21
    # the field isn't named, so we have to click link 0
22
    is( $agent->status, 200, "Fetched the page ok");
23
    $agent->content_contains("Logout", "Found a logout link");
Ruslan Zakirov's avatar
Ruslan Zakirov committed
24
}
25

Ruslan Zakirov's avatar
Ruslan Zakirov committed
26
{
27
    $agent->goto_create_ticket(1);
28
    is ($agent->status, 200, "Loaded Create.html");
29
    $agent->form_name('TicketCreate');
30
    my $string = Encode::decode("UTF-8","I18N Web Testing æøå");
Ruslan Zakirov's avatar
Ruslan Zakirov committed
31
32
33
    $agent->field('Subject' => "Ticket with utf8 body");
    $agent->field('Content' => $string);
    ok($agent->submit, "Created new ticket with $string as Content");
34
    $agent->content_contains($string, "Found the content");
Ruslan Zakirov's avatar
Ruslan Zakirov committed
35
36
37
38
39
40
41
42
43
44
45
    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'
        );
    }
}
46

Ruslan Zakirov's avatar
Ruslan Zakirov committed
47
{
48
    $agent->goto_create_ticket(1);
49
    is ($agent->status, 200, "Loaded Create.html");
50
    $agent->form_name('TicketCreate');
Ruslan Zakirov's avatar
Ruslan Zakirov committed
51

52
    my $string = Encode::decode( "UTF-8","I18N Web Testing æøå");
Ruslan Zakirov's avatar
Ruslan Zakirov committed
53
54
55
    $agent->field('Subject' => $string);
    $agent->field('Content' => "Ticket with utf8 subject");
    ok($agent->submit, "Created new ticket with $string as Content");
56
    $agent->content_contains($string, "Found the content");
Ruslan Zakirov's avatar
Ruslan Zakirov committed
57
58
59
60
61
62
63
64
65
66
    ok($agent->{redirected_uri}, "Did redirection");

    {
        my $ticket = RT::Test->last_ticket;
        is(
            $ticket->Subject, $string,
            'subject is correct, API check'
        );
    }
}
67

68
# Update time worked in hours
Ruslan Zakirov's avatar
Ruslan Zakirov committed
69
70
{
    $agent->follow_link( text_regex => qr/Basics/ );
71
    $agent->submit_form( form_name => 'TicketModify',
Ruslan Zakirov's avatar
Ruslan Zakirov committed
72
73
        fields => { TimeWorked => 5, 'TimeWorked-TimeUnits' => "hours" }
    );
74

75
76
    $agent->content_contains("5 hours", "5 hours is displayed");
    $agent->content_contains("300 min", "but minutes is also");
Ruslan Zakirov's avatar
Ruslan Zakirov committed
77
}
78

79

80
$agent->get( $url."static/images/test.png" );
81
82
my $file = RT::Test::get_relocatable_file(
  File::Spec->catfile(
83
    qw(.. .. share static images test.png)
84
85
86
87
88
89
90
91
  )
);
is(
    length($agent->content),
    -s $file,
    "got a file of the correct size ($file)",
);

92
93
94
#
# XXX: hey-ho, we have these tests in t/web/query-builder
# TODO: move everything about QB there
95
96
97
98
99
100
101
102
103
104
105
106
107

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");
108
$agent->submit("AddClause");
109
110
111
112
113
114

# set the next value
ok($agent->form_name('BuildQuery'));
$agent->field("AttachmentField", "Subject");
$agent->field("AttachmentOp", "LIKE");
$agent->field("ValueOfAttachment", "bbb");
115
$agent->submit("AddClause");
116
117
118
119
120
121
122
123
124
125
126
127

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;

Jesse Vincent's avatar
Jesse Vincent committed
128
is ($query, "Subject LIKE 'aaa' AND Subject LIKE 'bbb'");
129