Технологии тестирования программного обеспечения
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
d0;-,.,AND,-.,OR,.,/.,-,.-,--.CheckTreeNilTmObejctMain.procedureMain.CheckTreeNil;vartn:boolean;begintn:=(GetPtrOfClass(SCl)=nil)and(GetPtrOfClass(UCl)=nil)and(GetPtrOfClass(ACl)=nil);iftnthenError();end;:--------------------L---------T----------/\/\/\/G(SCl)=nil\/\/G(UCl)=nil\-----------\/\G(ACl)=nil/\/\/\/--------------------+------------------Error()L-------------------T-------------------+<--------------------------------+---------L--------------------2.3.,,..2.3.===T===========================T============T============N---+---------------------------+------------+------------GetPtrOfClass(SCl)=nil1GetPtrOfClass(UCl)=niltn=truetn=trueGetPtrOfClass(ACl)=nil---+---------------------------+------------+------------GetPtrOfClass(SCl)<>nil2GetPtrOfClass(UCl)=niltn=falsetn=falseGetPtrOfClass(ACl)=nil---+---------------------------+------------+------------GetPtrOfClass(SCl)=nil3GetPtrOfClass(UCl)<>niltn=falsetn=falseGetPtrOfClass(ACl)=nil---+---------------------------+------------+------------GetPtrOfClass(SCl)<>nil4GetPtrOfClass(UCl)<>niltn=falsetn=falseGetPtrOfClass(ACl)=nil---+---------------------------+------------+------------GetPtrOfClass(SCl)=nil5GetPtrOfClass(UCl)=niltn=falsetn=falseGetPtrOfClass(ACl)<>nil---+---------------------------+------------+------------GetPtrOfClass(SCl)<>nil6GetPtrOfClass(UCl)=niltn=falsetn=falseGetPtrOfClass(ACl)<>nil---+---------------------------+------------+------------GetPtrOfClass(SCl)=nil7GetPtrOfClass(UCl)<>niltn=falsetn=falseGetPtrOfClass(ACl)<>nil---+---------------------------+------------+------------GetPtrOfClass(SCl)<>nil8GetPtrOfClass(UCl)<>niltn=falsetn=falseGetPtrOfClass(ACl)<>nilL======================================================-%d