projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
eliminate dups, RT#85671
[freeside.git]
/
rt
/
t
/
web
/
basic.t
diff --git
a/rt/t/web/basic.t
b/rt/t/web/basic.t
index
31e28c4
..
79c247d
100644
(file)
--- a/
rt/t/web/basic.t
+++ b/
rt/t/web/basic.t
@@
-1,10
+1,8
@@
-#!/usr/bin/perl
use strict;
use warnings;
use strict;
use warnings;
-use Encode;
-use RT::Test tests => 2
3
;
+use RT::Test tests => 2
4
;
my ($baseurl, $agent) = RT::Test->started_ok;
my ($baseurl, $agent) = RT::Test->started_ok;
@@
-28,7
+26,7
@@
my $url = $agent->rt_base_url;
$agent->goto_create_ticket(1);
is ($agent->status, 200, "Loaded Create.html");
$agent->form_name('TicketCreate');
$agent->goto_create_ticket(1);
is ($agent->status, 200, "Loaded Create.html");
$agent->form_name('TicketCreate');
- my $string = Encode::decode
_utf8(
"I18N Web Testing æøå");
+ my $string = Encode::decode
("UTF-8",
"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->field('Subject' => "Ticket with utf8 body");
$agent->field('Content' => $string);
ok($agent->submit, "Created new ticket with $string as Content");
@@
-50,7
+48,7
@@
my $url = $agent->rt_base_url;
is ($agent->status, 200, "Loaded Create.html");
$agent->form_name('TicketCreate');
is ($agent->status, 200, "Loaded Create.html");
$agent->form_name('TicketCreate');
- my $string = Encode::decode
_utf8(
"I18N Web Testing æøå");
+ my $string = Encode::decode
( "UTF-8",
"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->field('Subject' => $string);
$agent->field('Content' => "Ticket with utf8 subject");
ok($agent->submit, "Created new ticket with $string as Content");
@@
-73,16
+71,15
@@
my $url = $agent->rt_base_url;
fields => { TimeWorked => 5, 'TimeWorked-TimeUnits' => "hours" }
);
fields => { TimeWorked => 5, 'TimeWorked-TimeUnits' => "hours" }
);
- $agent->content_contains("to '300'", "5 hours is 300 minutes");
+ $agent->content_contains("5 hours", "5 hours is displayed");
+ $agent->content_contains("300 min", "but minutes is also");
}
}
-TODO: {
- todo_skip("Need to handle mason trying to compile images",1);
-$agent->get( $url."NoAuth/images/test.png" );
+$agent->get( $url."static/images/test.png" );
my $file = RT::Test::get_relocatable_file(
File::Spec->catfile(
my $file = RT::Test::get_relocatable_file(
File::Spec->catfile(
- qw(.. .. share
html NoAuth
images test.png)
+ qw(.. .. share
static
images test.png)
)
);
is(
)
);
is(
@@
-90,7
+87,6
@@
is(
-s $file,
"got a file of the correct size ($file)",
);
-s $file,
"got a file of the correct size ($file)",
);
-}
#
# XXX: hey-ho, we have these tests in t/web/query-builder
#
# XXX: hey-ho, we have these tests in t/web/query-builder