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. -- Dear Kent Cowgill, This is a computer-generated test report for Test-StubGenerator-0.9.0, created automatically by CPAN::Reporter, version 0.46, and sent to the CPAN Testers mailing list. If you have received this email directly, it is because the person testing your distribution chose to send a copy to your CPAN email address; there may be a delay before the official report is received and processed by CPAN Testers. Thank you for uploading your work to CPAN. However, it appears that there were some problems testing your distribution. Sections of this report: * Tester comments * Prerequisites * Environment and other context * Test output ------------------------------ TESTER COMMENTS ------------------------------ Additional comments from tester: [none provided] ------------------------------ PREREQUISITES ------------------------------ Prerequisite modules loaded: requires: Module Need Have ---------- ----- -------- Perl::Tidy 0 20070801 PPI 1.118 1.118 Test::More 0 0.67 ------------------------------ ENVIRONMENT AND OTHER CONTEXT ------------------------------ Environment variables: LANG = en_GB LANGUAGE = en_GB:en_US:en_GB:en PATH = /usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games PERL5LIB = PERL5_CPANPLUS_IS_RUNNING = 1 PERL5_CPAN_IS_RUNNING = 1 SHELL = /bin/bash TERM = screen Perl special variables (and OS-specific diagnostics, for MSWin32): Perl: $^X = /home/david/cpantesting/perl-5.6.2/bin/perl UID: $< = 1000 EUID: $> = 1000 GID: $( = 1000 46 44 29 25 24 20 1000 EGID: $) = 1000 46 44 29 25 24 20 1000 Perl module toolchain versions installed: Module Have ------------------- ------- CPAN 1.9102 Cwd 2.04 ExtUtils::CBuilder n/a ExtUtils::Command 1.09_01 ExtUtils::Install 1.41 ExtUtils::MakeMaker 6.31 ExtUtils::Manifest 1.48 ExtUtils::ParseXS n/a File::Spec 0.86 Module::Build 0.2808 Module::Signature n/a Test::Harness 2.64 Test::More 0.67 version 0.7203 ------------------------------ TEST OUTPUT ------------------------------ Output from '/usr/bin/make test': PERL_DL_NONLAZY=1 /home/david/cpantesting/perl-5.6.2/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/00-load................# Testing Test::StubGenerator 0.9.0, Perl 5.006002, /home/david/cpantesting/perl-5.6.2/bin/perl ok t/autogen................ # Failed test 'can eat own dogfood 2' # at t/autogen.t line 29. # got: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # use lib '..'; # # BEGIN { use_ok('Test::StubGenerator'); } # # ok( # my $obj = Test::StubGenerator->new(), # 'can create object Test::StubGenerator' # ); # isa_ok( $obj, 'Test::StubGenerator', 'object $obj' ); # can_ok( # $obj, '_assemble_tests', # '_find', '_find_package', # '_find_subs', '_generate_preamble', # '_get_variables', '_handle_output', # '_process_sub', '_test_file_header', # '_write_file', 'gen_testfile' # ); # # # Create some variables with which to test the Test::StubGenerator objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my $test_file = ''; # my $sub = ''; # my $statement = ''; # my $vars_ref = ''; # my $package = ''; # my $sub_ref = ''; # my $item_type = ''; # my $declarations = ''; # my $tests = ''; # # # And now to test the methods/subroutines. # ok( $obj->_test_file_header(), # 'can call $obj->_test_file_header() without params' ); # # ok( $obj->_handle_output($test_file), 'can call $obj->_handle_output()' ); # ok( $obj->_handle_output(), 'can call $obj->_handle_output() without params' ); # # ok( $obj->_process_sub($sub), 'can call $obj->_process_sub()' ); # ok( $obj->_process_sub(), 'can call $obj->_process_sub() without params' ); # # ok( $obj->_find_package(), 'can call $obj->_find_package() without params' ); # # ok( $obj->_get_variables( $statement, $vars_ref ), # 'can call $obj->_get_variables()' ); # ok( $obj->_get_variables(), 'can call $obj->_get_variables() without params' ); # # ok( $obj->_generate_preamble($package), 'can call $obj->_generate_preamble()' ); # ok( $obj->_generate_preamble(), # 'can call $obj->_generate_preamble() without params' ); # # ok( $obj->_find_subs(), 'can call $obj->_find_subs() without params' ); # # ok( $obj->_write_file($test_file), 'can call $obj->_write_file()' ); # ok( $obj->_write_file(), 'can call $obj->_write_file() without params' ); # # ok( $obj->_find( $sub_ref, $item_type ), 'can call $obj->_find()' ); # ok( $obj->_find(), 'can call $obj->_find() without params' ); # # ok( $obj->gen_testfile(), 'can call $obj->gen_testfile() without params' ); # # ok( $obj->_assemble_tests( $package, $declarations, $tests ), # 'can call $obj->_assemble_tests()' ); # ok( $obj->_assemble_tests(), # 'can call $obj->_assemble_tests() without params' ); # ' # expected: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # use lib '..'; # # BEGIN { use_ok('Test::StubGenerator'); } # # ok( my $obj = Test::StubGenerator->new(), # 'can create object Test::StubGenerator' ); # isa_ok( $obj, 'Test::StubGenerator', 'object $obj' ); # can_ok( $obj, '_assemble_tests', # '_find', '_find_package', # '_find_subs', '_generate_preamble', # '_get_variables', '_handle_output', # '_process_sub', '_test_file_header', # '_write_file', 'gen_testfile' ); # # # Create some variables with which to test the Test::StubGenerator objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my $test_file = ''; # my $package = ''; # my $sub = ''; # my $sub_ref = ''; # my $item_type = ''; # my $declarations = ''; # my $tests = ''; # my $statement = ''; # my $vars_ref = ''; # # # And now to test the methods/subroutines. # ok( $obj->_handle_output($test_file), 'can call $obj->_handle_output()' ); # ok( $obj->_handle_output(), # 'can call $obj->_handle_output() without params' ); # # ok( $obj->_generate_preamble($package), # 'can call $obj->_generate_preamble()' ); # ok( $obj->_generate_preamble(), # 'can call $obj->_generate_preamble() without params' ); # # ok( $obj->_find_package(), 'can call $obj->_find_package() without params' ); # # ok( $obj->_process_sub($sub), 'can call $obj->_process_sub()' ); # ok( $obj->_process_sub(), 'can call $obj->_process_sub() without params' ); # # ok( $obj->_find( $sub_ref, $item_type ), 'can call $obj->_find()' ); # ok( $obj->_find(), 'can call $obj->_find() without params' ); # # ok( $obj->_assemble_tests( $package, $declarations, $tests ), # 'can call $obj->_assemble_tests()' ); # ok( $obj->_assemble_tests(), # 'can call $obj->_assemble_tests() without params' ); # # ok( $obj->_get_variables( $statement, $vars_ref ), # 'can call $obj->_get_variables()' ); # ok( $obj->_get_variables(), # 'can call $obj->_get_variables() without params' ); # # ok( $obj->_find_subs(), 'can call $obj->_find_subs() without params' ); # # ok( $obj->gen_testfile(), 'can call $obj->gen_testfile() without params' ); # # ok( $obj->_test_file_header(), # 'can call $obj->_test_file_header() without params' ); # # ok( $obj->_write_file($test_file), 'can call $obj->_write_file()' ); # ok( $obj->_write_file(), 'can call $obj->_write_file() without params' ); # ' # Looks like you failed 1 test of 10. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 6 Failed 1/10 tests, 90.00% okay t/boilerplate............skipped all skipped: Author test. Set $ENV{ TEST_AUTHOR } to enable this test. t/manifest...............skipped all skipped: Author test. Set $ENV{ TEST_AUTHOR } to enable this test. t/perl-critic............skipped all skipped: Author test. Set $ENV{ TEST_AUTHOR } to enable this test. t/pod-coverage...........ok t/pod....................skipped all skipped: Author test. Set $ENV{ TEST_AUTHOR } to enable this test. t/stub_instance.......... # Failed test 'got back what we were expecting' # at t/stub_instance.t line 21. # got: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok('Instance'); } # # ok( my $obj = Instance->instance(), 'can create object Instance' ); # isa_ok( $obj, 'Instance', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_name', 'set_names' ); # # # Create some variables with which to test the Instance objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->set_name(), 'can call $obj->set_name() without params' ); # # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # # ok( $obj->set_names(@names), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # ' # expected: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok('Instance'); } # # ok( my $obj = Instance->instance(), 'can create object Instance' ); # isa_ok( $obj, 'Instance', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_name', 'set_names' ); # # # Create some variables with which to test the Instance objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->set_names(@names), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # # ok( $obj->set_name(), 'can call $obj->set_name() without params' ); # # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # ' # Looks like you failed 1 test of 4. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 4 Failed 1/4 tests, 75.00% okay t/stub_invalidvar........ok t/stub_modoutdir......... # Failed test 'got back what we were expecting' # at t/stub_modoutdir.t line 26. # got: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok('MyObj'); } # # ok( my $obj = MyObj->new(), 'can create object MyObj' ); # isa_ok( $obj, 'MyObj', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_names' ); # # # Create some variables with which to test the MyObj objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # # ok( $obj->set_names(@names), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # ' # expected: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok('MyObj'); } # # ok( my $obj = MyObj->new(), 'can create object MyObj' ); # isa_ok( $obj, 'MyObj', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_names' ); # # # Create some variables with which to test the MyObj objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->set_names(@names), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # ' # Looks like you failed 1 test of 4. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 4 Failed 1/4 tests, 75.00% okay t/stub_modoutfile........ # Failed test 'got back what we were expecting' # at t/stub_modoutfile.t line 29. # got: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok('MyObj'); } # # ok( my $obj = MyObj->new(), 'can create object MyObj' ); # isa_ok( $obj, 'MyObj', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_names' ); # # # Create some variables with which to test the MyObj objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # # ok( $obj->set_names(@names), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # ' # expected: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok('MyObj'); } # # ok( my $obj = MyObj->new(), 'can create object MyObj' ); # isa_ok( $obj, 'MyObj', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_names' ); # # # Create some variables with which to test the MyObj objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->set_names(@names), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # ' # Looks like you failed 1 test of 4. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 4 Failed 1/4 tests, 75.00% okay t/stub_module............ # Failed test 'got back what we were expecting' # at t/stub_module.t line 30. # got: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok('MyObj'); } # # ok( my $obj = MyObj->new(), 'can create object MyObj' ); # isa_ok( $obj, 'MyObj', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_names' ); # # # Create some variables with which to test the MyObj objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # # ok( $obj->set_names(@names), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # ' # expected: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok('MyObj'); } # # ok( my $obj = MyObj->new(), 'can create object MyObj' ); # isa_ok( $obj, 'MyObj', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_names' ); # # # Create some variables with which to test the MyObj objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->set_names(@names), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # ' # Looks like you failed 1 test of 9. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 9 Failed 1/9 tests, 88.89% okay t/stub_nopermissions.....ok t/stub_nosub.............Can't locate Test/Warn.pm in @INC (@INC contains: /home/david/_/_/perl-5.6.2/.cpan/build/Test-StubGenerator-0.9.0-TabtOW/blib/lib /home/david/_/_/perl-5.6.2/.cpan/build/Test-StubGenerator-0.9.0-TabtOW/blib/arch /home/david/cpantesting/perl-5.6.2/lib/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl . /home/david/cpantesting/perl-5.6.2/lib/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl .) at t/stub_nosub.t line 7. BEGIN failed--compilation aborted at t/stub_nosub.t line 7. dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 1-3 Failed 3/3 tests, 0.00% okay t/stub_notadirectory.....ok t/stub_notidymod......... # Failed test 'got back what we were expecting' # at t/stub_notidymod.t line 22. # got: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok( 'MyObj' ); } # # ok( my $obj = MyObj->new(), 'can create object MyObj' ); # isa_ok( $obj, 'MyObj', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_names' ); # # # Create some variables with which to test the MyObj objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # # ok( $obj->set_names( @names ), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # # # ' # expected: '#!/usr/bin/perl # # use strict; # use warnings; # # use Test::More qw/no_plan/; # # BEGIN { use_ok( 'MyObj' ); } # # ok( my $obj = MyObj->new(), 'can create object MyObj' ); # isa_ok( $obj, 'MyObj', 'object $obj' ); # can_ok( $obj, 'get_name', 'set_names' ); # # # Create some variables with which to test the MyObj objects' methods # # Note: give these some reasonable values. Then try unreasonable values :) # my @names = ( '', ); # # # And now to test the methods/subroutines. # ok( $obj->set_names( @names ), 'can call $obj->set_names()' ); # ok( $obj->set_names(), 'can call $obj->set_names() without params' ); # # ok( $obj->get_name(), 'can call $obj->get_name() without params' ); # # # ' # Looks like you failed 1 test of 5. dubious Test returned status 1 (wstat 256, 0x100) DIED. FAILED test 5 Failed 1/5 tests, 80.00% okay t/stub_script............No packages found at t/stub_script.t line 16 ok t/stub_submodule.........ok t/stub_unwritablefile....ok t/stub_var...............Can't locate Test/Warn.pm in @INC (@INC contains: /home/david/_/_/perl-5.6.2/.cpan/build/Test-StubGenerator-0.9.0-TabtOW/blib/lib /home/david/_/_/perl-5.6.2/.cpan/build/Test-StubGenerator-0.9.0-TabtOW/blib/arch /home/david/cpantesting/perl-5.6.2/lib/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl . /home/david/cpantesting/perl-5.6.2/lib/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2/i686-linux /home/david/cpantesting/perl-5.6.2/lib/site_perl/5.6.2 /home/david/cpantesting/perl-5.6.2/lib/site_perl .) at t/stub_var.t line 7. BEGIN failed--compilation aborted at t/stub_var.t line 7. dubious Test returned status 2 (wstat 512, 0x200) DIED. FAILED tests 1-5 Failed 5/5 tests, 0.00% okay t/todo...................skipped all skipped: Author test. Set $ENV{ TEST_AUTHOR } to enable this test. t/unix-text..............skipped all skipped: Author test. Set $ENV{ TEST_AUTHOR } to enable this test. Failed Test Stat Wstat Total Fail List of Failed ------------------------------------------------------------------------------- t/autogen.t 1 256 10 1 6 t/stub_instance.t 1 256 4 1 4 t/stub_modoutdir.t 1 256 4 1 4 t/stub_modoutfile.t 1 256 4 1 4 t/stub_module.t 1 256 9 1 9 t/stub_nosub.t 2 512 3 6 1-3 t/stub_notidymod.t 1 256 5 1 5 t/stub_var.t 2 512 5 10 1-5 6 tests skipped. Failed 8/22 test scripts. 14/71 subtests failed. Files=22, Tests=71, 24 wallclock secs ( 4.67 cusr + 0.82 csys = 5.49 CPU) Failed 8/22 test programs. 14/71 subtests failed. make: *** [test_dynamic] Error 11 -- Summary of my perl5 (revision 5.0 version 6 subversion 2) configuration: Platform: osname=linux, osvers=2.4.27-3-686, archname=i686-linux uname='linux pigsty 2.4.27-3-686 #1 tue dec 5 21:03:54 utc 2006 i686 gnulinux ' config_args='-Dprefix=/home/david/cpantesting/perl-5.6.2 -de' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef Compiler: cc='cc', ccflags ='-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O3', cppflags='-fno-strict-aliasing' ccversion='', gccversion='3.3.5 (Debian 1:3.3.5-13)', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=4, usemymalloc=n, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldl -lm -lc -lcrypt -lutil perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil libc=/lib/libc-2.3.2.so, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
