use Test::More; use strict; use IO::String; BEGIN { eval { require 't/test-lib.pm'; require 't/smtp.pm'; }; } my $maintests = 28; my ( $res, $user, $pwd, $host, $url, $query ); my $mailSend = 0; SKIP: { eval 'require Email::Sender::Simple;use GD::SecurityImage;use Image::Magick;use Text::Unidecode'; if ($@) { skip 'Missing dependencies', $maintests; } my $client = LLNG::Manager::Test->new( { ini => { logLevel => 'error', useSafeJail => 1, portalDisplayRegister => 1, registerDB => 'Demo', captcha_register_enabled => 1, portalMainLogo => 'common/logos/logo_llng_old.png', } } ); # Try to register with an alredy existing mail address # ------------------------ ok( $res = $client->_get( '/register', accept => 'text/html' ), 'Unauth request', ); ( $host, $url, $query ) = expectForm( $res, '#', undef, 'firstname', 'lastname', 'mail' ); ok( $query =~ s/^.*token=([^&]+).*$/token=$1&firstname=who&lastname=doctor&mail=dwho%40badwolf.org/, 'Token found' ); my $token; ok( $token = $1, ' Token value is defined' ); ok( $res->[2]->[0] =~ m#[2]->[0] ); ok( $res->[2]->[0] =~ m##, ' Renew Captcha button found' ) or explain( $res->[2]->[0], 'Renew captcha button not found' ); ok( $res->[2]->[0] =~ /captcha\.(?:min\.)?js/, 'Get captcha javascript' ); $query .= "&captcha=$captcha"; ok( $res = $client->_post( '/register', IO::String->new($query), length => length($query), accept => 'text/html' ), 'Ask to create account' ); ok( $res->[2]->[0] =~ q%%, 'Rejected -> Mail already exists' ); ok( $res->[2]->[0] !~ m%