mirrors/OpenTTD
1
0
Fork 0
mirror of https://github.com/OpenTTD/OpenTTD synced 2025-12-10 15:02:06 +01:00
Code Issues Releases Wiki Activity

Codechange: [Script] Add regression test for company president gender.

Browse Source
This commit is contained in:
Peter Nelson
2025-10-03 17:36:57 +01:00
committed by Peter Nelson
parent 75ca1e3cda
commit 9f7f314f81
2 changed files with 26 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
regression/regression/main.nut
View File

@@ -461,6 +461,21 @@ function Regression::Company()
} }
} }
function Regression::CompanyGender()
{
print("");
print("--Company Gender--");
/* Check gender switching behaviour matches API. */
print(" GetPresidentGender(): " + AICompany.GetPresidentGender(AICompany.COMPANY_SELF));
print(" SetPresidentGender(): " + AICompany.SetPresidentGender(AICompany.GENDER_MALE));
print(" GetPresidentGender(): " + AICompany.GetPresidentGender(AICompany.COMPANY_SELF));
print(" SetPresidentGender(): " + AICompany.SetPresidentGender(AICompany.GENDER_FEMALE));
print(" GetPresidentGender(): " + AICompany.GetPresidentGender(AICompany.COMPANY_SELF));
/* Setting to existing gender should fail. */
print(" SetPresidentGender(): " + AICompany.SetPresidentGender(AICompany.GENDER_FEMALE));
print(" GetPresidentGender(): " + AICompany.GetPresidentGender(AICompany.COMPANY_SELF));
}
function Regression::Engine() function Regression::Engine()
{ {
local j = 0; local j = 0;
@@ -2096,6 +2111,7 @@ function Regression::Start()
this.Vehicle(); this.Vehicle();
/* Order has to be after Vehicle */ /* Order has to be after Vehicle */
this.Order(); this.Order();
this.CompanyGender();
print(""); print("");
print(" First Subsidy Test"); print(" First Subsidy Test");
PrintSubsidy(0); PrintSubsidy(0);

11
regression/regression/result.txt
View File

@@ -10006,6 +10006,15 @@ ERROR: IsEnd() is invalid as Begin() is never called
foreach(): foreach():
20 => 23596 20 => 23596
--Company Gender--
GetPresidentGender(): 1
SetPresidentGender(): true
GetPresidentGender(): 0
SetPresidentGender(): true
GetPresidentGender(): 1
SetPresidentGender(): false
GetPresidentGender(): 1
First Subsidy Test First Subsidy Test
--Subsidy (0) -- --Subsidy (0) --
IsValidSubsidy(): true IsValidSubsidy(): true
@@ -10107,7 +10116,7 @@ ERROR: IsEnd() is invalid as Begin() is never called
constructor failed with: excessive CPU usage in list filter function constructor failed with: excessive CPU usage in list filter function
Your script made an error: excessive CPU usage in valuator function Your script made an error: excessive CPU usage in valuator function
*FUNCTION [Start()] regression/main.nut line [2168] *FUNCTION [Start()] regression/main.nut line [2184]
[Infinite] CLOSURE [Infinite] CLOSURE
[list] INSTANCE [list] INSTANCE