कई परीक्षण नहीं होते हैं

कुछ समय पहले, मैंने धीरे-धीरे स्वचालित परीक्षण और टीडीडी को अपने व्यवहार में लाने का फैसला किया। मैं ईमानदारी से मानता हूं, यह सब अलग-अलग सफलता के साथ निकला। लेकिन यह तथ्य कि जीवन बहुत अधिक रोचक हो गया है, एक निर्विवाद तथ्य है। मेरे साथ तरह-तरह के रोमांच होने लगे। और, सभी रोमांच की तरह, कभी-कभी यह थोड़ा डरावना हो गया। मैं ऐसे ही एक मामले के बारे में बात करना चाहता हूं।

जिस परियोजना में मैंने हिस्सा लिया था, उसमें एक मिनट से लेकर एक साल तक का समय अंतराल के साथ बहुत सारे काम हुए। एक बुरा (या इसके विपरीत बहुत अच्छा है) प्रोग्रामर जिसने अपने जीवन में तारीखों के साथ काम करने का एक भी पुस्तकालय नहीं लिखा है। मैं बुरा नहीं हूं और दूसरों से बेहतर नहीं हूं, इसलिए मैंने अपने दिमाग को बढ़ाने और कुछ कोड बनाने का फैसला किया।

यह सब कैसे शुरू हुआ

परियोजना डेल्फी में थी। OOP से चिपके रहने का निर्णय TTimeIterator , TTimeIterator एक अमूर्त वर्ग लिखा, जिससे शेष कक्षाएं मिनट, घंटा, दिन, महीना, वर्ष की वृद्धि में आगे बढ़ने के लिए उत्पन्न हुईं। इन पुनरावृत्तियों का विचार यह है कि आरंभ और अंत के अंक प्राप्त करने के बाद, उन्होंने उन्हें अंतराल की सही सीमाओं के साथ संरेखित किया और आपको सही समय पर स्पष्ट रूप से आगे बढ़ने की अनुमति दी। मैं कटौती के बिना, एक अमूर्त वर्ग की घोषणा लाता हूं, क्योंकि यह परियोजना में लागू किया गया था।

 TTimeIterator=class(TObject) private StartPoint, FinishPoint:TDateTime; CurrentPoint:TDateTime; CurrentPointNumber:integer; function DTRound(p:TDateTime):TDateTime; virtual; abstract; function DTNext(p:TDateTime):TDateTime; virtual; abstract; function DTPrev(p:TDateTime):TDateTime; virtual; abstract; public constructor Create;overload; function Dump:string; function GetTotalPoints:integer; virtual; abstract; function GetCurrentPointNumber:integer; function GetCurrentPoint:TDateTime; procedure MoveNextPoint; function IsCurrentPoint:boolean; procedure SetStartPoint(DateTime:TDateTime; IncludeMode:TTimeIncludeModeType=INCLUDE_MODE); procedure SetFinishPoint(DateTime:TDateTime; IncludeMode:TTimeIncludeModeType=INCLUDE_MODE); end; 

अगला, हम फ़ंक्शन के कार्यान्वयन के बारे में बात करेंगे

  function GetTotalPoints:integer; virtual; abstract; 

यह फ़ंक्शन प्रारंभ और अंत बिंदुओं को स्थापित करने के बाद, आपको कुल अंक प्राप्त करने की अनुमति देता है जिसके माध्यम से पुनरावृत्ति पास होती है। शास्त्रीय पुनरावृत्त प्रतिमान के लिए, इसकी आवश्यकता नहीं है, लेकिन परियोजना में कुछ कार्यों के लिए ऐसा फ़ंक्शन बहुत उपयोगी होगा।

जैसा कि किसी ने तारीखों के साथ काम किया है, वह एक मिनट, एक घंटे, एक दिन और एक सप्ताह के अंतराल को भी नहीं जानता है। समस्याओं की शुरुआत महीनों से होती है। कार्य एक मासिक GetTotalPoints में GetTotalPoints फ़ंक्शन को लागू करना था।

अजीब महीने के समारोह

आगे की हलचल के बिना, मैंने मानक पुस्तकालय में एक नाम और तर्कों के साथ एक फ़ंक्शन पाया जो कोई संदेह नहीं छोड़ते हैं।

 function MonthsBetween(const ANow, AThen: TDateTime): Integer; 

बहुत मुश्किल परीक्षण एक धमाके के साथ पारित नहीं हुए। किसी तरह की अस्पष्ट भावना ने मुझे परीक्षण को और अधिक कठिन बना दिया। इनमें से एक परीक्षण विफल हो गया, और नीले रंग से बाहर।

थोड़ी जांच के बाद, मैंने देखा कि, 01.01.2012 0:00 और 01.05.2012 0:00 बीच के MonthsBetween अनुसार 01.05.2012 0:00 चार महीने (जनवरी, फरवरी, मार्च, अप्रैल) नहीं था, लेकिन केवल 3. मुझे इसमें दिलचस्पी थी। जैसा कि प्रसिद्ध कहावत है: यदि बाकी सब विफल हो जाता है, तो दस्तावेज़ीकरण पढ़ें। मैंने हॉरर में हेल्प और रीडिंग खोली:

महीनों में अंतर प्राप्त करने के लिए मंथवेनेट को कॉल करें, दो टीडीटेट टाइम मूल्यों के बीच। क्योंकि महीने सभी समान लंबाई के नहीं होते हैं, MonthBetween प्रति माह 30.4375 दिनों की धारणा के आधार पर एक सन्निकटन देता है।

वहाँ तुम जाओ! फ़ंक्शन लगभग काम करता है, औसत महीने की लंबाई 30.4375 दिनों के रूप में लेता है।

बोरलैंड को सही ठहराने के लिए कुछ शब्द

पहला झटका बीतने के बाद, मैंने अपना दिमाग़ फ़्लिप किया। वास्तव में, फ़ंक्शन का कार्यान्वयन अजीब है। लेकिन इसमें तर्क है। और मदद में इस तर्क के प्रत्यक्ष संकेत हैं। समस्या यह है कि कुछ समय बिंदुओं को निर्धारित करते समय, यह स्पष्ट रूप से निर्धारित करना मुश्किल है कि उनके बीच कितने महीने बीत चुके हैं। और परिणाम समस्या पर नज़र डालने पर निर्भर करता है। पूरे महीने के लिए क्या स्वीकार करें? 28 फरवरी से 31 मार्च के बीच पूरे कितने महीने बीत चुके हैं? और 28 फरवरी से 28 मार्च के बीच? मिट्टी बहुत फिसलन भरी है।

क्यों मुझे लगता है कि बोरलैंड काफी सही नहीं है

सबसे पहले, भले ही हम सभी बिंदुओं के लिए फ़ंक्शन के मूल्य को सही ढंग से निर्धारित नहीं कर सकते हैं, फिर उन बिंदुओं के लिए जो महीनों की सीमाओं के भीतर आते हैं, आवश्यक परिणाम स्पष्ट है। और इन बिंदुओं पर, फ़ंक्शन को एक मान वापस करना चाहिए जो रोजमर्रा के तर्क का खंडन नहीं करता है।

एक विशुद्ध रूप से व्यावहारिक प्रकृति की दूसरी आपत्ति - मैं एक भी मामले के साथ नहीं आ सका, जहां बोरलैंड ने इसे जिस रूप में बनाया था उसमें एक फ़ंक्शन उपयोगी हो सकता है। यह आँकड़ों के लिए भी उपयुक्त नहीं है, जो, जैसा कि आप जानते हैं, औसत के साथ काम करना पसंद करते हैं।

मुझे डर क्यों लगा

मैं बोरलैंड कंपनी से डरता नहीं था, जिसने इस तरह के अजीब काम करने वाले फ़ंक्शन को लिखा था। इसके अलावा, सही कार्यान्वयन कोड की कई लाइनें लेता है।

जब मैं प्रलेखन को पढ़े बिना कोड में फ़ंक्शन कॉल को शामिल करता था, तो मैं अपनी खुद की तुच्छता से डरता नहीं था।

मुझे डर था क्योंकि बड़ी संख्या में यह फ़ंक्शन सही मान लौटाता है, और यदि यह गलत रिटर्न देता है, तो यह केवल एक से भिन्न होता है। मैंने मोटे तौर पर अनुमान लगाया कि इस त्रुटि का प्रभाव सिस्टम पर समग्र रूप से कैसे दिखाई देगा। इसका मतलब यह होगा कि कभी-कभी हमें पिछले एक महीने के बजाय रिपोर्ट में डेटा प्राप्त होगा (और अलग-अलग महीनों की रिपोर्ट पहले से ही जुड़वाँ बच्चों के समान हैं)।

मैंने कल्पना की कि यह त्रुटि चतुराई से यूनिट परीक्षणों के ब्लॉक के माध्यम से कैसे जाती है। फिर एकीकरण परीक्षण पर काबू पा लिया। बहुत अधिक कठिनाई के बिना मैनुअल परीक्षण और स्वीकृति परीक्षणों पर काबू पाना। और सिस्टम वास्तविक दुनिया में दशकों से काम कर रहा है, कभी-कभी नकली डेटा का उत्पादन करता है।

विश्वसनीयता के सिद्धांत के दृष्टिकोण से, हमें अज्ञात मूल का एक अस्थायी, कठिन-से-निदान निदान मिलेगा। सिस्टम में कितने ऐसे दोष मौजूद हैं जो हमारी सुरक्षा और महत्वपूर्ण कार्यों को सुनिश्चित करते हैं? मुझे नहीं पता मैं सिर्फ लुकी था कि मैंने इस दोष का पता लगाया।

निम्नलिखित विचारों ने मुझे थोड़ा आराम दिया:

पहला: परीक्षण के बिना, मुझे निश्चित रूप से इस तरह की त्रुटि नहीं मिलेगी।
दूसरी बात: मैंने अपने एक राजनेता के शब्दों को याद किया। उनसे पूछा गया: "क्या यह सच है कि रूस तेल की कीमतों के साथ भाग्यशाली था।" उसने उत्तर दिया: "मूर्ख भाग्यशाली हैं, और हम सुबह से रात तक काम करते हैं।"

यह सब कैसे समाप्त हुआ

मैंने अपनी आवश्यकताओं के दृष्टिकोण से एक फ़ंक्शन लिखा,

 function DeviceTimeExactMonthsBetween(StartDate, EndDate: TDateTime):integer; const BASE_YEAR=1990; var y1,y2,m1,m2,d1,d2 : word; StartMonths, EndMonths:integer; begin DecodeDate(StartDate,y1,m1,d1); DecodeDate(EndDate,y2,m2,d2); StartMonths:=(y1-BASE_YEAR)*12+m1; EndMonths:=(y2-BASE_YEAR)*12+m2; Result:=EndMonths-StartMonths; if d2<d1 then dec(Result); if Result<0 then Result:=0; end; 

और यूनिट परीक्षणों में, अन्य के साथ, मैंने निम्नलिखित कोड जोड़ा:

 CheckNotEquals( // Headfire function DeviceTimeExactMonthsBetween( StrToDateTime('01.01.2012'), StrToDateTime('01.05.2012')), // BorlandFunction MonthsBetween( StrToDateTime('01.01.2012'), StrToDateTime('01.05.2012')), //Test name 'Month BorladFailureTest' ); 

हालांकि बोरलैंड कंपनी अब मौजूद नहीं है, जो जानता है, अचानक मंथवेनेट फंक्शन किसी दिन अधिक सही ढंग से काम करेगा।

मैं कितना भाग्यशाली हूँ?

पहले से ही अब, जब मैंने इस मामले को एक लेख के रूप में खींचने का फैसला किया, तो मुझे आश्चर्य हुआ कि त्रुटि को खोजने के लिए मैं वास्तव में कितना भाग्यशाली था। दस मिनट में मैंने एक छोटा सा दृश्य देखा। मैं नीचे दिए गए पाठ को उद्धृत करता हूं (वैसे, यह दर्शाता है कि अभ्यास में पुनरावृत्तियों का उपयोग कैसे किया जाता है)।

 procedure TMainForm.DrawFaults(BeginDate,EndDate:TDateTime); var IteratorForBegin,IteratorForEnd:TTimeIterator; x,y,diff:Integer; color:TColor; begin IteratorForBegin:=CreateDeviceTimeIterator(MONTH_INTERVAL); IteratorForEnd:=CreateDeviceTimeIterator(MONTH_INTERVAL); IteratorForBegin.SetStartPoint(BeginDate , INCLUDE_MODE); IteratorForBegin.SetFinishPoint(EndDate, INCLUDE_MODE); while (IteratorForBegin.IsCurrentPoint) do begin IteratorForEnd.SetStartPoint(IteratorForBegin.GetCurrentPoint, INCLUDE_MODE); IteratorForEnd.SetFinishPoint(EndDate, INCLUDE_MODE); while (IteratorForEnd.IsCurrentPoint) do begin diff:=DeviceTimeExactMonthsBetween(IteratorForBegin.GetCurrentPoint,IteratorForEnd.GetCurrentPoint) - MonthsBetween(IteratorForBegin.GetCurrentPoint,IteratorForEnd.GetCurrentPoint); color:=clBlack; //  ,    -  -   if diff=0 then color:=clGreen; if diff=1 then color:=clRed; y:=IteratorForBegin.GetCurrentPointNumber; x:=y+IteratorForEnd.GetCurrentPointNumber; Canvas.Brush.Color:=color; Canvas.Ellipse(10+x*12,10+y*12,20+x*12,20+y*12); //   // Canvas.Pixels[10+x,10+y]:=color; IteratorForEnd.MoveNextPoint; end; IteratorForBegin.MoveNextPoint; end; end; 

यहां 2012 के भीतर MonthsBetween फ़ंक्शन के संचालन को दर्शाती एक तस्वीर है (जब मैंने प्रोजेक्ट लिखा था)। ग्रीन उन मामलों के अनुरूप होते हैं जब MonthsBetween सही परिणाम देता है, लाल, जब यह एक कम होता है।


स्थिति बहुत अच्छी नहीं है, खासकर जब से मैंने वर्ष की दूसरी छमाही में परियोजना लिखी थी। (परीक्षण करते समय, मैं वर्तमान के जितना संभव हो उतना तिथियों का उपयोग करने का प्रयास करता हूं)। संभावना है कि परीक्षण पास हो जाएंगे।

यहाँ बीस साल की रेंज में समारोह का एक दृश्य है (2010-2020)


हम देखते हैं कि त्रुटियों की संख्या बढ़ जाती है और लगभग 50 से 50 हो जाती है। इस प्रकार, जब लंबे अंतराल को परीक्षणों में शामिल किया जाता है, तो त्रुटि का पता लगाने की संभावना बढ़ जाती है। वास्तव में क्या हुआ। जब मैं बहुत आलसी नहीं था और एक लंबे समय तक अंतराल लिया, तो त्रुटि का पता चला।

निष्कर्ष

हां बिल्कुल। कारण, मैं समझता हूं कि किसी भी परियोजना के लिए एक इष्टतम संख्या में परीक्षण और परीक्षण कवरेज का आकार है। यह कार्यक्रम के उद्देश्य, उपयोग की जाने वाली तकनीक, उद्योग और विश्वसनीयता आवश्यकताओं पर निर्भर करता है।
लेकिन जब मैं शुरू में लॉन्च रॉकेट को देखता हूं, तो तैयार रॉकेट अंतरिक्ष में चला जाएगा। परमाणु हथियारों को ले जाने वाली एक पनडुब्बी की तरह, यह टोपियां बनाती है और विसर्जन के लिए तैयार करती है, एक अर्ध-वार्षिक अभियान के लिए। जब मैं देखता हूं कि पड़ोसी गली में एक नया शॉपिंग सेंटर कैसे बनाया जा रहा है, तो ताकत की गणना आधुनिक समूहों पर की गई थी। जब मैं यह देखता हूं, तो मैं अपने पूरे दिल से चाहता हूं कि जितना संभव हो, अच्छा और अलग-अलग परीक्षण हो।