नकली वस्तुओं के लिए पर्ल धोखा शीट

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

रैंडम नंबर जेनरेटर प्रतिस्थापन

BEGIN { *CORE::GLOBAL::rand = sub {66}; } 

समय बदला

 use Test::MockTime qw( :all ); set_fixed_time( 1305636470 ); # do something restore_time(); 

CPAN: टेस्ट :: मॉकटाइम

स्पूफिंग रेडिस

 use Test::Mock::Redis; my $redis = Test::Mock::Redis->new( server => 'whatever' ); 

CPAN: टेस्ट :: मॉक :: रेडिस

DBMS स्पूफिंग

सम्मिलित करें:

 use DBI; my $dbh = DBI->connect( 'dbi:Mock:', '', '' ); my $history = $dbh->{mock_all_history}; my $st = $history->[0]; # do that execute sql query # check is( $st->statement, $expected_sql, 'Query must be correct' ); is( $st->bound_params()->[0], 123456, 'Bound parameter must be correct' ); 

चयन के लिए, आपको नकली परिणाम खिसकाने होंगे:

 $dbh->{mock_add_resultset} = { sql => 'SELECT emergency_dequeue_start()', results => [ [ 'emergency_dequeue_start' ], [ '11' ], ], }; 

हालाँकि यह केवल मॉड्यूल का परीक्षण करने के लिए आवश्यक है जो डेटाबेस के साथ सीधे काम करता है, अन्य मामलों में ओआरएम मॉड्यूल को बदलने के लिए बेहतर है या जो इसे बदलता है क्योंकि ये परीक्षण मॉड्यूल कार्यान्वयन के लिए दृढ़ता से बंधे हैं, और केवल एपीआई से बांधना बेहतर है।

CPAN: DBD :: नकली

HTTP स्क्रिप्ट (LWP :: UserAgent) तक पहुंच की जगह

 use Test::Mock::LWP; $Mock_ua->mock( agent => sub {'My Agent 007'} ); $Mock_request->mock( content_type => sub {'application/x-www-form-urlencoded'} ); $Mock_response->mock( code => sub {200} ); $Mock_response->mock( content => sub {$response} ); $Mock_response->mock( is_error => sub {0} ); $Mock_response->mock( status_line => sub {'status line'} ); 

$ प्रतिसाद चर के मान को सेट करके, हम "स्क्रिप्ट" की प्रतिक्रिया को नियंत्रित करते हैं। यदि हम सामग्री का उपयोग करते हैं () और यह जांचना चाहते हैं कि क्या अनुरोध सही ढंग से बनता है, तो यह करें:

 $Mock_ua->mock( agent => sub { 'SMSOnline plc' } ); $Mock_request->mock( content_type => sub { 'application/x-www-form-urlencoded' } ); $Mock_request->mock( content => sub { ( my $self, $got_request ) = @_; $got_request; } ); $Mock_response->mock( code => sub { 200 } ); $Mock_response->mock( content => sub { $response } ); $Mock_response->mock( is_error => sub { 0 } ); $Mock_response->mock( status_line => sub { 'status line' } ); 

हम जाँच कर सकते हैं कि $ got_request में वही है जो हम भेजना चाहते थे

CPAN: टेस्ट :: नकली :: LWP

एक मनमानी वस्तु का प्रतिस्थापन

 my $mock = Test::MockObject->new(); Test::MockObject->fake_new( 'My::Module' ); my @txt_stat = (0, 0); $mock->mock( 'read_txt', sub { return @txt_stat; } ); $mock->mock( 'write_txt', sub { 1; } ); 

@Txt_stat में हम विभिन्न परीक्षणों के लिए कुछ बदल सकते हैं

CPAN: टेस्ट :: MockObject

Log4perl स्पूफिंग

डिबग का प्रतिस्थापन () विधि:

 my $logger = Test::MockObject->new(); Test::MockObject->fake_new( 'Log::Log4perl::init' ); $logger->mock( 'debug', sub { shift; diag shift; } ); 

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

संदर्भ

टेस्ट के बारे में :: MockObject
DBD के बारे में :: नकली
Mrrico द्वारा सुझाए गए लिंक