lemonldap-ng/lemonldap-ng-portal/t/66-Lemonldap-NG-Portal-Captcha.t

use Test::More tests => 4;

BEGIN {
    use_ok("Lemonldap::NG::Portal::Simple");
}

# build Lemonldap::NG::Portal::Simple object
my $p = Lemonldap::NG::Portal::Simple->new(
    {
        globalStorage   => 'Apache::Session::File',
        domain          => 'example.com',
        error           => 0,
        applicationList => {},
        locationRules   => {
            'test.example.com' => {
                'default' => "deny",
                '^/ok'    => '$uid eq "kharec"',
                '^/nok'   => '$uid eq "toto"',
            },
        },
        cfgNum      => 42,
        sessionInfo => { uid => "kharec" },

    }
);

## Overload captcha_output and captcha_data
mkdir "./tmp";
$p->{captcha_output} = "./tmp/output";
$p->{captcha_data}   = "./tmp/data";

# create dir
mkdir $p->{captcha_output};
mkdir $p->{captcha_data};

ok( ref($p) eq "Lemonldap::NG::Portal::Simple" );

# try to init a captcha
ok( $p->initCaptcha() );

# try a wrong values to check checkCaptcha method
$p->checkCaptcha( "12D3EO", $p->{captcha_code} );
ok( 1 ne $p->{captcha_result} );

END {
    system("rm -rf ./tmp");
}