Test + fixes for new auth draft

[catagits/Catalyst-Plugin-Authentication.git] / t / live_app.t

diff --git a/t/live_app.t b/t/live_app.t
new file mode 100644 (file)
index 0000000..8802f04
--- /dev/null
+++ b/t/live_app.t
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More 'no_plan';
+
+{
+       package AuthTestApp;
+       use Catalyst qw/
+               Authentication
+               Authentication::Store::Minimal
+               Authentication::Credential::Password
+       /;
+
+       use Test::More;
+       use Test::Exception;
+
+       use Digest::MD5 qw/md5/;
+
+       our $users;
+
+       sub moose : Local {
+               my ( $self, $c ) = @_;
+
+               ok(!$c->user, "no user");
+               ok($c->login( "foo", "s3cr3t" ), "can login with clear");
+               is( $c->user, $users->{foo}, "user object is in proper place");
+               $c->logout;
+
+               ok(!$c->user, "no more user, after logout");
+
+               ok($c->login( "bar", "s3cr3t" ), "can login with crypted");
+               is( $c->user, $users->{bar}, "user object is in proper place");
+               $c->logout;
+
+               ok($c->login("gorch", "s3cr3t"), "can login with hashed");
+               is( $c->user, $users->{gorch}, "user object is in proper place");
+               $c->logout;
+
+               ok(!$c->login( "bar", "bad pass" ), "can't login with bad password");
+               ok(!$c->user, "no user");
+
+               throws_ok { $c->login( "baz", "foo" ) } qr/support.*mechanism/, "can't login without any supported mech";
+       }
+
+       __PACKAGE__->config->{authentication}{users} = $users = {
+               foo => {
+                       password => "s3cr3t",
+               },
+               bar => {
+                       crypted_password => crypt("s3cr3t", "x8"),
+               },
+               gorch => {
+                       hashed_password => md5("s3cr3t"),
+                       hash_algorithm => "MD5",
+               },
+               baz => {},
+       };
+
+       __PACKAGE__->setup;
+}
+
+use Catalyst::Test qw/AuthTestApp/;
+
+get("/moose");