Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
1234567891011121314151617181920212223242526use 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 $empire = $tester->empire;my $session_id = $tester->session->id;
my $result;
$result = $tester->post('orestorage', 'build', [$session_id, $empire->home_planet_id, 3, 3]);my $building_id = $result->{result}{building}{id};
$result = $tester->post('orestorage', 'view', [$session_id, $building_id]);ok(exists $result->{result}{ore_stored}{bauxite}, "got ore storage");
END { TestClient->clear_all_test_empires;}