1--- a/t/03-app_set.t    2010-11-03 11:06:16.000000000 +0000
2+++ b/t/03-app_set.t    2013-03-01 10:41:37.973611312 +0000
3@@ -30,19 +30,19 @@
4 response_content_is [GET => '/'], "Test Module Loaded",
5        "got expected response content for GET /";
6
7-$response = get_response [GET => '/set_test/'.$time];
8+$response = dancer_response [GET => '/set_test/'.$time];
9 is $response->{status}, 200, 'response status is 200 for /set_test';
10 is $response->{content}, $time, "got expected response content for GET
11/set_test";
12
13-$response = get_response [POST => '/get_test', {data => '/set_test/'.$time}];
14+$response = dancer_response [POST => '/get_test', {data =>
15'/set_test/'.$time}];
16 is $response->{status}, 200, 'response status is 200 for /get_test';
17 is $response->{content}, $time, "got expected response content for POST
18/get_test";
19
20-$response = get_response [POST => '/store_test', { key => 'test', data => $time
21}];
22+$response = dancer_response [POST => '/store_test', { key => 'test', data =>
23$time }];
24 is $response->{status}, 200, 'response status is 200 for /store_test';
25 is $response->{content}, $time, "got expected response content for POST
26/store_test";
27
28-$response = get_response [GET => '/fetch_stored', { key => 'test' }];
29+$response = dancer_response [GET => '/fetch_stored', { key => 'test' }];
30 is $response->{status}, 200, 'response status is 200 for /fetch_stored';
31 is $response->{content}, $time, "got expected response content for GET
32/fetch_stored";
33
34