This distribution has been tested as part of the cpan-testers
effort to test as many new uploads to CPAN as possible. See
http://testers.cpan.org/
Please cc any replies to [EMAIL PROTECTED] to keep other
test volunteers informed and to prevent any duplicate effort.
--
This is an error report generated automatically by CPANPLUS,
version 0.049.
Below is the error stack during 'make test':
PERL_DL_NONLAZY=1 /usr/local/perl-5.8.4/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/Test/STDmaker/STDmaker.t
t/Test/STDmaker/STDmaker....######
ok: 9
~~~~~~~
tgA1.pm
#!perl
#
# The copyright notice and plain old documentation (POD)
# are at the end of this file.
#
package t::Test::STDmaker::tgA1;
use strict;
use warnings;
use warnings::register;
use vars qw($VERSION $DATE $FILE );
$VERSION = '0.01';
$DATE = '2003/06/07';
$FILE = __FILE__;
########
# The Test::STDmaker module uses the data after the __DATA__
# token to automatically generate the this file.
#
# Do not edit anything before __DATA_. Edit instead
# the data after the __DATA__ token.
#
# ANY CHANGES MADE BEFORE the __DATA__ token WILL BE LOST
#
# the next time Test::STDmaker generates this file.
#
#
=head1 NAME
t::Test::STDmaker::tgA1 - Software Test Description for Test::STDmaker::tg1
=head1 TITLE PAGE
Detailed Software Test Description (STD)
for
Perl Test::STDmaker::tg1 Program Module
Revision: -
Version: 0.01
Date: 2004/05/23
Prepared for: General Public
Prepared by:
Classification: None
#######
#
# 1. SCOPE
#
#
=head1 SCOPE
This detail STD and the
L<General Perl Program Module (PM) STD|Test::STD::PerlSTD>
establishes the tests to verify the
requirements of Perl Program Module (PM) L<Test::STDmaker::tg1|Test::STDmaker::tg1>
The format of this STD is a tailored L<2167A STD DID|Docs::US_DOD::STD>.
#######
#
# 3. TEST PREPARATIONS
#
#
=head1 TEST PREPARATIONS
Test preparations are establishes by the L<General STD|Test::STD::PerlSTD>.
#######
#
# 4. TEST DESCRIPTIONS
#
#
=head1 TEST DESCRIPTIONS
The test descriptions uses a legend to
identify different aspects of a test description
in accordance with
L<STD PM Form Database Test Description Fields|Test::STDmaker/STD PM Form Database
Test Description Fields>.
=head2 Test Plan
T: 22 - 3,6,14,17^
=head2 ok: 1
QC: my $expected1 = 'hello world';^
N: Quiet Code^
A: 'hello world'^
E: $expected1^
ok: 1^
=head2 ok: 2
R: L<Test::STDmaker::tg1/capability-A [1]>^
C: my $x = 2^
C: my $y = 3^
A: $x + $y^
SE: 5^
ok: 2^
=head2 ok: 3
U: xy feature^
A: $y-$x^
E: 1^
ok: 3^
=head2 ok: 4
N: Test that fails^
A: $x+4^
E: 7^
ok: 4^
=head2 ok: 5
S: 1^
A: $x*$y*2^
E: 6^
ok: 5^
=head2 ok: 6
U: zyw feature^
S: 0^
A: $x*$y*2^
E: 6^
ok: 6^
=head2 ok: 7
DO: ^
A: $x^
E: $y^
N: verify only^
VO: ^
A: $x^
E: $x^
ok: 7^
=head2 ok: 8
R: L<Test::STDmaker::tg1/capability-B [2]>^
A: $x + $y^
SE: 6^
ok: 8^
=head2 ok: 9
A: $x + $y + $x^
E: 9^
ok: 9^
=head2 ok: 10
S: 0^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y^
E: 10^
ok: 10^
=head2 ok: 11
S: 1^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y + $x^
E: 10^
ok: 11^
=head2 ok: 12
C:
#########
# For "TEST" 1.24 or greater that have separate std err output,
# redirect the TESTERR to STDOUT
#
tech_config( 'Test.TESTERR', \*STDOUT );
^
QC: my $expected1 = 'hello world';^
N: Quiet Code^
A: 'hello world'^
E: $expected1^
ok: 12^
=head2 ok: 13
N: Pass test^
R: L<Test::STDmaker::tg1/capability-A [1]>^
C: my $x = 2^
C: my $y = 3^
A: $x + $y^
SE: 5^
ok: 13^
=head2 ok: 14
N: Todo test that passes^
U: xy feature^
A: $y-$x^
E: 1^
ok: 14^
=head2 ok: 15
R:
L<Test::STDmaker::tg1/capability-A [2]>
L<Test::STDmaker::tg1/capability-B [1]>
^
N: Test that fails^
A: $x+4^
E: 7^
ok: 15^
=head2 ok: 16
N: Skipped tests^
S: 1^
A: $x*$y*2^
E: 6^
ok: 16^
=head2 ok: 17
N: Todo Test that Fails^
U: zyw feature^
S: 0^
A: $x*$y*2^
E: 6^
ok: 17^
=head2 ok: 18
N: demo only^
DO: ^
A: $x^
E: $y^
N: verify only^
VO: ^
A: $x^
E: $x^
ok: 18^
=head2 ok: 19
N: Failed test that skips the rest^
R: L<Test::STDmaker::tg1/capability-B [2]>^
A: $x + $y^
SE: 6^
ok: 19^
=head2 ok: 20
N: A test to skip^
A: $x + $y + $x^
E: 9^
ok: 20^
=head2 ok: 21
N: A not skip to skip^
S: 0^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y^
E: 10^
ok: 21^
=head2 ok: 22
N: A skip to skip^
S: 1^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y + $x^
E: 10^
ok: 22^
#######
#
# 5. REQUIREMENTS TRACEABILITY
#
#
=head1 REQUIREMENTS TRACEABILITY
Requirement Test
----------------------------------------------------------------
----------------------------------------------------------------
L<Test::STDmaker::tg1/capability-A [1]>
L<t::Test::STDmaker::tgA1/ok: 13>
L<Test::STDmaker::tg1/capability-A [1]>
L<t::Test::STDmaker::tgA1/ok: 2>
L<Test::STDmaker::tg1/capability-A [2]>
L<t::Test::STDmaker::tgA1/ok: 15>
L<Test::STDmaker::tg1/capability-B [1]>
L<t::Test::STDmaker::tgA1/ok: 15>
L<Test::STDmaker::tg1/capability-B [2]>
L<t::Test::STDmaker::tgA1/ok: 19>
L<Test::STDmaker::tg1/capability-B [2]>
L<t::Test::STDmaker::tgA1/ok: 8>
L<Test::STDmaker::tg1/capability-B [3]>
L<t::Test::STDmaker::tgA1/ok: 10>
L<Test::STDmaker::tg1/capability-B [3]>
L<t::Test::STDmaker::tgA1/ok: 11>
L<Test::STDmaker::tg1/capability-B [3]>
L<t::Test::STDmaker::tgA1/ok: 21>
L<Test::STDmaker::tg1/capability-B [3]>
L<t::Test::STDmaker::tgA1/ok: 22>
Test Requirement
----------------------------------------------------------------
----------------------------------------------------------------
L<t::Test::STDmaker::tgA1/ok: 10>
L<Test::STDmaker::tg1/capability-B [3]>
L<t::Test::STDmaker::tgA1/ok: 11>
L<Test::STDmaker::tg1/capability-B [3]>
L<t::Test::STDmaker::tgA1/ok: 13>
L<Test::STDmaker::tg1/capability-A [1]>
L<t::Test::STDmaker::tgA1/ok: 15>
L<Test::STDmaker::tg1/capability-A [2]>
L<t::Test::STDmaker::tgA1/ok: 15>
L<Test::STDmaker::tg1/capability-B [1]>
L<t::Test::STDmaker::tgA1/ok: 19>
L<Test::STDmaker::tg1/capability-B [2]>
L<t::Test::STDmaker::tgA1/ok: 21>
L<Test::STDmaker::tg1/capability-B [3]>
L<t::Test::STDmaker::tgA1/ok: 22>
L<Test::STDmaker::tg1/capability-B [3]>
L<t::Test::STDmaker::tgA1/ok: 2>
L<Test::STDmaker::tg1/capability-A [1]>
L<t::Test::STDmaker::tgA1/ok: 8>
L<Test::STDmaker::tg1/capability-B [2]>
=cut
#######
#
# 6. NOTES
#
#
=head1 NOTES
This STD is public domain.
#######
#
# 2. REFERENCED DOCUMENTS
#
#
#
=head1 SEE ALSO
L<Test::STDmaker::tg1>
=back
=for html
=cut
__DATA__
Author: ^
Classification: None^
Detail_Template: ^
End_User: General Public^
File_Spec: Unix^
Name: t::Test::STDmaker::tgA1^
Revision: -^
STD2167_Template: ^
Temp: temp.pl^
UUT: Test::STDmaker::tg1^
Version: 0.01^
Demo: tgA1.d^
Verify: tgA1.t^
T: 22 - 3,6,14,17^
QC: my $expected1 = 'hello world';^
N: Quiet Code^
A: 'hello world'^
E: $expected1^
ok: 1^
R: L<Test::STDmaker::tg1/capability-A [1]>^
C: my $x = 2^
C: my $y = 3^
A: $x + $y^
SE: 5^
ok: 2^
U: xy feature^
A: $y-$x^
E: 1^
ok: 3^
N: Test that fails^
A: $x+4^
E: 7^
ok: 4^
S: 1^
A: $x*$y*2^
E: 6^
ok: 5^
U: zyw feature^
S: 0^
A: $x*$y*2^
E: 6^
ok: 6^
DO: ^
A: $x^
E: $y^
N: verify only^
VO: ^
A: $x^
E: $x^
ok: 7^
R: L<Test::STDmaker::tg1/capability-B [2]>^
A: $x + $y^
SE: 6^
ok: 8^
A: $x + $y + $x^
E: 9^
ok: 9^
S: 0^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y^
E: 10^
ok: 10^
S: 1^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y + $x^
E: 10^
ok: 11^
C:
#########
# For "TEST" 1.24 or greater that have separate std err output,
# redirect the TESTERR to STDOUT
#
tech_config( 'Test.TESTERR', \*STDOUT );
^
QC: my $expected1 = 'hello world';^
N: Quiet Code^
A: 'hello world'^
E: $expected1^
ok: 12^
N: Pass test^
R: L<Test::STDmaker::tg1/capability-A [1]>^
C: my $x = 2^
C: my $y = 3^
A: $x + $y^
SE: 5^
ok: 13^
N: Todo test that passes^
U: xy feature^
A: $y-$x^
E: 1^
ok: 14^
R:
L<Test::STDmaker::tg1/capability-A [2]>
L<Test::STDmaker::tg1/capability-B [1]>
^
N: Test that fails^
A: $x+4^
E: 7^
ok: 15^
N: Skipped tests^
S: 1^
A: $x*$y*2^
E: 6^
ok: 16^
N: Todo Test that Fails^
U: zyw feature^
S: 0^
A: $x*$y*2^
E: 6^
ok: 17^
N: demo only^
DO: ^
A: $x^
E: $y^
N: verify only^
VO: ^
A: $x^
E: $x^
ok: 18^
N: Failed test that skips the rest^
R: L<Test::STDmaker::tg1/capability-B [2]>^
A: $x + $y^
SE: 6^
ok: 19^
N: A test to skip^
A: $x + $y + $x^
E: 9^
ok: 20^
N: A not skip to skip^
S: 0^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y^
E: 10^
ok: 21^
N: A skip to skip^
S: 1^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y + $x^
E: 10^
ok: 22^
See_Also: L<Test::STDmaker::tg1>^
Copyright: This STD is public domain.^
HTML: ^
~-~
~~~~~~~
tgA1.t
#!perl
#
#
use 5.001;
use strict;
use warnings;
use warnings::register;
use vars qw($VERSION $DATE $FILE);
$VERSION = '0.01'; # automatically generated file
$DATE = '2004/05/23';
$FILE = __FILE__;
##### Test Script ####
#
# Name: tgA1.t
#
# UUT: Test::STDmaker::tg1
#
# The module Test::STDmaker generated this test script from the contents of
#
# t::Test::STDmaker::tgA1;
#
# Don't edit this test script file, edit instead
#
# t::Test::STDmaker::tgA1;
#
# ANY CHANGES MADE HERE TO THIS SCRIPT FILE WILL BE LOST
#
# the next time Test::STDmaker generates this script file.
#
#
######
#
# T:
#
# use a BEGIN block so we print our plan before Module Under Test is loaded
#
BEGIN {
use FindBin;
use File::Spec;
use Cwd;
########
# The working directory for this script file is the directory where
# the test script resides. Thus, any relative files written or read
# by this test script are located relative to this test script.
#
use vars qw( $__restore_dir__ );
$__restore_dir__ = cwd();
my ($vol, $dirs) = File::Spec->splitpath($FindBin::Bin,'nofile');
chdir $vol if $vol;
chdir $dirs if $dirs;
#######
# Pick up any testing program modules off this test script.
#
# When testing on a target site before installation, place any test
# program modules that should not be installed in the same directory
# as this test script. Likewise, when testing on a host with a @INC
# restricted to just raw Perl distribution, place any test program
# modules in the same directory as this test script.
#
use lib $FindBin::Bin;
########
# Using Test::Tech, a very light layer over the module "Test" to
# conduct the tests. The big feature of the "Test::Tech: module
# is that it takes expected and actual references and stringify
# them by using "Data::Secs2"; before passing them to the "&Test::ok"
# Thus, almost any time of Perl data structures may be
# compared by passing a reference to them to Test::Tech::ok
#
# Create the test plan by supplying the number of tests
# and the todo tests
#
require Test::Tech;
Test::Tech->import( qw(finish is_skip ok ok_sub plan skip
skip_sub skip_tests tech_config) );
plan(tests => 22, todo => [3,6,14,17]);
}
END {
#########
# Restore working directory and @INC back to when enter script
#
@INC = @lib::ORIG_INC;
chdir $__restore_dir__;
}
# Perl code from QC:
my $expected1 = 'hello world';
ok( 'hello world', # actual results
$expected1, # expected results
"",
"Quiet Code");
# ok: 1
# Perl code from C:
my $x = 2;
# Perl code from C:
my $y = 3;
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-A [1]>
#
#####
skip_tests( 1 ) unless
ok( $x + $y, # actual results
5, # expected results
"",
"");
# ok: 2
###
# xy feature
# Under development, i.e todo
ok( $y-$x, # actual results
1, # expected results
"",
"");
# ok: 3
ok( $x+4, # actual results
7, # expected results
"",
"Test that fails");
# ok: 4
skip( 1, # condition to skip test
$x*$y*2, # actual results
6, # expected results
"",
"");
# ok: 5
###
# zyw feature
# Under development, i.e todo
ok( $x*$y*2, # actual results
6, # expected results
"",
"");
# ok: 6
ok( $x, # actual results
$x, # expected results
"",
"verify only");
# ok: 7
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-B [2]>
#
#####
skip_tests( 1 ) unless
ok( $x + $y, # actual results
6, # expected results
"",
"");
# ok: 8
ok( $x + $y + $x, # actual results
9, # expected results
"",
"");
# ok: 9
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-B [3]>
#
#####
ok( $x + $y + $x + $y, # actual results
10, # expected results
"",
"");
# ok: 10
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-B [3]>
#
#####
skip( 1, # condition to skip test
$x + $y + $x + $y + $x, # actual results
10, # expected results
"",
"");
# ok: 11
# Perl code from C:
#########
# For "TEST" 1.24 or greater that have separate std err output,
# redirect the TESTERR to STDOUT
#
tech_config( 'Test.TESTERR', \*STDOUT );
# Perl code from QC:
my $expected1 = 'hello world';
ok( 'hello world', # actual results
$expected1, # expected results
"",
"Quiet Code");
# ok: 12
# Perl code from C:
my $x = 2;
# Perl code from C:
my $y = 3;
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-A [1]>
#
#####
skip_tests( 1 ) unless
ok( $x + $y, # actual results
5, # expected results
"",
"Pass test");
# ok: 13
###
# xy feature
# Under development, i.e todo
ok( $y-$x, # actual results
1, # expected results
"",
"Todo test that passes");
# ok: 14
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-A [2]>
# L<Test::STDmaker::tg1/capability-B [1]>
#
#####
ok( $x+4, # actual results
7, # expected results
"",
"Test that fails");
# ok: 15
skip( 1, # condition to skip test
$x*$y*2, # actual results
6, # expected results
"",
"Skipped tests");
# ok: 16
###
# zyw feature
# Under development, i.e todo
ok( $x*$y*2, # actual results
6, # expected results
"",
"Todo Test that Fails");
# ok: 17
ok( $x, # actual results
$x, # expected results
"",
"verify only");
# ok: 18
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-B [2]>
#
#####
skip_tests( 1 ) unless
ok( $x + $y, # actual results
6, # expected results
"",
"Failed test that skips the rest");
# ok: 19
ok( $x + $y + $x, # actual results
9, # expected results
"",
"A test to skip");
# ok: 20
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-B [3]>
#
#####
ok( $x + $y + $x + $y, # actual results
10, # expected results
"",
"A not skip to skip");
# ok: 21
####
# verifies requirement(s):
# L<Test::STDmaker::tg1/capability-B [3]>
#
#####
skip( 1, # condition to skip test
$x + $y + $x + $y + $x, # actual results
10, # expected results
"",
"A skip to skip");
# ok: 22
finish();
__END__
=head1 NAME
tgA1.t - test script for Test::STDmaker::tg1
=head1 SYNOPSIS
tgA1.t -log=I<string>
=head1 OPTIONS
All options may be abbreviated with enough leading characters
to distinguish it from the other options.
=over 4
=item C<-log>
tgA1.t uses this option to redirect the test results
from the standard output to a log file.
=back
=head1 COPYRIGHT
This STD is public domain.
=cut
## end of test script file ##
~~~~~~~
tgA1.d
#!perl
#
#
use 5.001;
use strict;
use warnings;
use warnings::register;
use vars qw($VERSION $DATE);
$VERSION = '0.01'; # automatically generated file
$DATE = '2004/05/23';
##### Demonstration Script ####
#
# Name: tgA1.d
#
# UUT: Test::STDmaker::tg1
#
# The module Test::STDmaker generated this demo script from the contents of
#
# t::Test::STDmaker::tgA1
#
# Don't edit this test script file, edit instead
#
# t::Test::STDmaker::tgA1
#
# ANY CHANGES MADE HERE TO THIS SCRIPT FILE WILL BE LOST
#
# the next time Test::STDmaker generates this script file.
#
#
######
#
# The working directory is the directory of the generated file
#
use vars qw($__restore_dir__ @__restore_inc__ );
BEGIN {
use Cwd;
use File::Spec;
use FindBin;
########
# The working directory for this script file is the directory where
# the test script resides. Thus, any relative files written or read
# by this test script are located relative to this test script.
#
use vars qw( $__restore_dir__ );
$__restore_dir__ = cwd();
my ($vol, $dirs) = File::Spec->splitpath($FindBin::Bin,'nofile');
chdir $vol if $vol;
chdir $dirs if $dirs;
#######
# Pick up any testing program modules off this test script.
#
# When testing on a target site before installation, place any test
# program modules that should not be installed in the same directory
# as this test script. Likewise, when testing on a host with a @INC
# restricted to just raw Perl distribution, place any test program
# modules in the same directory as this test script.
#
use lib $FindBin::Bin;
########
# Using Test::Tech, a very light layer over the module "Test" to
# conduct the tests. The big feature of the "Test::Tech: module
# is that it takes expected and actual references and stringify
# them by using "Data::Secs2"; before passing them to the "&Test::ok"
# Thus, almost any time of Perl data structures may be
# compared by passing a reference to them to Test::Tech::ok
#
# Create the test plan by supplying the number of tests
# and the todo tests
#
require Test::Tech;
Test::Tech->import( qw(demo finish is_skip ok ok_sub plan skip
skip_sub skip_tests tech_config) );
}
END {
#########
# Restore working directory and @INC back to when enter script
#
@INC = @lib::ORIG_INC;
chdir $__restore_dir__;
}
print << 'MSG';
~~~~~~ Demonstration overview ~~~~~
The results from executing the Perl Code
follow on the next lines as comments. For example,
2 + 2
# 4
~~~~~~ The demonstration follows ~~~~~
MSG
my $expected1 = 'hello world'; # execution
print << "EOF";
##################
# Quiet Code
#
EOF
demo( "\'hello\ world\'", # typed in command
'hello world'); # execution
demo( "my\ \$x\ \=\ 2"); # typed in command
my $x = 2; # execution
demo( "my\ \$y\ \=\ 3"); # typed in command
my $y = 3; # execution
demo( "\$x\ \+\ \$y", # typed in command
$x + $y); # execution
demo( "\$y\-\$x", # typed in command
$y-$x); # execution
print << "EOF";
##################
# Test that fails
#
EOF
demo( "\$x\+4", # typed in command
$x+4); # execution
demo( "\$x\*\$y\*2", # typed in command
$x*$y*2 # execution
) unless 1; # condition for execution
demo( "\$x\*\$y\*2", # typed in command
$x*$y*2 # execution
) unless 0; # condition for execution
demo( "\$x", # typed in command
$x); # execution
print << "EOF";
##################
# verify only
#
EOF
demo( "\$x\ \+\ \$y", # typed in command
$x + $y); # execution
demo( "\$x\ \+\ \$y\ \+\ \$x", # typed in command
$x + $y + $x); # execution
demo( "\$x\ \+\ \$y\ \+\ \$x\ \+\ \$y", # typed in command
$x + $y + $x + $y # execution
) unless 0; # condition for execution
demo( "\$x\ \+\ \$y\ \+\ \$x\ \+\ \$y\ \+\ \$x", # typed in command
$x + $y + $x + $y + $x # execution
) unless 1; # condition for execution
demo( "\ \ \ \ \#\#\#\#\#\#\#\#\#\
\ \ \ \ \#\ For\ \"TEST\"\ 1\.24\ or\ greater\ that\ have\ separate\ std\ err\
output\,\
\ \ \ \ \#\ redirect\ the\ TESTERR\ to\ STDOUT\
\ \ \ \ \#\
\ \ \ \ tech_config\(\ \'Test\.TESTERR\'\,\ \\\*STDOUT\ \)\;"); # typed in command
#########
# For "TEST" 1.24 or greater that have separate std err output,
# redirect the TESTERR to STDOUT
#
tech_config( 'Test.TESTERR', \*STDOUT ); # execution
my $expected1 = 'hello world'; # execution
print << "EOF";
##################
# Quiet Code
#
EOF
demo( "\'hello\ world\'", # typed in command
'hello world'); # execution
print << "EOF";
##################
# Pass test
#
EOF
demo( "my\ \$x\ \=\ 2"); # typed in command
my $x = 2; # execution
demo( "my\ \$y\ \=\ 3"); # typed in command
my $y = 3; # execution
demo( "\$x\ \+\ \$y", # typed in command
$x + $y); # execution
print << "EOF";
##################
# Todo test that passes
#
EOF
demo( "\$y\-\$x", # typed in command
$y-$x); # execution
print << "EOF";
##################
# Test that fails
#
EOF
demo( "\$x\+4", # typed in command
$x+4); # execution
print << "EOF";
##################
# Skipped tests
#
EOF
demo( "\$x\*\$y\*2", # typed in command
$x*$y*2 # execution
) unless 1; # condition for execution
print << "EOF";
##################
# Todo Test that Fails
#
EOF
demo( "\$x\*\$y\*2", # typed in command
$x*$y*2 # execution
) unless 0; # condition for execution
print << "EOF";
##################
# demo only
#
EOF
demo( "\$x", # typed in command
$x); # execution
print << "EOF";
##################
# verify only
#
EOF
print << "EOF";
##################
# Failed test that skips the rest
#
EOF
demo( "\$x\ \+\ \$y", # typed in command
$x + $y); # execution
print << "EOF";
##################
# A test to skip
#
EOF
demo( "\$x\ \+\ \$y\ \+\ \$x", # typed in command
$x + $y + $x); # execution
print << "EOF";
##################
# A not skip to skip
#
EOF
demo( "\$x\ \+\ \$y\ \+\ \$x\ \+\ \$y", # typed in command
$x + $y + $x + $y # execution
) unless 0; # condition for execution
print << "EOF";
##################
# A skip to skip
#
EOF
demo( "\$x\ \+\ \$y\ \+\ \$x\ \+\ \$y\ \+\ \$x", # typed in command
$x + $y + $x + $y + $x # execution
) unless 1; # condition for execution
=head1 NAME
tgA1.d - demostration script for Test::STDmaker::tg1
=head1 SYNOPSIS
tgA1.d
=head1 OPTIONS
None.
=head1 COPYRIGHT
This STD is public domain.
## end of test script file ##
=cut
"my" variable $expected1 masks earlier declaration in same scope at tgA1.d line 203.
"my" variable $x masks earlier declaration in same scope at tgA1.d line 228.
"my" variable $y masks earlier declaration in same scope at tgA1.d line 233.
"my" variable $expected1 masks earlier declaration in same scope at tgA1.t line 240.
"my" variable $x masks earlier declaration in same scope at tgA1.t line 252.
"my" variable $y masks earlier declaration in same scope at tgA1.t line 257.
# Test 4 got: '6' (tgA1.t at line 147)
# Expected: '7'
# Test 6 got: '12' (tgA1.t at line 165 *TODO*)
# Expected: '6'
# Test 8 got: '5' (tgA1.t at line 186)
# Expected: '6'
Test output counter mismatch [test 45]
Test output counter mismatch [test 46]
Test output counter mismatch [test 47]
Test output counter mismatch [test 48]
Test output counter mismatch [test 49]
Test output counter mismatch [test 50]
Test output counter mismatch [test 51]
Test output counter mismatch [test 52]
Test output counter mismatch [test 53]
Test output counter mismatch [test 54]
Test output counter mismatch [test 55]
Test output counter mismatch [test 56]
Test output counter mismatch [test 57]
Test output counter mismatch [test 58]
Test output counter mismatch [test 59]
Test output counter mismatch [test 60]
Test output counter mismatch [test 61]
Test output counter mismatch [test 62]
Test output counter mismatch [test 63]
Test output counter mismatch [test 64]
Test output counter mismatch [test 65]
Test output counter mismatch [test 66]
Test output counter mismatch [test 67]
Test output counter mismatch [test 68]
Test output counter mismatch [test 69]
Test output counter mismatch [test 70]
Test output counter mismatch [test 71]
Test output counter mismatch [test 72]
Test output counter mismatch [test 73]
Test output counter mismatch [test 74]
Test output counter mismatch [test 75]
Test output counter mismatch [test 76]
Test output counter mismatch [test 77]
Test output counter mismatch [test 78]
"my" variable $expected1 masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.d line 203.
"my" variable $x masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.d line 228.
"my" variable $y masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.d line 233.
######
ok: 13
~~~~~~~
tgA1.pm
#!perl
#
# The copyright notice and plain old documentation (POD)
# are at the end of this file.
#
package t::Test::STDmaker::tgA1;
use strict;
use warnings;
use warnings::register;
use vars qw($VERSION $DATE $FILE );
$VERSION = '0.07';
$DATE = '2004/05/22';
$FILE = __FILE__;
__DATA__
Name: t::Test::STDmaker::tgA1^
File_Spec: Unix^
UUT: Test::STDmaker::tg1^
Revision: -^
Version: 0.01^
End_User: General Public^
Author: http://www.SoftwareDiamonds.com [EMAIL PROTECTED]
STD2167_Template: ^
Detail_Template: ^
Classification: None^
Demo: tgA1.d^
Verify: tgA1.t^
T: 0^
C:
#########
# For "TEST" 1.24 or greater that have separate std err output,
# redirect the TESTERR to STDOUT
#
tech_config( 'Test.TESTERR', \*STDOUT );
^
QC: my $expected1 = 'hello world'; ^
N: Quiet Code^
A: 'hello world'^
E: $expected1^
N: Pass test^
R: L<Test::STDmaker::tg1/capability-A [1]>^
C: my $x = 2^
C: my $y = 3^
A: $x + $y^
SE: 5^
N: Todo test that passes^
U: xy feature^
A: $y-$x^
E: 1^
R:
L<Test::STDmaker::tg1/capability-A [2]>
L<Test::STDmaker::tg1/capability-B [1]>
^
N: Test that fails^
A: $x+4^
E: 7^
N: Skipped tests^
S: 1^
A: $x*$y*2^
E: 6^
N: Todo Test that Fails^
U: zyw feature^
S: 0^
A: $x*$y*2^
E: 6^
N: demo only^
DO: ^
A: $x^
E: $y^
N: verify only^
VO: ^
A: $x^
E: $x^
N: Failed test that skips the rest^
R: L<Test::STDmaker::tg1/capability-B [2]>^
A: $x + $y^
SE: 6^
N: A test to skip^
A: $x + $y + $x^
E: 9^
N: A not skip to skip^
S: 0^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y^
E: 10^
N: A skip to skip^
S: 1^
R: L<Test::STDmaker::tg1/capability-B [3]>^
A: $x + $y + $x + $y + $x^
E: 10^
See_Also: L<Test::STDmaker::tg1> ^
Copyright: This STD is public domain.^
HTML: ^
~-~
~~~~~~~
tgA1.d
#!perl
#
#
use 5.001;
use strict;
use warnings;
use warnings::register;
use vars qw($VERSION $DATE);
$VERSION = '0.01'; # automatically generated file
$DATE = '2004/05/23';
##### Demonstration Script ####
#
# Name: tgA1.d
#
# UUT: Test::STDmaker::tg1
#
# The module Test::STDmaker generated this demo script from the contents of
#
# t::Test::STDmaker::tgA1
#
# Don't edit this test script file, edit instead
#
# t::Test::STDmaker::tgA1
#
# ANY CHANGES MADE HERE TO THIS SCRIPT FILE WILL BE LOST
#
# the next time Test::STDmaker generates this script file.
#
#
######
#
# The working directory is the directory of the generated file
#
use vars qw($__restore_dir__ @__restore_inc__ );
BEGIN {
use Cwd;
use File::Spec;
use FindBin;
########
# The working directory for this script file is the directory where
# the test script resides. Thus, any relative files written or read
# by this test script are located relative to this test script.
#
use vars qw( $__restore_dir__ );
$__restore_dir__ = cwd();
my ($vol, $dirs) = File::Spec->splitpath($FindBin::Bin,'nofile');
chdir $vol if $vol;
chdir $dirs if $dirs;
#######
# Pick up any testing program modules off this test script.
#
# When testing on a target site before installation, place any test
# program modules that should not be installed in the same directory
# as this test script. Likewise, when testing on a host with a @INC
# restricted to just raw Perl distribution, place any test program
# modules in the same directory as this test script.
#
use lib $FindBin::Bin;
########
# Using Test::Tech, a very light layer over the module "Test" to
# conduct the tests. The big feature of the "Test::Tech: module
# is that it takes expected and actual references and stringify
# them by using "Data::Secs2"; before passing them to the "&Test::ok"
# Thus, almost any time of Perl data structures may be
# compared by passing a reference to them to Test::Tech::ok
#
# Create the test plan by supplying the number of tests
# and the todo tests
#
require Test::Tech;
Test::Tech->import( qw(demo finish is_skip ok ok_sub plan skip
skip_sub skip_tests tech_config) );
}
END {
#########
# Restore working directory and @INC back to when enter script
#
@INC = @lib::ORIG_INC;
chdir $__restore_dir__;
}
print << 'MSG';
~~~~~~ Demonstration overview ~~~~~
The results from executing the Perl Code
follow on the next lines as comments. For example,
2 + 2
# 4
~~~~~~ The demonstration follows ~~~~~
MSG
my $expected1 = 'hello world'; # execution
print << "EOF";
##################
# Quiet Code
#
EOF
demo( "\'hello\ world\'", # typed in command
'hello world'); # execution
demo( "my\ \$x\ \=\ 2"); # typed in command
my $x = 2; # execution
demo( "my\ \$y\ \=\ 3"); # typed in command
my $y = 3; # execution
demo( "\$x\ \+\ \$y", # typed in command
$x + $y); # execution
demo( "\$y\-\$x", # typed in command
$y-$x); # execution
print << "EOF";
##################
# Test that fails
#
EOF
demo( "\$x\+4", # typed in command
$x+4); # execution
demo( "\$x\*\$y\*2", # typed in command
$x*$y*2 # execution
) unless 1; # condition for execution
demo( "\$x\*\$y\*2", # typed in command
$x*$y*2 # execution
) unless 0; # condition for execution
demo( "\$x", # typed in command
$x); # execution
print << "EOF";
##################
# verify only
#
EOF
demo( "\$x\ \+\ \$y", # typed in command
$x + $y); # execution
demo( "\$x\ \+\ \$y\ \+\ \$x", # typed in command
$x + $y + $x); # execution
demo( "\$x\ \+\ \$y\ \+\ \$x\ \+\ \$y", # typed in command
$x + $y + $x + $y # execution
) unless 0; # condition for execution
demo( "\$x\ \+\ \$y\ \+\ \$x\ \+\ \$y\ \+\ \$x", # typed in command
$x + $y + $x + $y + $x # execution
) unless 1; # condition for execution
demo( "\ \ \ \ \#\#\#\#\#\#\#\#\#\
\ \ \ \ \#\ For\ \"TEST\"\ 1\.24\ or\ greater\ that\ have\ separate\ std\ err\
output\,\
\ \ \ \ \#\ redirect\ the\ TESTERR\ to\ STDOUT\
\ \ \ \ \#\
\ \ \ \ tech_config\(\ \'Test\.TESTERR\'\,\ \\\*STDOUT\ \)\;"); # typed in command
#########
# For "TEST" 1.24 or greater that have separate std err output,
# redirect the TESTERR to STDOUT
#
tech_config( 'Test.TESTERR', \*STDOUT ); # execution
my $expected1 = 'hello world'; # execution
print << "EOF";
##################
# Quiet Code
#
EOF
demo( "\'hello\ world\'", # typed in command
'hello world'); # execution
print << "EOF";
##################
# Pass test
#
EOF
demo( "my\ \$x\ \=\ 2"); # typed in command
my $x = 2; # execution
demo( "my\ \$y\ \=\ 3"); # typed in command
my $y = 3; # execution
demo( "\$x\ \+\ \$y", # typed in command
$x + $y); # execution
print << "EOF";
##################
# Todo test that passes
#
EOF
demo( "\$y\-\$x", # typed in command
$y-$x); # execution
print << "EOF";
##################
# Test that fails
#
EOF
demo( "\$x\+4", # typed in command
$x+4); # execution
print << "EOF";
##################
# Skipped tests
#
EOF
demo( "\$x\*\$y\*2", # typed in command
$x*$y*2 # execution
) unless 1; # condition for execution
print << "EOF";
##################
# Todo Test that Fails
#
EOF
demo( "\$x\*\$y\*2", # typed in command
$x*$y*2 # execution
) unless 0; # condition for execution
print << "EOF";
##################
# demo only
#
EOF
demo( "\$x", # typed in command
$x); # execution
print << "EOF";
##################
# verify only
#
EOF
print << "EOF";
##################
# Failed test that skips the rest
#
EOF
demo( "\$x\ \+\ \$y", # typed in command
$x + $y); # execution
print << "EOF";
##################
# A test to skip
#
EOF
demo( "\$x\ \+\ \$y\ \+\ \$x", # typed in command
$x + $y + $x); # execution
print << "EOF";
##################
# A not skip to skip
#
EOF
demo( "\$x\ \+\ \$y\ \+\ \$x\ \+\ \$y", # typed in command
$x + $y + $x + $y # execution
) unless 0; # condition for execution
print << "EOF";
##################
# A skip to skip
#
EOF
demo( "\$x\ \+\ \$y\ \+\ \$x\ \+\ \$y\ \+\ \$x", # typed in command
$x + $y + $x + $y + $x # execution
) unless 1; # condition for execution
=head1 NAME
tgA1.d - demostration script for Test::STDmaker::tg1
=head1 SYNOPSIS
tgA1.d
=head1 OPTIONS
None.
=head1 COPYRIGHT
This STD is public domain.
## end of test script file ##
=cut
Test output counter mismatch [test 79]
Test output counter mismatch [test 80]
"my" variable $expected1 masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t line 240.
"my" variable $x masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t line 252.
"my" variable $y masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t line 257.
# Test 4 got: '6'
(/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t at line
147)
# Expected: '7'
# Test 6 got: '12'
(/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t at line
165 *TODO*)
# Expected: '6'
# Test 8 got: '5'
(/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t at line
186)
# Expected: '6'
Test output counter mismatch [test 81]
Test output counter mismatch [test 82]
Test output counter mismatch [test 83]
Test output counter mismatch [test 84]
Test output counter mismatch [test 85]
Test output counter mismatch [test 86]
Test output counter mismatch [test 87]
Test output counter mismatch [test 88]
Test output counter mismatch [test 89]
Test output counter mismatch [test 90]
Test output counter mismatch [test 91]
Test output counter mismatch [test 92]
Test output counter mismatch [test 93]
Test output counter mismatch [test 94]
Test output counter mismatch [test 95]
Test output counter mismatch [test 96]
Test output counter mismatch [test 97]
Test output counter mismatch [test 98]
Test output counter mismatch [test 99]
Test output counter mismatch [test 100]
Test output counter mismatch [test 101]
Test output counter mismatch [test 102]
Test output counter mismatch [test 103]
Test output counter mismatch [test 104]
Test output counter mismatch [test 105]
Test output counter mismatch [test 106]
Test output counter mismatch [test 107]
Test output counter mismatch [test 108]
Test output counter mismatch [test 109]
Test output counter mismatch [test 110]
Test output counter mismatch [test 111]
Test output counter mismatch [test 112]
Test output counter mismatch [test 113]
Test output counter mismatch [test 114]
Test output counter mismatch [test 115]
"my" variable $expected1 masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t line 240.
"my" variable $x masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t line 252.
"my" variable $y masks earlier declaration in same scope at
/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t line 257.
# Test 4 got: '6'
(/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t at line
147)
# Expected: '7'
# Test 6 got: '12'
(/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t at line
165 *TODO*)
# Expected: '6'
# Test 8 got: '5'
(/home/alian/.cpanplus/5.8.4/build/Test-STDmaker-0.19/t/Test/STDmaker/tgA1.t at line
186)
# Expected: '6'
Test output counter mismatch [test 116]
Test output counter mismatch [test 117]
Test output counter mismatch [test 118]
Test output counter mismatch [test 119]
Test output counter mismatch [test 120]
Test output counter mismatch [test 121]
Test output counter mismatch [test 122]
Test output counter mismatch [test 123]
Test output counter mismatch [test 124]
FAILED tests 4, 6, 8, 20, 22-43
Failed 26/21 tests, -23.81% okay (less 38 skipped tests: -43 okay, -204.76%)
Failed 1/1 test scripts, 0.00% okay. -85/21 subtests failed, 504.76% okay.
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/Test/STDmaker/STDmaker.t 21 26 123.81% 4 6 8 20 22-43
38 subtests skipped.
make: *** [test_dynamic] Error 29
Additional comments:
--
Summary of my perl5 (revision 5 version 8 subversion 4) configuration:
Platform:
osname=linux, osvers=2.4.19-4a, archname=ppc-linux
uname='linux triton.alianet 2.4.19-4a #1 wed jun 5 01:34:59 edt 2002 ppc unknown '
config_args='-des -Dprefix=/usr/local/perl-5.8.4/'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
optimize='-O1',
cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/include/gdbm'
ccversion='', gccversion='2.95.4 20010319 (prerelease/franzo/20011204)',
gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lndbm -lgdbm -ldl -lm -lcrypt -lutil -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
libc=/lib/libc-2.2.5.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.2.5'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
