super basic tests for CSS::Declare, also dep

[catagits/Web-Simple.git] / t / post.t

diff --git a/t/post.t b/t/post.t
index 4316808..1caa802 100644 (file)
--- a/t/post.t
+++ b/t/post.t
@@ -10,15 +10,15 @@ use Test::More (
 {
   use Web::Simple 'PostTest';
   package PostTest;
-  dispatch [
-    sub (%foo=&bar~) {
+  dispatch {
+    sub (%:foo=&:bar~) {
       $_[1]->{bar} ||= 'EMPTY';
       [ 200,
         [ "Content-type" => "text/plain" ],
         [ join(' ',@{$_[1]}{qw(foo bar)}) ]
       ]
     },
-  ]
+  }
 }
 
 use HTTP::Request::Common qw(GET POST);