Studio:Test Script Perl Template
Jump to navigation
Jump to search
The following sample represents a starting point for perl test scripts.
| Source |
|---|
=begin nd
Brief summary...
About: Description
Here is some description text. It can have text that is *bolded* and _underlined_.
About: Tests
test case 1 - description of test case 1
test case 2 - description of test case 2
etc - more cases...
About: Test Plan
See <http://project-portal.s2technologies.com/index.php/MyTestPlan>
About: Copyright
Copyright 2008 S2 Technologies support@s2technologies.com.
=end nd
use strict;
use warnings;
use Carp;
use Win32::TieRegistry(Delimiter=>"/");
use File::Spec;
use Win32::OLE;
Win32::OLE->Option(Warn => 3);
use vars qw( $StrideLibDirectory );
BEGIN {
my $strideDir = $Registry->{"LMachine/SOFTWARE/S2 Technologies/STRIDE/InstallDir"} || $ENV{'STRIDE_DIR'};
$StrideLibDirectory = File::Spec->catdir($StrideDirectory, 'lib', 'perl');
}
use lib $StrideLibDirectory;
|
This template uses NaturalDocs for documentation, which is a utility for documenting diverse codebases (including perl, c++, javascript). The documentation can be generated for your files by invoking the NaturalDocs Utility. The code above produces the following HTML output:
Example NaturalDocs Output