1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
use strict;
use warnings;
use Test::More;
BEGIN { $ENV{TESTAPP_ENCODING} = 'UTF-8' };
# setup library path
use FindBin qw($Bin);
use lib "$Bin/lib";
BEGIN {
if ( !eval { require Test::WWW::Mechanize::Catalyst; Test::WWW::Mechanize::Catalyst->VERSION('0.51')} ) {
plan skip_all => 'Need Test::WWW::Mechanize::Catalyst for this test';
}
}
# make sure testapp works
use_ok('TestAppUnicode');
use Test::WWW::Mechanize::Catalyst 'TestAppUnicode';
my $mech = Test::WWW::Mechanize::Catalyst->new;
{
TestAppUnicode->encoding('UTF-8');
$mech->get_ok('http://localhost/unicode', 'encoding configured ok');
}
done_testing;
|
