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

CodeCompletion/readme.txt

@@ -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 содержит классы, ответственные за получение документации к сущностям

TestSuite/assemblies1.pas

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

TestSuite/symbol_table_test.pas

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

bin/TestRunner.pas

@@ -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';