basic authorization support for run_test_request and CLI

[catagits/Web-Simple.git] / t / test-request-basic-auth.t

diff --git a/t/test-request-basic-auth.t b/t/test-request-basic-auth.t
new file mode 100644 (file)
index 0000000..9800554
--- /dev/null
+++ b/t/test-request-basic-auth.t
@@ -0,0 +1,54 @@
+use strictures 1;
+use Test::More;
+
+my $auth_result;
+my @auth_args;
+
+{
+  package TestApp;
+
+  use Web::Simple;
+  use Plack::Middleware::Auth::Basic;
+
+  sub dispatch_request {
+    sub () {
+      Plack::Middleware::Auth::Basic->new(
+        authenticator => sub { 
+          @auth_args = @_; return $auth_result
+        }
+      )
+    },
+    sub () {
+      [ 200, [ 'Content-type' => 'text/plain' ], [ 'Woo' ] ]
+    }
+  }
+}
+
+my $ta = TestApp->new;
+
+my $res = $ta->run_test_request(GET => '/');
+
+is($res->code, '401', 'Auth failed with no user/pass');
+ok(!@auth_args, 'Auth callback never called with no user/pass');
+
+$res = $ta->run_test_request(GET => 'bob:secret@/');
+
+is($res->code, '401', 'Auth failed with bad user/pass');
+is($auth_args[0], 'bob', 'Username passed ok');
+is($auth_args[1], 'secret', 'Password passed ok');
+
+$auth_result = 1;
+@auth_args = ();
+
+$res = $ta->run_test_request(GET => '/');
+
+is($res->code, '401', 'Auth failed with no user/pass');
+ok(!@auth_args, 'Auth callback never called with no user/pass');
+
+$res = $ta->run_test_request(GET => 'bob:secret@/');
+
+is($res->code, '200', 'Auth succeeded with good user/pass');
+is($auth_args[0], 'bob', 'Username passed ok');
+is($auth_args[1], 'secret', 'Password passed ok');
+
+done_testing;