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

comment //winonly for tests (excludes test from testing in mono)

Browse source
This commit is contained in:
Бондарев Иван 2015-12-29 19:05:42 +01:00
parent 811ee7b14a
commit f470ba9c93
5 changed files with 22 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
CodeCompletion/readme.txt
View file

@ -1,16 +0,0 @@
Кодовое имя проекта: CodeCompletion
Название: CodeCompletion
Автор: Бондарев Иван
EMail, ICQ автора: ibond84@freemail.ru
Логин на SVN: ibond
Краткое описание проекта: Движок интеллисенса
Комментарии:
CodeCompletion.cs содержит класс CodeCompletionController - контроллер для парсинга файлов
DomConverter.cs содержит класс DomConverter, использующийся для получения необходимой интеллисенсу информации
DomSyntaxTreeVisitor.cs содержит класс DomSyntaxTreeVisitor, строящий по синтаксическому дереву внутреннее представление
CodeCompletionPCUReader содержит класс IntellisensePCUReader, строящий по PCU-файлу внутреннее представление
ExpressionVisitor.cs содержит класс ExpressionVisitor, который позволяет получить по выражению его scope (например для выражения до точки)
SymTable.cs содержит классы для внутреннего представления
ExpressionEvaluator.cs содержит класс ExpressionEvaluator, предназначенный для вычисления константных выражений
FindReferences.cs содержит класс ReferenceFinder, предназначенный для поиска использований символов
XmlDocs.cs содержит классы, ответственные за получение документации к сущностям

1
TestSuite/assemblies1.pas
View file

@ -1,3 +1,4 @@
//winonly
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
{$reference 'System.Xml.dll'}

1
TestSuite/symbol_table_test.pas
View file

@ -1,3 +1,4 @@
//winonly
uses System, System.Windows, System.Collections, System.Collections.Generic;
begin

BIN
bin/TestRunner.exe
View file

Binary file not shown.

20
bin/TestRunner.pas
View file

@ -11,6 +11,11 @@ uses PascalABCCompiler, System.IO, System.Diagnostics;
var TestSuiteDir: string;
var PathSeparator: string := Path.DirectorySeparatorChar;
function IsUnix: boolean;
begin
Result := (System.Environment.OSVersion.Platform = System.PlatformID.Unix) or (System.Environment.OSVersion.Platform = System.PlatformID.MacOSX);
end;
function GetTestSuiteDir: string;
begin
var dir := Path.GetDirectoryName(GetEXEFileName());
@ -32,6 +37,9 @@ begin
var files := Directory.GetFiles(TestSuiteDir+PathSeparator+'errors','*.pas');
for var i := 0 to files.Length - 1 do
begin
var content := &File.ReadAllText(files[i]);
if content.StartsWith('//winonly') and IsUnix then
continue;
var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton);
co.Debug := true;
co.OutputDirectory := TestSuiteDir+PathSeparator+'errors';
@ -63,6 +71,9 @@ begin
var files := Directory.GetFiles(TestSuiteDir,'*.pas');
for var i := 0 to files.Length - 1 do
begin
var content := &File.ReadAllText(files[i]);
if content.StartsWith('//winonly') and IsUnix then
continue;
var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton);
co.Debug := true;
co.OutputDirectory := TestSuiteDir+PathSeparator+'exe';
@ -91,6 +102,9 @@ begin
var files := Directory.GetFiles(TestSuiteDir+PathSeparator+dir,'*.pas');
for var i := 0 to files.Length - 1 do
begin
var content := &File.ReadAllText(files[i]);
if content.StartsWith('//winonly') and IsUnix then
continue;
var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton);
co.Debug := true;
co.OutputDirectory := TestSuiteDir+PathSeparator+dir;
@ -117,6 +131,9 @@ begin
var dir := TestSuiteDir+PathSeparator+'units'+PathSeparator;
for var i := 0 to files.Length - 1 do
begin
var content := &File.ReadAllText(files[i]);
if content.StartsWith('//winonly') and IsUnix then
continue;
var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton);
co.Debug := true;
co.OutputDirectory := dir;
@ -142,6 +159,9 @@ begin
var files := Directory.GetFiles(TestSuiteDir+PathSeparator+'usesunits','*.pas');
for var i := 0 to files.Length - 1 do
begin
var content := &File.ReadAllText(files[i]);
if content.StartsWith('//winonly') and IsUnix then
continue;
var co: CompilerOptions := new CompilerOptions(files[i],CompilerOptions.OutputType.ConsoleApplicaton);
co.Debug := true;
co.OutputDirectory := TestSuiteDir+PathSeparator+'exe';