view release on metacpan or  search on metacpan

t/44-CertificateResetByMail-LDAP.t  view on Meta::CPAN

use warnings;
use Test::More;
use strict;
use IO::String;
use File::Copy;

use Lemonldap::NG::Portal::Main::Constants qw(
  PE_RESETCERTIFICATE_INVALID PE_RESETCERTIFICATE_FORMEMPTY
  PE_RESETCERTIFICATE_FIRSTACCESS
);

BEGIN {
    eval {
        require 't/test-lib.pm';
        require 't/smtp.pm';
    };
}

my ( $res, $user );
my $maintests = 12;

no warnings 'once';

SKIP: {
    eval
'require Email::Sender::Simple; use GD::SecurityImage; use Image::Magick; use Net::SSLeay;
use DateTime::Format::RFC3339;';
    if ($@) {
        skip 'Missing dependencies ' . $@, $maintests;

    }

    skip 'LLNGTESTLDAP is not set', $maintests unless ( $ENV{LLNGTESTLDAP} );
    require 't/test-ldap.pm';

    my $client = LLNG::Manager::Test->new( {
            ini => {
                logLevel              => 'error',
                useSafeJail           => 1,
                portalDisplayRegister => 1,
                authentication        => 'SSL',
                userDB                => 'LDAP',
                passwordDB            => 'LDAP',
                registerDB            => 'LDAP',
                ldapServer            => $main::slapd_url,
                ldapBase              => 'ou=users,dc=example,dc=com',
                managerDn             => 'cn=admin,dc=example,dc=com',
                managerPassword       => 'admin',
                captcha_mail_enabled  => 0,
                portalDisplayCertificateResetByMail        => 1,
                certificateResetByMailCeaAttribute         => 'description',
                certificateResetByMailCertificateAttribute =>
                  'userCertificate;binary',
                certificateResetByMailStep1Body =>
'Click here <a href="$url">  to confirm your mail. It will expire $expMailDate',
                certificateResetByMailStep2Body =>
                  'Certificate successfully reset!',
                certificateValidityDelay => 30

            }
        }
    );

    # Test form
    # ------------------------
    ok( $res = $client->_get( '/certificateReset', accept => 'text/html' ),
        'Reset form', );
    my ( $host, $url, $query ) = expectForm( $res, '#', undef, 'mail' );

    $query = 'mail=dwho%40badwolf.org';

    # Post email
    ok(
        $res = $client->_post(
            '/certificateReset', IO::String->new($query),
            length => length($query),
            accept => 'text/html'
        ),
        'Post mail'
    );

    ok( mail() =~ m#a href="http://auth.example.com/certificateReset\?(.*?)"#,
        'Found link in mail' );
    $query = $1;
    my $querymail = $query;
    ok(