Emmanuel BENOîT
afc66166e0
* Changed the way mining settings work: use a priority value (between 0 and 4) as the weight. Leaving them as they were before would have caused numerous problems (and a lot of unnecessary code to work around them) * Empire mining settings will be created along with the empire's own record. By default all natural resources will have weight = 2. * Added a set of four stored procedures which can be used to update an empire's mining settings, including planet-specific settings. The emp.mset_update_start() function can be used to start an update (on an empire's settings if there is only one parameter, or on a planet's settings if there are two parameters); the emp.mset_update_set() and emp.mset_update_apply() functions are then used to modify the settings and apply the changes, respectively.
93 lines
No EOL
3.2 KiB
PL/PgSQL
93 lines
No EOL
3.2 KiB
PL/PgSQL
/*
|
|
* Test the emp.mset_update_apply() function
|
|
*/
|
|
BEGIN;
|
|
/*
|
|
* Remove foreign keys from the empire mining settings table, insert some
|
|
* data into it.
|
|
*/
|
|
ALTER TABLE emp.mining_settings
|
|
DROP CONSTRAINT fk_empmset_empire ,
|
|
DROP CONSTRAINT fk_empmset_resource;
|
|
INSERT INTO emp.mining_settings ( empire_id , resource_name_id )
|
|
VALUES ( 1 , 1 ) , ( 1 , 2 );
|
|
|
|
/* Create the temporary table */
|
|
CREATE TEMPORARY TABLE mset_update(
|
|
empire_id INT ,
|
|
resource_name_id INT ,
|
|
empmset_weight INT
|
|
) ON COMMIT DROP;
|
|
INSERT INTO mset_update VALUES ( 1 , 1 , 0 ) , ( 1 , 2 , 4 );
|
|
|
|
/***** TESTS BEGIN HERE *****/
|
|
SELECT no_plan( );
|
|
|
|
SELECT diag_test_name( 'emp.mset_update_apply() - Applying valid empire update' );
|
|
SELECT ok( emp.mset_update_apply( ) );
|
|
SELECT diag_test_name( 'emp.mset_update_apply() - Empire update results' );
|
|
SELECT set_eq(
|
|
$$ SELECT resource_name_id , empmset_weight FROM emp.mining_settings $$ ,
|
|
$$ VALUES ( 1 , 0 ) , ( 2 , 4 ) $$
|
|
);
|
|
|
|
/* Reset temporary table and settings */
|
|
DELETE FROM mset_update;
|
|
DELETE FROM emp.mining_settings;
|
|
INSERT INTO emp.mining_settings ( empire_id , resource_name_id )
|
|
VALUES ( 1 , 1 ) , ( 1 , 2 );
|
|
|
|
INSERT INTO mset_update VALUES ( 1 , 1 , -1 ) , ( 1 , 2 , 4 );
|
|
SELECT diag_test_name( 'emp.mset_update_apply() - Applying invalid empire update' );
|
|
SELECT ok( NOT emp.mset_update_apply( ) );
|
|
SELECT diag_test_name( 'emp.mset_update_apply() - Invalid empire update results' );
|
|
SELECT set_eq(
|
|
$$ SELECT resource_name_id , empmset_weight FROM emp.mining_settings $$ ,
|
|
$$ VALUES ( 1 , 2 ) , ( 2 , 2 ) $$
|
|
);
|
|
|
|
|
|
/* Re-create the temporary table to store planet mining settings, remove
|
|
* constraints from the planet mining settings table, insert data into
|
|
* both.
|
|
*/
|
|
ALTER TABLE emp.planet_mining_settings
|
|
DROP CONSTRAINT fk_emppmset_empire ,
|
|
DROP CONSTRAINT fk_emppmset_resource;
|
|
INSERT INTO emp.planet_mining_settings ( empire_id , planet_id , resource_name_id )
|
|
VALUES ( 1 , 1 , 1 ) , ( 1 , 1 , 2 );
|
|
|
|
DROP TABLE mset_update;
|
|
CREATE TEMPORARY TABLE mset_update(
|
|
empire_id INT ,
|
|
planet_id INT ,
|
|
resource_name_id INT ,
|
|
empmset_weight INT
|
|
) ON COMMIT DROP;
|
|
INSERT INTO mset_update VALUES ( 1 , 1 , 1 , 0 ) , ( 1 , 1 , 2 , 4 );
|
|
|
|
SELECT diag_test_name( 'emp.mset_update_apply() - Applying valid planet update' );
|
|
SELECT ok( emp.mset_update_apply( ) );
|
|
SELECT diag_test_name( 'emp.mset_update_apply() - Planet update results' );
|
|
SELECT set_eq(
|
|
$$ SELECT resource_name_id , emppmset_weight FROM emp.planet_mining_settings $$ ,
|
|
$$ VALUES ( 1 , 0 ) , ( 2 , 4 ) $$
|
|
);
|
|
|
|
/* Reset temporary table and settings */
|
|
DELETE FROM mset_update;
|
|
DELETE FROM emp.planet_mining_settings;
|
|
INSERT INTO emp.planet_mining_settings ( empire_id , planet_id , resource_name_id )
|
|
VALUES ( 1 , 1 , 1 ) , ( 1 , 1 , 2 );
|
|
|
|
INSERT INTO mset_update VALUES ( 1 , 1 , 1 , -1 ) , ( 1 , 1 , 2 , 4 );
|
|
SELECT diag_test_name( 'emp.mset_update_apply() - Applying invalid planet update' );
|
|
SELECT ok( NOT emp.mset_update_apply( ) );
|
|
SELECT diag_test_name( 'emp.mset_update_apply() - Invalid planet update results' );
|
|
SELECT set_eq(
|
|
$$ SELECT resource_name_id , emppmset_weight FROM emp.planet_mining_settings $$ ,
|
|
$$ VALUES ( 1 , 2 ) , ( 2 , 2 ) $$
|
|
);
|
|
|
|
SELECT * FROM finish( );
|
|
ROLLBACK; |