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