test that show the issue with the last patch on HTTP::Status

Author: Alexis Sukrieh

t/03_route_handler/09_status.t

@@ -0,0 +1,27 @@
+use Test::More import => ['!pass'];
+
+use strict;
+use warnings;
+
+use Dancer;
+use lib 't';
+use TestUtils;
+
+get '/' => sub { 1 };
+
+my @tests = (
+    [ 'GET', '/', '200 OK'],
+);
+plan tests => scalar(@tests);
+
+foreach my $test (@tests) {
+    my ($method, $path, $expected) = @$test;
+ 
+    my $cgi = fake_request($method => $path);
+    Dancer::SharedData->cgi($cgi);
+    my $response = Dancer::Renderer::get_action_response();
+
+    is(Dancer::HTTP::status($response->{status}), "HTTP/1.0 $expected", 
+        "status looks good for $method $path");
+}
+