1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Unit TestCreateDataWithSGBD;
type
TTestCreateDataWithSGBD = class(TTestCase)
published
procedure TesterCreateOneData;
end;
TTestCreateDataWithSGBD.TesterCreateOneData;
var
testOneData :TTestCreateOneData;
begin
//pré-condition
testOneData := TTestCreateOneData.Create;
//event
FacadeSgbd.CreateOneData(testOneData);
//post condition
CheckTrue(FacadeSgbd.IsCreatedInBuffer(testOneData),'IsCreatedInBufferfailed');
CheckTrue(FacadeSgbd.IsCreatedOnSupport(testOneData),'IsCreatedOnSupportfailed');
end; |
Partager