Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819202122232425262728use Test::More tests => 1;use Test::Deep;use Data::Dumper;use 5.010;
use TestClient;TestClient->clear_all_test_empires;
my $tester = TestClient->new->generate_test_empire;my $session_id = $tester->session->id;my $home_planet_id = $tester->home_planet_id;
my $result;
my $buildings = $tester->post('body', 'get_buildings', [$session_id, $home_planet_id]);my ($pcc_id) = grep { $buildings->{result}{buildings}{$_}{name} eq 'Planetary Command Center'} keys %{$buildings->{result}{buildings}};
$result = $tester->post('planetarycommand', 'view_plans', [$session_id, $pcc_id]);
is(ref $result->{result}{plans}, 'ARRAY', 'can view plans');
END { TestClient->clear_all_test_empires;}