Emmanuel BENOîT
bf6bea5a79
* The quantities of resources extracted from mines will now be updated as soon as they have a reason to. This includes planet assignment, abandonment, ownership changes, and updates to mining priorities. * The mining update will now remove the current resource income from the providers, and only then re-compute all extracted quantities. This is more logical and corresponds to the way the other game updates work. * Fixed bug in extraction computation where the size of the planet's happy population was used instead of the happy/total ratio when adjusting the mining production for riots. * The following SQL scripts must be re-executed to upgrade a database: -> 040-functions/040-empire.sql -> 040-functions/145-resource-providers.sql -> 040-functions/147-empire-mining.sql -> 050-updates/120-planet-mining.sql
84 lines
No EOL
4.4 KiB
PL/PgSQL
84 lines
No EOL
4.4 KiB
PL/PgSQL
/*
|
|
* Test the emp.mset_update_start( INT , INT ) function
|
|
*/
|
|
BEGIN;
|
|
/* We need a pair of natural resources, an empire, a pair of planets with
|
|
* resource providers. The empire must own one of the planets.
|
|
*/
|
|
\i utils/strings.sql
|
|
\i utils/resources.sql
|
|
\i utils/accounts.sql
|
|
\i utils/naming.sql
|
|
\i utils/universe.sql
|
|
SELECT _create_natural_resources( 2 , 'testResource' );
|
|
SELECT _create_raw_planets( 3 , 'testPlanet' );
|
|
SELECT _create_emp_names( 1 , 'testEmp' );
|
|
SELECT emp.create_empire( _get_emp_name( 'testEmp1' ) ,
|
|
_get_map_name( 'testPlanet1' ) ,
|
|
200.0 );
|
|
SELECT _create_resource_provider( 'testPlanet1' , 'testResource1' );
|
|
SELECT _create_resource_provider( 'testPlanet2' , 'testResource1' );
|
|
INSERT INTO emp.planets ( empire_id , planet_id )
|
|
VALUES ( _get_emp_name( 'testEmp1' ) , _get_map_name( 'testPlanet3' ) );
|
|
|
|
/***** TESTS BEGIN HERE *****/
|
|
SELECT plan( 16 );
|
|
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Return value on bad empire identifier' );
|
|
SELECT ok( NOT emp.mset_update_start( _get_bad_emp_name( ) , _get_map_name( 'testPlanet1' ) ) );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table exists despite bad empire identifier' );
|
|
SELECT has_table( 'mset_update' );
|
|
DROP TABLE IF EXISTS mset_update;
|
|
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Return value on bad planet identifier' );
|
|
SELECT ok( NOT emp.mset_update_start( _get_emp_name( 'testEmp1' ) , _get_bad_map_name( ) ) );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table exists despite bad planet identifier' );
|
|
SELECT has_table( 'mset_update' );
|
|
DROP TABLE IF EXISTS mset_update;
|
|
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Return value on unowned planet identifier' );
|
|
SELECT ok( NOT emp.mset_update_start( _get_emp_name( 'testEmp1' ) , _get_map_name( 'testPlanet2' ) ) );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table exists despite unowned planet identifier' );
|
|
SELECT has_table( 'mset_update' );
|
|
DROP TABLE IF EXISTS mset_update;
|
|
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Return value on unowned planet identifier' );
|
|
SELECT ok( NOT emp.mset_update_start( _get_emp_name( 'testEmp1' ) , _get_map_name( 'testPlanet2' ) ) );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table exists despite unowned planet identifier' );
|
|
SELECT has_table( 'mset_update' );
|
|
DROP TABLE IF EXISTS mset_update;
|
|
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Return value on planet with no resource providers' );
|
|
SELECT ok( NOT emp.mset_update_start( _get_emp_name( 'testEmp1' ) , _get_map_name( 'testPlanet3' ) ) );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table exists despite planet with no resource providers' );
|
|
SELECT has_table( 'mset_update' );
|
|
DROP TABLE IF EXISTS mset_update;
|
|
|
|
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Return value on valid identifiers but no existing settings' );
|
|
SELECT ok( NOT emp.mset_update_start( _get_emp_name( 'testEmp1' ) , _get_map_name( 'testPlanet1' ) ) );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table exists despite lack of settings' );
|
|
SELECT has_table( 'mset_update' );
|
|
DROP TABLE IF EXISTS mset_update;
|
|
|
|
INSERT INTO emp.planet_mining_settings( empire_id , planet_id , resource_name_id )
|
|
SELECT _get_emp_name( 'testEmp1' ) , planet_id , resource_name_id
|
|
FROM verse.resource_providers
|
|
WHERE planet_id = _get_map_name( 'testPlanet1' );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Return value on valid identifiers and existing settings' );
|
|
SELECT ok( emp.mset_update_start( _get_emp_name( 'testEmp1' ) , _get_map_name( 'testPlanet1' ) ) );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table exists' );
|
|
SELECT has_table( 'mset_update' );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table contains all required entries' );
|
|
SELECT is( COUNT(*)::INT , 1 )
|
|
FROM mset_update
|
|
WHERE empire_id = _get_emp_name( 'testEmp1' )
|
|
AND planet_id = _get_map_name( 'testPlanet1' );
|
|
SELECT diag_test_name( 'emp.mset_update_start( INT , INT ) - Temporary table does not contain extra entries' );
|
|
SELECT is( COUNT(*)::INT , 0 )
|
|
FROM mset_update
|
|
WHERE empire_id <> _get_emp_name( 'testEmp1' )
|
|
OR planet_id <> _get_map_name( 'testPlanet1' );
|
|
|
|
SELECT * FROM finish( );
|
|
ROLLBACK; |