Technology definition functions
* Added stored procedures which manipulate technology definitions themselves (defs.uoc_technology) or their dependencies (defs.techdep_add and defs.techdep_remove)
This commit is contained in:
parent
3b2ec4bb64
commit
af57e7d3b5
10 changed files with 704 additions and 2 deletions
legacyworlds-server-data/db-structure/tests/admin/040-functions/030-tech
|
|
@ -0,0 +1,86 @@
|
|||
/*
|
||||
* Test the defs.uoc_technology() function for new technologies
|
||||
*/
|
||||
BEGIN;
|
||||
\i utils/strings.sql
|
||||
|
||||
/*
|
||||
* We need a few test strings to play with. Each technology definition
|
||||
* uses four strings (name, category, discovery and description) so we'll
|
||||
* create 8.
|
||||
*/
|
||||
SELECT _create_test_strings( 8 , 's' );
|
||||
|
||||
/*
|
||||
* Manually insert an entry into the technologies table, using strings
|
||||
* 5-8 for the various fields.
|
||||
*/
|
||||
INSERT INTO defs.technologies (
|
||||
technology_name_id , technology_category_id ,
|
||||
technology_discovery_id , technology_description_id ,
|
||||
technology_price , technology_points
|
||||
) VALUES (
|
||||
_get_string( 's5' ) , _get_string( 's6' ) ,
|
||||
_get_string( 's7' ) , _get_string( 's8' ) ,
|
||||
1 , 1
|
||||
);
|
||||
|
||||
-- ***** TESTS BEGIN HERE *****
|
||||
SELECT plan( 10 );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Invalid name string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
'does not exist' , 's2' , 's3' , 's4' , 1 , 1
|
||||
)::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Invalid category string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 'does not exist' , 's3' , 's4' , 1 , 1
|
||||
)::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Invalid discovery string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 'does not exist' , 's4' , 1 , 1
|
||||
)::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Invalid description string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 'does not exist' , 1 , 1
|
||||
)::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Invalid price' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 's4' , 0 , 1
|
||||
)::TEXT , 'BAD_VALUE' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Invalid research points' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 's4' , 1 , 0
|
||||
)::TEXT , 'BAD_VALUE' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Duplicate description string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's7' , 's4' , 1 , 1
|
||||
)::TEXT , 'DUP_STRING' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Duplicate discovery string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 's8' , 1 , 1
|
||||
)::TEXT , 'DUP_STRING' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Success' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 's4' , 2 , 3
|
||||
)::TEXT , 'CREATED' );
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Creation - Row exists after success' );
|
||||
SELECT set_eq( $$
|
||||
SELECT * FROM defs.technologies
|
||||
WHERE technology_name_id = _get_string( 's1' )
|
||||
$$ , $$ VALUES(
|
||||
_get_string( 's1' ) , _get_string( 's2' ) ,
|
||||
_get_string( 's3' ) , _get_string( 's4' ) ,
|
||||
2 , 3
|
||||
) $$ );
|
||||
|
||||
SELECT * FROM finish( );
|
||||
ROLLBACK;
|
||||
|
|
@ -0,0 +1,82 @@
|
|||
/*
|
||||
* Test the defs.uoc_technology() function for existing technologies
|
||||
*/
|
||||
BEGIN;
|
||||
\i utils/strings.sql
|
||||
|
||||
/*
|
||||
* We need a few test strings to play with. Each technology definition
|
||||
* uses four strings (name, category, discovery and description) so we'll
|
||||
* create 8.
|
||||
*/
|
||||
SELECT _create_test_strings( 8 , 's' );
|
||||
|
||||
/* Insert two entries. */
|
||||
INSERT INTO defs.technologies (
|
||||
technology_name_id , technology_category_id ,
|
||||
technology_discovery_id , technology_description_id ,
|
||||
technology_price , technology_points
|
||||
) VALUES (
|
||||
_get_string( 's1' ) , _get_string( 's2' ) ,
|
||||
_get_string( 's3' ) , _get_string( 's4' ) ,
|
||||
1 , 1
|
||||
) , (
|
||||
_get_string( 's5' ) , _get_string( 's6' ) ,
|
||||
_get_string( 's7' ) , _get_string( 's8' ) ,
|
||||
1 , 1
|
||||
);
|
||||
|
||||
-- ***** TESTS BEGIN HERE *****
|
||||
SELECT plan( 9 );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Invalid category string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 'does not exist' , 's3' , 's4' , 1 , 1
|
||||
)::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Invalid discovery string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 'does not exist' , 's4' , 1 , 1
|
||||
)::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Invalid description string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 'does not exist' , 1 , 1
|
||||
)::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Invalid price' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 's4' , 0 , 1
|
||||
)::TEXT , 'BAD_VALUE' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Invalid research points' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 's4' , 1 , 0
|
||||
)::TEXT , 'BAD_VALUE' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Duplicate description string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's7' , 's4' , 1 , 1
|
||||
)::TEXT , 'DUP_STRING' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Duplicate discovery string' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's2' , 's3' , 's8' , 1 , 1
|
||||
)::TEXT , 'DUP_STRING' );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Success' );
|
||||
SELECT is( defs.uoc_technology(
|
||||
's1' , 's4' , 's2' , 's3' , 2 , 3
|
||||
)::TEXT , 'UPDATED' );
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Row contents after success' );
|
||||
SELECT set_eq( $$
|
||||
SELECT * FROM defs.technologies
|
||||
WHERE technology_name_id = _get_string( 's1' )
|
||||
$$ , $$ VALUES(
|
||||
_get_string( 's1' ) , _get_string( 's4' ) ,
|
||||
_get_string( 's2' ) , _get_string( 's3' ) ,
|
||||
2 , 3
|
||||
) $$ );
|
||||
|
||||
SELECT * FROM finish( );
|
||||
ROLLBACK;
|
||||
|
|
@ -0,0 +1,58 @@
|
|||
/*
|
||||
* Test the defs.uoc_technology() function when the points for a technology
|
||||
* are updated and empires are researching it.
|
||||
*/
|
||||
BEGIN;
|
||||
\i utils/strings.sql
|
||||
|
||||
/*
|
||||
* We need a few test strings to play with. Each technology definition
|
||||
* uses four strings (name, category, discovery and description) so we'll
|
||||
* create 4.
|
||||
*/
|
||||
SELECT _create_test_strings( 4 , 's' );
|
||||
|
||||
/* Insert one entry. */
|
||||
INSERT INTO defs.technologies (
|
||||
technology_name_id , technology_category_id ,
|
||||
technology_discovery_id , technology_description_id ,
|
||||
technology_price , technology_points
|
||||
) VALUES (
|
||||
_get_string( 's1' ) , _get_string( 's2' ) ,
|
||||
_get_string( 's3' ) , _get_string( 's4' ) ,
|
||||
1 , 100
|
||||
);
|
||||
|
||||
/* Remove foreign key to empires on empire technologies */
|
||||
ALTER TABLE emp.technologies_v2
|
||||
DROP CONSTRAINT fk_emptech_empire;
|
||||
|
||||
/* Insert records for the new technology, with different states */
|
||||
INSERT INTO emp.technologies_v2 (
|
||||
empire_id , technology_name_id , emptech_state ,
|
||||
emptech_points , emptech_priority
|
||||
) VALUES (
|
||||
1 , _get_string( 's1' ) , 'RESEARCH' , 50 , 2
|
||||
) , (
|
||||
2 , _get_string( 's1' ) , 'RESEARCH' , 0 , 2
|
||||
);
|
||||
|
||||
/* Now change the technology so it requires 1000 points */
|
||||
SELECT defs.uoc_technology( 's1' , 's2' , 's3' , 's4' , 1 , 1000 );
|
||||
|
||||
-- ***** TESTS BEGIN HERE *****
|
||||
SELECT no_plan( );
|
||||
|
||||
SELECT diag_test_name( 'defs.uoc_technology() - Update - Scaling of in-progress research' );
|
||||
SELECT set_eq( $$
|
||||
SELECT empire_id , ROUND( emptech_points )::INT
|
||||
FROM emp.technologies_v2
|
||||
WHERE emptech_state = 'RESEARCH'
|
||||
$$ , $$ VALUES(
|
||||
1 , 500
|
||||
) , (
|
||||
2 , 0
|
||||
) $$ );
|
||||
|
||||
SELECT * FROM finish( );
|
||||
ROLLBACK;
|
||||
|
|
@ -0,0 +1,65 @@
|
|||
/*
|
||||
* Test the defs.techdep_add() function
|
||||
*/
|
||||
BEGIN;
|
||||
\i utils/strings.sql
|
||||
-- Make the columns we don't use in the technology definition table NULL-able
|
||||
ALTER TABLE defs.technologies
|
||||
ALTER technology_category_id DROP NOT NULL ,
|
||||
ALTER technology_discovery_id DROP NOT NULL ,
|
||||
ALTER technology_description_id DROP NOT NULL ,
|
||||
ALTER technology_price DROP NOT NULL ,
|
||||
ALTER technology_points DROP NOT NULL;
|
||||
|
||||
-- Create strings to use as the technologies' names
|
||||
SELECT _create_test_strings( 5 , 'tech' );
|
||||
|
||||
-- Insert the technologies
|
||||
INSERT INTO defs.technologies ( technology_name_id )
|
||||
VALUES ( _get_string( 'tech1' ) ) ,
|
||||
( _get_string( 'tech2' ) ) ,
|
||||
( _get_string( 'tech3' ) ) ,
|
||||
( _get_string( 'tech4' ) );
|
||||
|
||||
-- Add a few dependencies
|
||||
INSERT INTO defs.technology_dependencies(
|
||||
technology_name_id , technology_name_id_depends
|
||||
) VALUES ( _get_string( 'tech3' ) , _get_string( 'tech2' ) ) ,
|
||||
( _get_string( 'tech2' ) , _get_string( 'tech1' ) );
|
||||
|
||||
|
||||
-- ***** TESTS BEGIN HERE *****
|
||||
SELECT plan( 8 );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_add() - Bad dependent technology name' );
|
||||
SELECT is( defs.techdep_add( 'does not exist' , 'tech2' )::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_add() - Bad dependency name' );
|
||||
SELECT is( defs.techdep_add( 'tech1' , 'does not exist' )::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_add() - Valid name that is not a technology' );
|
||||
SELECT is( defs.techdep_add( 'tech5' , 'tech2' )::TEXT , 'BAD_STRINGS' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_add() - Duplicate dependency' );
|
||||
SELECT is( defs.techdep_add( 'tech3' , 'tech2' )::TEXT , 'REDUNDANT' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_add() - Cyclic dependency' );
|
||||
SELECT is( defs.techdep_add( 'tech2' , 'tech3' )::TEXT , 'CYCLE' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_add() - Redundant dependency' );
|
||||
SELECT is( defs.techdep_add( 'tech3' , 'tech1' )::TEXT , 'REDUNDANT' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_add() - Success - Return value' );
|
||||
SELECT is( defs.techdep_add( 'tech4' , 'tech1' )::TEXT , 'CREATED' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_add() - Success - Table entries' );
|
||||
SELECT set_eq( $$
|
||||
SELECT technology_name_id_depends
|
||||
FROM defs.technology_dependencies
|
||||
WHERE technology_name_id = _get_string( 'tech4' );
|
||||
$$ , $$ VALUES(
|
||||
_get_string( 'tech1' )
|
||||
) $$ );
|
||||
|
||||
SELECT * FROM finish( );
|
||||
ROLLBACK;
|
||||
|
|
@ -0,0 +1,51 @@
|
|||
/*
|
||||
* Test the defs.techdep_remove() function
|
||||
*/
|
||||
BEGIN;
|
||||
\i utils/strings.sql
|
||||
-- Make the columns we don't use in the technology definition table NULL-able
|
||||
ALTER TABLE defs.technologies
|
||||
ALTER technology_category_id DROP NOT NULL ,
|
||||
ALTER technology_discovery_id DROP NOT NULL ,
|
||||
ALTER technology_description_id DROP NOT NULL ,
|
||||
ALTER technology_price DROP NOT NULL ,
|
||||
ALTER technology_points DROP NOT NULL;
|
||||
|
||||
-- Create strings to use as the technologies' names
|
||||
SELECT _create_test_strings( 2 , 'tech' );
|
||||
|
||||
-- Insert the technologies
|
||||
INSERT INTO defs.technologies ( technology_name_id )
|
||||
VALUES ( _get_string( 'tech1' ) ) ,
|
||||
( _get_string( 'tech2' ) );
|
||||
|
||||
-- Add a dependency from tech2 to tech1
|
||||
INSERT INTO defs.technology_dependencies(
|
||||
technology_name_id , technology_name_id_depends
|
||||
) VALUES ( _get_string( 'tech2' ) , _get_string( 'tech1' ) );
|
||||
|
||||
|
||||
-- ***** TESTS BEGIN HERE *****
|
||||
SELECT plan( 5 );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_remove() - Bad dependent technology name' );
|
||||
SELECT is( defs.techdep_remove( 'does not exist' , 'tech1' )::TEXT , 'MISSING' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_remove() - Bad dependency name' );
|
||||
SELECT is( defs.techdep_remove( 'tech2' , 'does not exist' )::TEXT , 'MISSING' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_remove() - Correct name but no dependency' );
|
||||
SELECT is( defs.techdep_remove( 'tech1' , 'tech2' )::TEXT , 'MISSING' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_remove() - Success - Return value' );
|
||||
SELECT is( defs.techdep_remove( 'tech2' , 'tech1' )::TEXT , 'DELETED' );
|
||||
|
||||
SELECT diag_test_name( 'defs.techdep_remove() - Success - Table contents' );
|
||||
SELECT is_empty($$
|
||||
SELECT * FROM defs.technology_dependencies
|
||||
WHERE technology_name_id = _get_string( 'tech2' )
|
||||
AND technology_name_id_depends = _get_string( 'tech1' );
|
||||
$$);
|
||||
|
||||
SELECT * FROM finish( );
|
||||
ROLLBACK;
|
||||
Reference in a new issue