Przeglądaj źródła

dbtestframework:
* remove duplicate test, see issue #25648

git-svn-id: trunk@27077 -

reiniero 11 lat temu
rodzic
commit
088c4fce57
1 zmienionych plików z 0 dodań i 28 usunięć
  1. 0 28
      packages/fcl-db/tests/testspecifictbufdataset.pas

+ 0 - 28
packages/fcl-db/tests/testspecifictbufdataset.pas

@@ -39,7 +39,6 @@ type
     procedure TestAutoIncField;
     procedure TestAutoIncFieldStreaming;
     procedure TestAutoIncFieldStreamingXML;
-    procedure TestEditedBlobBeforePost; //bug 15376
   end;
 
 implementation
@@ -249,33 +248,6 @@ begin
   IntTestAutoIncFieldStreaming(true);
 end;
 
-procedure TTestSpecificTBufDataset.TestEditedBlobBeforePost;
-var
-  ds : TBufDataset;
-begin
-  ds := TBufDataset.Create(nil);
-  DS.FieldDefs.Add('ID',ftInteger);
-  DS.FieldDefs.Add('NAME',ftString,50);
-  DS.FIeldDefs.Add('MEMO1',ftMemo);
-  DS.CreateDataset;
-  DS.Open;
-  with DS do
-    begin
-    Append;
-    FieldByName('ID').AsInteger:=1;
-    FieldByName('NAME').AsString:='NAME1';
-    FieldByName('MEMO1').AsString:='NAME1';
-    CheckEquals(1,FieldByName('ID').AsInteger,'Integer field must match before post');
-    CheckEquals('NAME1',FieldByName('NAME').AsString,'String field must match before post');
-    CheckEquals('NAME1',FieldByName('MEMO1').AsString,'Memo field must match before post');
-    Post;
-    CheckEquals(1,FieldByName('ID').AsInteger,'Integer field must match after post');
-    CheckEquals('NAME1',FieldByName('NAME').AsString,'String field must match after post');
-    CheckEquals('NAME1',FieldByName('MEMO1').AsString,'Memo field must match after post');
-    end;
-  DS.Close;
-end;
-
 initialization
 {$ifdef fpc}