From 9f7f314f8152e4a67202ad0a8d02d5a5ea8b2908 Mon Sep 17 00:00:00 2001
From: Peter Nelson <peter1138@openttd.org>
Date: Fri, 3 Oct 2025 17:36:57 +0100
Subject: [PATCH] Codechange: [Script] Add regression test for company
 president gender.

---
 regression/regression/main.nut   | 16 ++++++++++++++++
 regression/regression/result.txt | 11 ++++++++++-
 2 files changed, 26 insertions(+), 1 deletion(-)

diff --git a/regression/regression/main.nut b/regression/regression/main.nut
index b9df4ebb4a..d029cea996 100644
--- a/regression/regression/main.nut
+++ b/regression/regression/main.nut
@@ -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()
 {
 	local j = 0;
@@ -2096,6 +2111,7 @@ function Regression::Start()
 	this.Vehicle();
 	/* Order has to be after Vehicle */
 	this.Order();
+	this.CompanyGender();
 	print("");
 	print("  First Subsidy Test");
 	PrintSubsidy(0);
diff --git a/regression/regression/result.txt b/regression/regression/result.txt
index 6a88a5297d..ec60ce3651 100644
--- a/regression/regression/result.txt
+++ b/regression/regression/result.txt
@@ -10006,6 +10006,15 @@ ERROR: IsEnd() is invalid as Begin() is never called
   foreach():
     20 => 23596
 
+--Company Gender--
+  GetPresidentGender():              1
+  SetPresidentGender():              true
+  GetPresidentGender():              0
+  SetPresidentGender():              true
+  GetPresidentGender():              1
+  SetPresidentGender():              false
+  GetPresidentGender():              1
+
   First Subsidy Test
       --Subsidy (0) --
         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
 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
 [list] INSTANCE