浏览代码

* test that SysUtils.Swap<>() doesn't hide System.Swap()

Sven/Sarah Barth 8 月之前
父节点
当前提交
6ec8441744
共有 1 个文件被更改,包括 6 次插入0 次删除
  1. 6 0
      tests/test/tmoperator13.pp

+ 6 - 0
tests/test/tmoperator13.pp

@@ -25,6 +25,7 @@ end;
 
 
 var
 var
   r1, r2, r3: TMyRec;
   r1, r2, r3: TMyRec;
+  w: Word;
 begin
 begin
   r1 := 42;
   r1 := 42;
   r2 := 32;
   r2 := 32;
@@ -36,5 +37,10 @@ begin
     Halt(2);
     Halt(2);
   if CopyCount <> 0 then
   if CopyCount <> 0 then
     Halt(3);
     Halt(3);
+  { ensure that SysUtils.Swap<> does not hide System.Swap }
+  w := $4321;
+  w := Swap(w);
+  if w <> $2143 then
+    Halt(4);
   WriteLn('Ok');
   WriteLn('Ok');
 end.
 end.