use strict;
use warnings;
-use Catalyst::Exception;
use Test::More;
use lib 't/lib';
use Storable qw/ freeze /;
use Test::Exception;
-eval "use Catalyst::Model::LDAP";
-plan skip_all => "Catalyst::Model::LDAP not installed" if $@;
-
my $server = LDAPTest::spawn_server();
use_ok("Catalyst::Authentication::Store::LDAP::Backend");
is( $user->my_method, 'frobnitz', "methods on user class work" );
# RT 69615
-diag("stop() server");
$server->stop();
$server = LDAPTest::spawn_server();
ok $frozen_user, 'is frozen';
# RT 69615
-diag("stop() server");
$server->stop();
done_testing;