Skip to content

added tests that exhibit issue #980 + fix; also fix #979 #993

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 10 commits into
base: devel
Choose a base branch
from
Open

added tests that exhibit issue #980 + fix; also fix #979 #993

Changes from 1 commit
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
56db152
Update TestAppUnicode.pm
a-adam Jan 22, 2014
9333234
Update 04_charset_server.t
a-adam Jan 22, 2014
d4e0f1d
Update TestAppUnicode.pm
a-adam Jan 22, 2014
8f0e2dc
Update 04_charset_server.t
a-adam Jan 22, 2014
85793b4
Update Handler.pm
a-adam Jan 22, 2014
e30fc13
update test plan
a-adam Jan 22, 2014
1b5cd9f
serializer tests: do not pseudo-test deserialization by supplying "pa…
Jan 27, 2014
cb1a81e
handle deserialization failures properly: return 400. content deseria…
Jan 27, 2014
c851a79
Merge remote branch 'upstream/devel' into devel
Apr 4, 2014
076661f
Dancer::Request unicode bugfix: new parameters left undecoded by para…
Apr 4, 2014
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Update 04_charset_server.t
  • Loading branch information
@a-adam
a-adam committed Jan 22, 2014
commit 93332341d6e35d7062af1cc6acf49f2632e3090e
32 changes: 32 additions & 0 deletions t/12_response/04_charset_server.t
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -54,3 +54,35 @@ Test::TCP::test_tcp(
Dancer->dance();
},
);

Test::TCP::test_tcp(
client => sub {
my $port = shift;
my $ua = LWP::UserAgent->new;

my $req = HTTP::Request::Common::GET("http://127.0.0.1:$port/unicode-json");
my $res = $ua->request($req);

is $res->content_type, 'application/json';
is_deeply(from_json($res->content), { test => "\x{100}" });
},
server => sub {
my $port = shift;

use lib "t/lib";
use TestAppUnicode;
Dancer::Config->load;

set(
# no charset
environment => 'production',
port => $port,
startup_info => 0,
serializer => 'JSON',
);
Dancer->dance;
},
);