Perl Language
पर्ल परीक्षण

पर्ल यूनिट परीक्षण उदाहरण

निम्नलिखित एक सरल उदाहरण पर्ल टेस्ट स्क्रिप्ट है, जो परीक्षण के तहत कक्षा / पैकेज में अन्य तरीकों के परीक्षण के लिए अनुमति देने के लिए कुछ संरचना देता है। स्क्रिप्ट सरल "ओके" / "नॉट ओके" टेक्स्ट के साथ मानक आउटपुट का उत्पादन करती है, जिसे टीएपी (टेस्ट एनीथिंग प्रोटोकॉल) कहा जाता है।

आमतौर पर साबित कमांड स्क्रिप्ट चलाता है और परीक्षण के परिणामों को सारांशित करता है।

#!/bin/env perl
# CPAN
use Modern::Perl;
use Carp;
use Test::More;
use Test::Exception;
use Const::Fast;

# Custom
BEGIN { use_ok('Local::MyPackage'); }

const my $PACKAGE_UNDER_TEST => 'Local::MyPackage';

# Example test of method 'file_type_build'
sub test_file_type_build {
    my %arg    = @_;
    my $label  = 'file_type_build';
    my $got_file_type;
    my $filename = '/etc/passwd';

    # Check the method call lives
    lives_ok(
        sub {
            $got_file_type = $PACKAGE_UNDER_TEST->file_type_build(
                filename => $filename
            );
        },
        "$label - lives"
    );

    # Check the result of the method call matches our expected result.
    like( $got_file_type, qr{ASCII[ ]text}ix, "$label - result" );
    return;
} ## end sub test_file_type_build

# More tests can be added here for method 'file_type_build', or other methods.


MAIN: {

   subtest 'file_type_build' => sub {
      test_file_type_build();
      # More tests of the method can be added here.
      done_testing();
   };

   # Tests of other methods can be added here, just like above.


   done_testing();
} ## end MAIN:

सर्वश्रेष्ठ प्रणालियां

एक परीक्षण स्क्रिप्ट में केवल एक पैकेज / कक्षा का परीक्षण होना चाहिए, लेकिन पैकेज / कक्षा का परीक्षण करने के लिए कई लिपियों का उपयोग किया जा सकता है।

आगे की पढाई

• परीक्षण :: अधिक - मूल परीक्षण संचालन।
• परीक्षण :: अपवाद - परीक्षण अपवादों को फेंक दिया।
• परीक्षण :: अंतर - जटिल डेटा संरचनाओं की तुलना में परीक्षण परिणामों की तुलना करना।
• टेस्ट :: क्लास - स्क्रिप्ट के बजाय क्लास आधारित परीक्षण। JUnit के समान।
• पर्ल टेस्टिंग ट्यूटोरियल - आगे पढ़ना।