FormA - Complete Software Test Description for the Tie::FormA Program Module
Detailed Software Test Description (STD)
for
Complete Test of the Perl Tie::FormA Program Module
Revision: -
Version:
Date: 2004/06/02
Prepared for: General Public
Prepared by: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com
Classification: None
This document establishes detail Software Test Description (STD) for the Complete Test of the Perl Tie::FormA program module.
This Software Test Description (STD) is a detail Software Test Description in the form of a STD specification sheet, which is incomplete without reference to the General Perl Program Module STD specification. This detail STD and the General Perl Program Module STD constitute the total requirements for the Perl Tie::FormA program module.
Test preparations are as specified in the General Perl Program Module STD.
The test descriptions uses a legend to identify different aspects of a test description in accordance with STD PM Form Database Test Description Fields.
This test verifies both the lenient and strict formats of the Tie::FormA program module.
Tie::FormA
C: use File::Package; use File::SmartNL; use File::Spec; my $uut = 'Tie::FormA'; # Unit Under Test my $fp = 'File::Package'; my $loaded; my (@fields); # force context my $out_file = File::Spec->catfile('FormA','form1.txt');; unlink $out_file; my $lenient_in_file = File::Spec->catfile('FormA','lenient0.txt'); my $strict_in_file = File::Spec->catfile('FormA','strict0.txt'); ^ QC: ###### # Not needed for demo, so use the Quiet Code (QC) # my $lenient_expected_file = File::Spec->catfile('FormA','lenient2.txt'); my $strict_expected_file = File::Spec->catfile('FormA','lenient2.txt'); my @test_data1 = ( [ 'UUT', 'File/Version.pm', 'File_Spec', '', 'Revision', '', 'End_User', '', 'Author', 'http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com', 'SVD', 'SVD::DataCop-DataFile', 'Template', 'STD/STD001.frm', ], [ 'Email', 'nobody@hotmail.com', 'Form', 'Udo-fully processed oils', 'Tutorial', '*~~* Better Health thru Biochemistry *~~*', 'REMOTE_ADDR', '213.158.186.150', 'HTTP_USER_AGENT', 'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)', 'HTTP_REFERER', 'http://computerdiamonds.com/', ], [ 'EOF', '\n', 'EOL', '\n^^\n', 'EOV', '}', 'SOV', '${' ], [ 'EOF', '^^', 'EOL', '~-~', 'SOV', '${', 'EOV', '}' ], [ 'EOF', '^^^', 'EOL', '~---~', 'SOV', '${', 'EOV', '}', ] ); ^ VO: ^ N: UUT not loaded^ A: $loaded = $fp->is_package_loaded($uut)^ SE: ''^ ok: 1^
N: Load UUT^ C: my $errors = $fp->load_package($uut)^ A: $errors^ SE: ''^ ok: 2^
N: Tie::FormA Version $Tie::FormA::VERSION loaded^ A: $fp->is_package_loaded($uut)^ E: 1^ ok: 3^
N: Read lenient FormA^ R: L<format [1] - separator strings|Tie::FormA/format [1] - separator strings> L<format [2] - separator escape|Tie::FormA/format [2] - separator escapes> L<format [3] - field names|Tie::FormA/format [3] - field names> L<format [4] - field names|Tie::FormA/format [4] - field names> L<format [5] - EON|Tie::FormA/format [5] - EON> L<format [7] - Lenient EOD|Tie::FormA/format [7] - Lenient EOD> L<methods [2] - decode_field|Tie::FormA/methods [2] - decode_field> L<methods [4] - decode_record|Tie::FormA/methods [4] - decode_record> L<methods [6] - get_record|Tie::FormA/methods [6] - get_record> L<methods [7] - get_record|Tie::FormA/methods [7] - get_record> ^ C: tie *FORM, 'Tie::FormA'; open FORM,'<',File::Spec->catfile($lenient_in_file); @fields = <FORM>; close FORM; ^ A: [@fields]^ E: [@test_data1]^ ok: 4^
N: Write lenient FormA^ R: L<format [1] - separator strings|Tie::FormA/format [1] - separator strings> L<format [2] - separator escapes|Tie::FormA/format [2] - separator escapes> L<format [3] - field names|Tie::FormA/format [3] - field names> L<format [4] - field names|Tie::FormA/format [4] - field names> L<format [5] - EON|Tie::FormA/format [5] - EON> L<format [7] - Lenient EOD|Tie::FormA/format [7] - Lenient EOD> L<methods [1] - encode_field|Tie::FormA/methods [1] - encode_field> L<methods [3] - encode_record|Tie::FormA/methods [3] - encode_record> L<methods [5] - put_record|Tie::FormA/methods [5] - put_record> ^ C: open FORM, '>', $out_file; print FORM @fields; close FORM; ^ A: File::SmartNL->fin($out_file)^ E: File::SmartNL->fin($lenient_expected_file)^ ok: 5^
N: Read strict FormA^ R: L<format [1] - separator strings|Tie::FormA/format [1] - separator strings> L<format [2] - separator escapes|Tie::FormA/format [2] - separator escapes> L<format [3] - field names|Tie::FormA/format [3] - field names> L<format [4] - field names|Tie::FormA/format [4] - field names> L<format [5] - EON|Tie::FormA/format [5] - EON> L<format [6] - Strict EOD|Tie::FormA/format [6] - Strict EOD> L<methods [2] - decode_field|Tie::FormA/methods [2] - decode_field> L<methods [4] - decode_record|Tie::FormA/methods [4] - decode_record> L<methods [6] - get_record|Tie::FormA/methods [6] - get_record> L<methods [7] - get_record|Tie::FormA/methods [7] - get_record> ^ C: tie *FORM, 'Tie::FormA'; open FORM,'<',File::Spec->catfile($strict_in_file); @fields = <FORM>; close FORM; ^ A: [@fields]^ E: [@test_data1]^ ok: 6^
N: Write strict FormA^ R: L<format [1] - separator strings|Tie::FormA/format [1] - separator strings> L<format [2] - separator escapes|Tie::FormA/format [2] - separator escapes> L<format [3] - field names|Tie::FormA/format [3] - field names> L<format [4] - field names|Tie::FormA/format [4] - field names> L<format [5] - EON|Tie::FormA/format [5] - EON> L<format [6] - Strict EOD|Tie::FormA/format [6] - Strict EOD> L<methods [1] - encode_field|Tie::FormA/methods [1] - encode_field> L<methods [3] - encode_record|Tie::FormA/methods [3] - encode_record> L<methods [5] - put_record|Tie::FormA/methods [5] - put_record> ^ C: open FORM, '>', $out_file; print FORM @fields; close FORM; ^ A: File::SmartNL->fin($out_file)^ E: File::SmartNL->fin($strict_expected_file)^ ok: 7^
Test Case 4.1.4 Read lenient FormA
Test Case 4.1.5 Write lenient FormA
Test Case 4.1.6 Read strict FormA
Test Case 4.1.7 Write strict FormA
Requirement format [1] - separator strings
Requirement format [2] - separator escape
Requirement format [3] - field names
Requirement format [4] - field names
Requirement format [5] - EON
Requirement format [7] - Lenient EOD
Requirement methods [2] - decode_field
Requirement methods [4] - decode_record
Requirement methods [6] - get_record
Requirement methods [7] - get_record
Requirement format [2] - separator escapes
Requirement methods [1] - encode_field
Requirement methods [3] - encode_record
Requirement methods [5] - put_record
Requirement format [6] - Strict EOD
The construction of the words "shall", "may" and "should" shall[1] conform to United States (US) Departmart of Defense (DoD) STD490A 3.2.3.6 which is more precise and even consistent, at times, with RFC 2119, http://www.ietf.org/rfc/rfc2119.txt Binding requirements shall[2] be uniquely identified by the construction "shall[\d+]" , where "\d+" is an unique number for each paragraph(s) uniquely identified by a header. The construction of commonly used words and phrasing shall[3] conform to US DoD STD490A 3.2.3.5 In accordance with US Dod STD490A 3.2.6, requirments shall[4] not be emphazied by underlining and capitalization. All of the requirements are important in obtaining the desired performance.
Unless otherwise specified, in accordance with Software Diamonds' License, Software Diamonds shall[5] not be responsible for this program module conforming to all the specified requirements, binding or otherwise.
The author, holder of the copyright and maintainer is
<support@SoftwareDiamonds.com>
copyright © 2004 SoftwareDiamonds.com
Software Diamonds permits the redistribution and use in source and binary forms, with or without modification, provided that the following conditions are met:
Redistributions of source code, modified or unmodified shall[1] retain the above copyright notice, this list of conditions and the following disclaimer.
Redistributions in binary form shall[2] reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
In addition to condition (1) and (2), commercial installation of a software product with the binary or source code embedded in the software product or a software product of binary or source code, with or without modifications, shall[3] visually present to the installer the above copyright notice, this list of conditions intact, that the original source is available at http://packages.softwarediamonds.com and provide means for the installer to actively accept the list of conditions; otherwise, the commerical activity, as determined by Software Diamonds and published at http://packages.softwarediamonds.com, shall[4] pay a license fee to Software Diamonds and shall[5] make donations, to open source repositories carrying the source code.
SOFTWARE DIAMONDS, http://www.SoftwareDiamonds.com, PROVIDES THIS SOFTWARE 'AS IS' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SOFTWARE DIAMONDS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING USE OF THIS SOFTWARE, EVEN IF ADVISED OF NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE POSSIBILITY OF SUCH DAMAGE.
1 POD Error
The following errors were encountered while parsing the POD:
Non-ASCII character seen before =encoding in '©'. Assuming CP1252
To install Tie::FormA, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Tie::FormA
CPAN shell
perl -MCPAN -e shell install Tie::FormA
For more information on module installation, please visit the detailed CPAN module installation guide.