administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix in TestRunner

Browse source
This commit is contained in:
Ivan Bondarev 2021-10-31 13:48:32 +01:00
parent 62f031f0d0
commit 42780f2e06
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
bin/TestRunner.exe
View file

Binary file not shown.

9
bin/TestRunner.pas
View file

@ -37,11 +37,12 @@ end;
procedure CompileErrorTests(withide: boolean);
begin
var comp := new Compiler();
var files := Directory.GetFiles(TestSuiteDir + PathSeparator + 'errors', '*.pas');
for var i := 0 to files.Length - 1 do
begin
var comp := new Compiler();
var content := &File.ReadAllText(files[i]);
if content.StartsWith('//winonly') and IsUnix then
continue;
@ -76,9 +77,11 @@ begin
raise new Exception('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
end;
if (errorMessage <> '') and (comp.ErrorsList[0].Message.Trim <> errorMessage) then
if (errorMessage <> '') and (comp.ErrorsList[comp.ErrorsList.Count-1].Message.Trim <> errorMessage) then
begin
System.Windows.Forms.MessageBox.Show('Wrong error message in file ' + files[i] + ', should '+errorMessage+', is '+comp.ErrorsList[0].Message);
if nogui then
raise new Exception('Wrong error message in file ' + files[i] + ', should '+errorMessage+', is '+comp.ErrorsList[comp.ErrorsList.Count-1].Message);
System.Windows.Forms.MessageBox.Show('Wrong error message in file ' + files[i] + ', should '+errorMessage+', is '+comp.ErrorsList[comp.ErrorsList.Count-1].Message);
end;
end;
if i mod 50 = 0 then