Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142use 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_id = $tester->home_planet_id;
my $result;
$tester->build_building('Lacuna::DB::Result::Building::University', 2);
$tester->set_body_resources($home_id, ore_capacity => 500000, energy_capacity => 500000, food_capacity => 500000, water_capacity => 500000, bauxite_stored => 500000, algae_stored => 500000, energy_stored => 500000, water_stored => 500000, energy_hour => 500000, algae_production_hour => 500000, water_hour => 500000, ore_hour => 500000, needs_recalc => 0,);
$result = $tester->post('foodreserve', 'build', [$session_id, $home_id, 3, 3]);my $building_id = $result->{result}{building}{id};$result = $tester->post('foodreserve', 'view', [$session_id, $building_id]);
cmp_ok($result->{result}{food_stored}{algae}, '>', 0, "got food storage");
END { TestClient->clear_all_test_empires;}