NAME
FormA - Complete Software Test Description for the Tie::FormA Program Module
TITLE PAGE
Detailed Software Test Description (STD)
for
Complete Test of the Perl Tie::FormA Program Module
Revision: -
Version:
Date: 2004/06/01
Prepared for: General Public
Prepared by: http://www.SoftwareDiamonds.com support@SoftwareDiamonds.com
Classification: None####### # # 1. SCOPE # =head1 1.0 SCOPE
This document establishes detail Software Test Description (STD) for the Complete Test of the Perl Tie::FormA program module.
This detail STD, along with the General Perl Program Module (PM) STD establishes the full STD for the Perl Tie::FormA program module (PM)
####### # # 3.0 TEST PREPARATIONS # =head1 3.0 TEST PREPARATIONS
Test preparations are as specified in the general STD.
####### # # 4.0 TEST DESCRIPTIONS # =head1 4.0 TEST DESCRIPTIONS
The test descriptions uses a legend to identify different aspects of a test description in accordance with STD PM Form Database Test Description Fields.
4.${Test_Number} Complete Test
This test verifies both the lenient and strict formats of the Tie::FormA program module.
4.1.1 UUT not loaded - ok: 1
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^4.1.2 Load UUT - ok: 2
N: Load UUT^
C: my $errors = $fp->load_package($uut)^
A: $errors^
SE: ''^
ok: 2^4.1.3 Tie::FormA Version $Tie::FormA::VERSION loaded - ok: 3
N: Tie::FormA Version $Tie::FormA::VERSION loaded^
A: $fp->is_package_loaded($uut)^
E: 1^
ok: 3^4.1.4 Read lenient FormA - ok: 4
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^4.1.5 Write lenient FormA - ok: 5
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^4.1.6 Read strict FormA - ok: 6
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^4.1.7 Write strict FormA - ok: 7
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^####### # # 5.0 REQUIREMENTS TRACEABILITY # =head1 5.0 REQUIREMENTS TRACEABILITY
Requirement to Test Case Tracebility
over 4
- format [1] - separator strings
- format [2] - separator escapes
- format [2] - separator escape
- format [3] - field names
- format [4] - field names
- format [5] - EON
- format [6] - Strict EOD
- format [7] - Lenient EOD
- methods [1] - encode_field
- methods [2] - decode_field
- methods [3] - encode_record
- methods [4] - decode_record
- methods [5] - put_record
- methods [6] - get_record
- methods [7] - get_record
Test Case to Requirement Tracebility
over 4
- 4.1.4 Read lenient FormA
- 4.1.5 Write lenient FormA
-
format [1] - separator strings
- 4.1.6 Read strict FormA
-
format [1] - separator strings
- 4.1.7 Write strict FormA
-
format [1] - separator strings
####### # # 6.0 NOTES # =head1 NOTES
copyright © 2004 Software Diamonds.
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 must retain the above copyright notice, this list of conditions and the following disclaimer.
Redistributions in binary form must 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, must 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, shall pay a license fee to Software Diamonds and shall 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.
####### # # 2.0 REFERENCED DOCUMENTS # =head1 2.0 REFERENCED DOCUMENTS (SEE ALSO)
4 POD Errors
The following errors were encountered while parsing the POD:
- Around line 288:
'=item' outside of any '=over'
- Around line 402:
'=item' outside of any '=over'
- Around line 496:
Non-ASCII character seen before =encoding in '©'. Assuming CP1252
- Around line 579:
=back without =over