ViewVC Help

View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing

root/public/ibx/trunk/fbintf/testsuite/testsuite.lpr

Comparing ibx/trunk/fbintf/testsuite/testsuite.lpr (file contents):
Revision 45 by tony, Tue Dec 6 10:33:46 2016 UTC vs.
Revision 68 by tony, Tue Oct 17 10:07:58 2017 UTC

#	Line 1 | Line 1
1		program testsuite;
2
3	+	{$IFDEF FPC}
4		{$mode objfpc}{$H+}
5		{$codepage utf8}
6	+	{$ENDIF}
7
8		uses
9		{$IFDEF UNIX}
#	Line 78 | Line 80 | begin
80		end;
81
82		TestMgr.ShowStatistics := HasOption('S','stats');
83	+	{$IF declared(SetTextCodePage)}
84	+	{Ensure consistent UTF-8 output}
85	+	SetTextCodePage(OutFile,cp_utf8);
86	+	{$IFEND}
87
88		{Ensure consistent date reporting across platforms}
89		DefaultFormatSettings.ShortDateFormat := 'd/m/yyyy';
90	+	DefaultFormatSettings.LongTimeFormat := 'HH:MM:SS';
91		DefaultFormatSettings.DateSeparator := '/';
92
93		writeln(OutFile,Title);

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines