浏览代码

* fix test for deletion notifications, because FPC clears the queue from front to back as well

git-svn-id: trunk@46844 -
svenbarth 4 年之前
父节点
当前提交
d8fadbb6d2
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/rtl-generics/tests/tests.generics.queue.pas

+ 1 - 1
packages/rtl-generics/tests/tests.generics.queue.pas

@@ -377,7 +377,7 @@ procedure TTestSimpleQueue.TestValueNotificationDelete;
 begin
 begin
   DoAdd(3);
   DoAdd(3);
   Queue.OnNotify:=@DoValueNotify;
   Queue.OnNotify:=@DoValueNotify;
-  SetExpectValues('Clear',['1','2','3'],[cnRemoved,cnRemoved,cnRemoved],{$IFDEF FPC}true{$ELSE}False{$endif});
+  SetExpectValues('Clear',['1','2','3'],[cnRemoved,cnRemoved,cnRemoved]);
   Queue.Clear;
   Queue.Clear;
   DoneExpectValues;
   DoneExpectValues;
 end;
 end;