Browse Source

tests: fix test of WideByteOf for big endian system

git-svn-id: trunk@19402 -
paul 14 years ago
parent
commit
05ca66adf8
1 changed files with 7 additions and 1 deletions
  1. 7 1
      tests/test/units/sysutils/tbytesof.pp

+ 7 - 1
tests/test/units/sysutils/tbytesof.pp

@@ -20,7 +20,13 @@ end;
 
 function CheckWideBytes(const B: TBytes): Boolean;
 const
-  Etalon: array[0..7] of Byte = (84, 00, 101, 00, 115, 00, 116, 00);
+  Etalon: array[0..7] of Byte = (
+{$ifdef FPC_BIG_ENDIAN}
+   00, 84, 00, 101, 00, 115, 00, 116
+{$else}
+   84, 00, 101, 00, 115, 00, 116, 00
+{$endif}
+  );
 var
   I: Integer;
 begin