Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233use lib '../lib';use Test::More tests => 5;use 5.010;
use TestHelper;TestHelper->clear_all_test_empires;
my $tester = TestHelper->new->generate_test_empire;$tester->cleanup;
my $session_id = $tester->session->id;my $home_planet = $tester->empire->home_planet_id;
Lacuna->cache->delete( 'captcha', $session_id );
my $result;ok( ! eval { $tester->session->check_captcha }, "captcha required initially" );
$result = $tester->post('captcha','fetch', [ $session_id ]);ok( exists $result->{result}{guid}, 'Fetch captcha returned guid' );ok( exists $result->{result}{url}, 'Fetch captcha returned url' );
Lacuna->cache->set( 'captcha', $session_id, { guid => 1111, solution => 1111 }, 60 * 30 );
$result = $tester->post( 'captcha','solve', [ $session_id, 1111, 1111 ] );is( $result->{result}, 1, 'Solved captcha' );
ok ( eval {$tester->session->check_captcha } , 'Captcha is valid' );
END { TestHelper->clear_all_test_empires;}