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");
}