Permalink
Browse files

TODO test

  • Loading branch information...
1 parent 6df277f commit 9c505c0eae8e440573888ec9312aba14e06e64a1 @moritz committed Jun 26, 2010
Showing with 3 additions and 1 deletion.
  1. +3 −1 t/basic.t
View
@@ -14,9 +14,10 @@ BEGIN { @*INC.push('t/lib', 'lib') };
use CGI::Application;
-sub response-like($app, Mu $header, Mu $body, $comment) {
+sub response-like($app, Mu $header, Mu $body, $comment, :$todo-header) {
my $output = $app.run;
my @hb = $output.split(rx{\r?\n\r?\n});
+ todo($todo-header) if $todo-header;
ok ?(@hb[0] ~~ $header), "$comment (header)" or diag "Got: @hb[0].perl()";
ok ?(@hb[1] ~~ $body), "$comment (body)" or diag "Got: @hb[1].perl()";
}
@@ -58,6 +59,7 @@ use TestApp;
rx{^'Status: 302'},
rx{^'Hello World: redirect_test'},
'TestApp, redirect_test',
+ :todo-header('CGI style header munging'),
);
}

0 comments on commit 9c505c0

Please sign in to comment.