1

class Regression extends AIController {

     2

	stop     = false;

     3

     4

	function Start();

     5

	function Stop();

     6

     7

	constructor() {	}

     8

}

     9

    10

    11

    12

function Regression::TestInit()

    13

{

    14

	print("");

    15

	print("--TestInit--");

    16

	print(" TickTest: " + this.GetTick());

    17

	Sleep(1);

    18

	print(" TickTest: " + this.GetTick());

    19

}

    20

    21

function Regression::Base()

    22

{

    23

	local base = AIBase();

    24

    25

	print("");

    26

	print("--AIBase--");

    27

	print("  Rand():       " + base.Rand());

    28

	print("  Rand():       " + base.Rand());

    29

	print("  Rand():       " + base.Rand());

    30

	print("  RandRange(0): " + base.RandRange(0));

    31

	print("  RandRange(0): " + base.RandRange(0));

    32

	print("  RandRange(0): " + base.RandRange(0));

    33

	print("  RandRange(1): " + base.RandRange(1));

    34

	print("  RandRange(1): " + base.RandRange(1));

    35

	print("  RandRange(1): " + base.RandRange(1));

    36

	print("  RandRange(2): " + base.RandRange(2));

    37

	print("  RandRange(2): " + base.RandRange(2));

    38

	print("  RandRange(2): " + base.RandRange(2));

    39

	print("  RandRange(9): " + base.RandRange(9));

    40

	print("  RandRange(9): " + base.RandRange(9));

    41

	print("  RandRange(9): " + base.RandRange(9));

    42

	print("  Chance(1, 2): " + base.Chance(1, 2));

    43

	print("  Chance(1, 2): " + base.Chance(1, 2));

    44

	print("  Chance(1, 2): " + base.Chance(1, 2));

    45

}

    46

    47

function Regression::Cargo()

    48

{

    49

	local cargo = AICargo();

    50

    51

	print("");

    52

	print("--AICargo--");

    53

	for (local i = -1; i < 15; i++) {

    54

		print("  Cargo " + i);

    55

		print("    GetCargoLabel():         '" + cargo.GetCargoLabel(i)+ "'");

    56

		print("    IsFreight():             " + cargo.IsFreight(i));

    57

		print("    GetCargoIncome(0, 0):    " + cargo.GetCargoIncome(0, 0, i));

    58

		print("    GetCargoIncome(10, 10):  " + cargo.GetCargoIncome(10, 10, i));

    59

		print("    GetCargoIncome(100, 10): " + cargo.GetCargoIncome(100, 10, i));

    60

		print("    GetCargoIncome(10, 100): " + cargo.GetCargoIncome(10, 100, i));

    61

	}

    62

}

    63

    64

function Regression::Company()

    65

{

    66

	local company = AICompany();

    67

    68

	print("");

    69

	print("--Company--");

    70

	print("  SetCompanyName():     " + company.SetCompanyName("Regression"));

    71

	print("  SetCompanyName():     " + company.SetCompanyName("Regression"));

    72

	print("  GetCompanyName():     " + company.GetCompanyName());

    73

	print("  GetCompanyValue():    " + company.GetCompanyValue());

    74

	print("  GetBankBalance():     " + company.GetBankBalance());

    75

	print("  GetLoanAmount():      " + company.GetLoanAmount());

    76

	print("  GetMaxLoanAmount():   " + company.GetMaxLoanAmount());

    77

	print("  GetLoanInterval():    " + company.GetLoanInterval());

    78

	print("  SetLoanAmount(1):     " + company.SetLoanAmount(1));

    79

	print("  SetLoanAmount(100):   " + company.SetLoanAmount(100));

    80

	print("  SetLoanAmount(10000): " + company.SetLoanAmount(10000));

    81

	print("  GetBankBalance():     " + company.GetBankBalance());

    82

	print("  GetLoanAmount():      " + company.GetLoanAmount());

    83

	print("  SetLoanAmount(10000): " + company.SetLoanAmount(company.GetMaxLoanAmount()));

    84

	print("  GetBankBalance():     " + company.GetBankBalance());

    85

	print("  GetLoanAmount():      " + company.GetLoanAmount());

    86

}

    87

    88

function Regression::Industry()

    89

{

    90

	local industry = AIIndustry();

    91

	local j = 0;

    92

    93

	print("");

    94

	print("--Industry--");

    95

	print("  GetMaxIndustryID():  " + industry.GetMaxIndustryID());

    96

	print("  GetIndustryCount():  " + industry.GetIndustryCount());

    97

	for (local i = -1; i < industry.GetMaxIndustryID(); i++) {

    98

		if (industry.IsValidIndustry(i)) j++;

    99

		print("  Industry " + i);

   100

		print("    IsValidIndustry(): " + industry.IsValidIndustry(i));

   101

		print("    GetName():         " + industry.GetName(i));

   102

		print("    GetLocation():     " + industry.GetLocation(i));

   103

	}

   104

	print("  Valid Industries:    " + j);

   105

	print("  GetIndustryCount():  " + industry.GetIndustryCount());

   106

}

   107

   108

function Regression::Map()

   109

{

   110

	local map = AIMap();

   111

   112

	print("");

   113

	print("--Map--");

   114

	print("  GetMapSize():     " + map.GetMapSize());

   115

	print("  GetMapSizeX():    " + map.GetMapSizeX());

   116

	print("  GetMapSizeY():    " + map.GetMapSizeY());

   117

	print("  GetTileX(123):    " + map.GetTileX(123));

   118

	print("  GetTileY(123):    " + map.GetTileY(123));

   119

	print("  IsValidTile(123): " + map.IsValidTile(123));

   120

	print("  GetTileX(124):    " + map.GetTileX(124));

   121

	print("  GetTileY(124):    " + map.GetTileY(124));

   122

	print("  IsValidTile(124): " + map.IsValidTile(124));

   123

	print("  IsValidTile(0):   " + map.IsValidTile(0));

   124

	print("  IsValidTile(-1):  " + map.IsValidTile(-1));

   125

	print("  IsValidTile():    " + map.IsValidTile(map.GetMapSize()));

   126

	print("  IsValidTile():    " + map.IsValidTile(map.GetMapSize() - 1));

   127

}

   128

   186

function Regression::Town()

   187

{

   188

	local town = AITown();

   189

	local j = 0;

   190

   191

	print("");

   192

	print("--Town--");

   193

	print("  GetMaxTownID():    " + town.GetMaxTownID());

   194

	print("  GetTownCount():    " + town.GetTownCount());

   195

	for (local i = -1; i < town.GetMaxTownID(); i++) {

   196

		if (town.IsValidTown(i)) j++;

   197

		print("  Town " + i);

   198

		print("    IsValidTown():   " + town.IsValidTown(i));

   199

		print("    GetName():       " + town.GetName(i));

   200

		print("    GetPopulation(): " + town.GetPopulation(i));

   201

		print("    GetLocation():   " + town.GetLocation(i));

   202

	}

   203

	print("  Valid Industries:  " + j);

   204

	print("  GetTownCount():    " + town.GetTownCount());

   205

}

   206

   207

   208

function Regression::Start()

   209

{

   210

	this.TestInit();

   211

	this.Base();

   212

	this.Cargo();

   213

	this.Company();

   214

	this.Industry();

   215

	this.Map();

   217

	this.Town();

   218

}

   219

   220

function Regression::Stop()

   221

{

   222

	this.stop = true;

   223

}

   224

   225

class FRegression extends AIFactory {

   226

	function GetAuthor()      { return "OpenTTD Dev Team"; }

   227

	function GetName()        { return "Regression"; }

   228

	function GetDescription() { return "This runs regression-tests on all commands. On the same map the result should always be the same."; }

   229

	function GetVersion()     { return 1; }

   230

	function GetDate()        { return "2007-03-18"; }

   231

	function CreateInstance() { return "Regression"; }

   232

}

   233

   234

/* Only enable this if you want to run the regression test.

   235

 *  The best way to do it is to disable all other AIs, so you are sure thisone

   236

 *  kicks in, and use a pre-made savegame of which you already know the result.

   237

 * You can compare the output from this AI with the pre-made one, and it should

   238

 *  match. If not, something went wrong. */

   239

iFRegression <-FRegression();