Test suite results for test file tbs/tb0478.pp

Test run data :

View Test suite results

Test file "tbs/tb0478.pp" information:

t_id 1338
t_adddate 2004/08/28
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 50

Total = 50

OK=50 Percentage= 100.00

Source:

type
 integer = longint;

const
  {** @abstract(Character encoding value: UTF-8 storage format)}
  CHAR_ENCODING_UTF8 = 0;
  {** @abstract(Character encoding value: unknown format)}
  CHAR_ENCODING_UNKNOWN = -1;
  {** @abstract(Character encoding value: UTF-32 Big endian)}
  CHAR_ENCODING_UTF32BE = 1;
  {** @abstract(Character encoding value: UTF-32 Little endian)}
  CHAR_ENCODING_UTF32LE = 2;
  {** @abstract(Character encoding value: UTF-16 Little endian)}
  CHAR_ENCODING_UTF16LE = 3;
  {** @abstract(Character encoding value: UTF-16 Big endian)}
  CHAR_ENCODING_UTF16BE = 4;
  {** @abstract(Character encoding value: One byte per character storage
format)}
  CHAR_ENCODING_BYTE = 5;
  {** @abstract(Character encoding value: UTF-16 unknown endian
(determined by BOM))}
  CHAR_ENCODING_UTF16 = 6;
  {** @abstract(Character encoding value: UTF-32 unknown endian
(determined by BOM))}
  CHAR_ENCODING_UTF32 = 7;


function GetCharEncoding(alias: string; var _name: string): integer;
var
 encoding: integer;
 newencoding: integer;
begin
  _name:='';
  if length(alias) = 0 then
    Runerror(255);             { FAILED! }
  newencoding:=CHAR_ENCODING_UTF8;
  encoding:=CHAR_ENCODING_BYTE;
           case newencoding of
           { currently unsupported }
           CHAR_ENCODING_UNKNOWN:
              Begin
              end;
           { verify if we are using the correct encoding }
           CHAR_ENCODING_UTF16:
              begin
                if (encoding <> CHAR_ENCODING_UTF16BE) and
                   (encoding <> CHAR_ENCODING_UTF16LE) then
                      encoding:=255;
              end;
           { verify if we are using the correct encoding }
           CHAR_ENCODING_UTF32:
              begin
                if (encoding <> CHAR_ENCODING_UTF32BE) and
                   (encoding <> CHAR_ENCODING_UTF32LE) then
                      encoding:=255;
              end;
           CHAR_ENCODING_UTF16BE,
           CHAR_ENCODING_UTF16LE,
           CHAR_ENCODING_UTF32LE,
           CHAR_ENCODING_UTF32BE:
              begin
              end;
           else
              begin
                 encoding:=newencoding;
              end;
           end;
  if encoding <> CHAR_ENCODING_UTF8 then
    RunError(255);
end;


var
 _encoding: string;
Begin
 _encoding:='UTF-8';
 GetCharencoding(_encoding,_encoding);
end.

Link to SVN view of tbs/tb0478.pp source.