फ्री पास्कल और डेल्फी

Question

के लिए सिंगल-सोर्स यूनिट परीक्षण क्या यूनिट परीक्षण लिखने का कोई तरीका है ताकि उन्हें संकलित और डेल्फी और फ्री पास्कल दोनों के साथ चलाया जा सके?

डेल्फी और मुफ्त पास्कल, जो डेवलपर्स जो दोनों compilers (उदाहरण, पुस्तकालय और ढांचे डेवलपर्स के लिए) को लक्षित के लिए डुप्लिकेट काम का कारण बनता है के लिए अलग इकाई परीक्षण चौखटे रहे हैं।

तो शायद डुनीट या एफपीसीयूनीट फ्रेमवर्क का उपयोग करके एक तरीका है और परीक्षण केस स्रोत कोड (या फ्रेमवर्क स्वयं) को ट्विक करें ताकि यह अन्य कंपाइलर के साथ भी काम करे।

तो अनिवार्य रूप से सवाल यह है:

• जो रूपरेखा (DUnit या FPCUnit) यथासंभव कम संशोधनों के साथ दोनों compilers (डेल्फी और मुफ्त पास्कल) के साथ संकलित किया जा सकता?

या

• वहाँ एक तिहाई ढांचे डेल्फी और पांचवें वेतन आयोग के साथ काम करता (TSynTest उल्लेख के लिए अरनॉड के लिए धन्यवाद) क्या है?

Answer 1

डिफ़ॉल्ट इकाई परीक्षण ढांचे, FPCUnit है यह DUnit रूप में एक ही डिजाइन किया गया है, लेकिन मामूली विवरण में यह से अलग। {$IFDEF FPC} द्वारा मतभेदों को बाधित करके आप एफपीसीयूनीट और डुनिट के लिए सामान्य यूनिट परीक्षण लिख सकते हैं। मैंने अभी एफपीसीयूनीट का परीक्षण किया है, यह एक प्रयोग योग्य ढांचा है, और blogged about it है।

Answer 2

मैं सिर्फ एक नमूना है कि दोनों DUnit (डेल्फी) और FPCUnit (DUnit, कि लाजर 1.0 में, जो FreePascal 2.6 शामिल हैं "बॉक्स में" पहले से ही जहाज के लिए होता है के सबसे नजदीक FreePascal समकक्ष) में काम करता है ऊपर मार पड़ी है:

आईएफडीईएफ का एक छोटा सा हिस्सा और आप वहां हैं। के लिए नि: शुल्क पास्कल

unit TestUnit1; 

{$IFDEF FPC} 
{$mode objfpc}{$H+} 
{$ENDIF} 

interface 

uses 
    Classes, 
    {$ifdef FPC} 
    fpcunit, testutils, testregistry, 
    {$else} 
    TestFramework, 
    {$endif} 
    SysUtils; 

type 
    TTestCase1= class(TTestCase) 
    published 
    procedure TestHookUp; 
    end; 

implementation 

procedure TTestCase1.TestHookUp; 
begin 
    Self.Check(false,'value'); 
end; 

initialization 
    RegisterTest(TTestCase1{$ifndef FPC}.Suite{$endif}); 
end. 

Answer 3

यह very nice blog article देखें - एफपीसीयूनीट परीक्षण के बारे में केवल ताजा मांस।

संक्षेप में, जहाँ तक मुझे पता है, और आप अगर compare to DUnit:

• अधिकांश चेक *() तरीकों जोर * नाम दिया गया();
• सेटअप/टियरडाउन तरीकों दोनों ढांचे में प्रति-समारोहकहा जाता है,
• कुछ अन्य सोच भिन्न हो सकते हैं।

तो, मैं इसे DUnit साथ की तुलना में एक ही सटीक तरीकों के लिए, यह बताने के लिए FPCUnit "की नकल करता है" DUnit आसान हो सकता है FPCUnit कार्यान्वयन के ऊपर एक छोटे आवरण वर्ग बनाकर लगता है। तो आप दो लक्ष्यों के बीच कोड साझा करने में सक्षम हो सकते हैं, और मौजूदा डीयूनिट परीक्षणों का पुनः उपयोग भी कर सकते हैं। इस तरह का एक रैपर वर्ग आईएमएचओ अधिक सुविधाजनक है कि {$ifdef FPC} का उपयोग करके अन्य सुझाव दिया गया है। सशर्त संकलन डीबग, वर्बोज़, अनावश्यक करने के लिए कोड को कठिन बना देता है और केवल तभी उपयोग किया जाना चाहिए जब आवश्यक हो।

एक अन्य संभावित समाधान अन्य परीक्षण चौखटे उपयोग करने के लिए हो सकता है। हमारा छोटा TSynTest classes हल्का है, लेकिन मैं वर्तमान में फ्रेमवर्क को एफपीसी में परिवर्तित कर रहा हूं। तो एक ही सटीक कोड दोनों कंपाइलरों के साथ इस्तेमाल किया जा सकता है।इसमें कुछ विशेषताएं हैं (जैसे कि ठीक प्रोफाइलिंग के साथ वैकल्पिक लॉगिंग, और विफलता पर पूर्ण स्टैक स्ट्रेस) जिसे मैं डुनिट/एफपीसीयूनीट से चूकूंगा। इसमें कोई जीयूआई नहीं है और न ही विज़ार्ड है, लेकिन ईमानदारी से, क्योंकि मैं प्रोग्रामर के रूप में मैं सादा पाठ पसंद करता हूं जिसे मैं आसानी से प्रमाणित करने के लिए अपने तकनीकी रिलीज दस्तावेज में शामिल कर सकता हूं कि कोई प्रतिगमन नहीं हुआ।