File tree Expand file tree Collapse file tree 4 files changed +18
-86
lines changed
SimpleBaseLib.Tests/Delphi.Tests Expand file tree Collapse file tree 4 files changed +18
-86
lines changed Load Diff This file was deleted.
Original file line number Diff line number Diff line change @@ -11,15 +11,22 @@ program SimpleBaseLib.Tests;
1111}
1212
1313{ $WARN DUPLICATE_CTOR_DTOR OFF}
14- { $IFDEF CONSOLE_TESTRUNNER}
15- { $APPTYPE CONSOLE}
14+
15+ { $IFNDEF TESTINSIGHT}
16+ { $IFDEF CONSOLE_TESTRUNNER}
17+ { $APPTYPE CONSOLE}
18+ { $ENDIF}
1619{ $ENDIF}
1720
1821uses
19- Forms,
20- TestFramework,
21- GUITestRunner,
22- TextTestRunner,
22+ { $IFDEF TESTINSIGHT}
23+ TestInsight.DUnit,
24+ { $ELSE}
25+ Forms,
26+ TestFramework,
27+ GUITestRunner,
28+ TextTestRunner,
29+ { $ENDIF}
2330 SbpBase58Alphabet in ' ..\..\SimpleBaseLib\src\Bases\SbpBase58Alphabet.pas' ,
2431 SbpIBase58Alphabet in ' ..\..\SimpleBaseLib\src\Interfaces\SbpIBase58Alphabet.pas' ,
2532 SbpBase58 in ' ..\..\SimpleBaseLib\src\Bases\SbpBase58.pas' ,
5461 SimpleBaseLibTestBase in ' ..\src\SimpleBaseLibTestBase.pas' ;
5562
5663begin
64+
65+ { $IFDEF TESTINSIGHT}
66+ TestInsight.DUnit.RunRegisteredTests;
67+ { $ELSE}
5768 Application.Initialize;
5869 if IsConsole then
5970 TextTestRunner.RunRegisteredTests
6071 else
6172 GUITestRunner.RunRegisteredTests;
73+ { $ENDIF}
6274
6375end .
Original file line number Diff line number Diff line change 2727 { $STRINGCHECKS OFF}
2828 { $WARN DUPLICATE_CTOR_DTOR OFF}
2929
30- // XE and Above
31- { $IF CompilerVersion >= 22.0}
32- { $DEFINE DELPHIXE_UP}
33- { $IFEND}
34-
3530{ $ENDIF}
3631
3732{ ========================== Common Compiler Settings ==========================}
Original file line number Diff line number Diff line change @@ -19,23 +19,6 @@ EInvalidOperationSimpleBaseLibException = class(ESimpleBaseLibException);
1919 // / </summary>
2020 TSimpleBaseLibByteArray = TBytes;
2121
22- { $IFDEF DELPHIXE_UP}
23- // / <summary>
24- // / Represents a dynamic array of Char.
25- // / </summary>
26- TSimpleBaseLibCharArray = TArray<Char>;
27-
28- // / <summary>
29- // / Represents a dynamic array of String.
30- // / </summary>
31- TSimpleBaseLibStringArray = TArray<String>;
32-
33- // / <summary>
34- // / Represents a dynamic array of array of byte.
35- // / </summary>
36- TSimpleBaseLibMatrixByteArray = TArray<TSimpleBaseLibByteArray>;
37-
38- { $ELSE}
3922 // / <summary>
4023 // / Represents a dynamic array of Char.
4124 // / </summary>
@@ -51,8 +34,6 @@ EInvalidOperationSimpleBaseLibException = class(ESimpleBaseLibException);
5134 // / </summary>
5235 TSimpleBaseLibMatrixByteArray = array of TSimpleBaseLibByteArray;
5336
54- { $ENDIF DELPHIXE_UP}
55-
5637implementation
5738
5839{ $IFDEF FPC}
You can’t perform that action at this time.
0 commit comments