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.1, created automatically by CPAN::Reporter, version 0.99_02, 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.64 ------------------------------ ENVIRONMENT AND OTHER CONTEXT ------------------------------ Environment variables: LANG = C PATH = /usr/lib/ccache:/home/sand/bin:/usr/local/bin:/usr/local/perl/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games:/usr/X11/bin:/sbin:/usr/sbin PERL5LIB = PERL5_CPANPLUS_IS_RUNNING = 1 PERL5_CPAN_IS_RUNNING = 1 PERL_MM_USE_DEFAULT = 1 SHELL = /bin/bash TERM = screen Perl special variables (and OS-specific diagnostics, for MSWin32): Perl: $^X = /usr/local/perl-5.6.2/bin/perl UID: $< = 1005 EUID: $> = 1005 GID: $( = 1005 1005 EGID: $) = 1005 1005 Perl module toolchain versions installed: Module Have ------------------- ------- CPAN 1.91_53 Cwd 3.25 ExtUtils::CBuilder 0.19 ExtUtils::Command 1.13 ExtUtils::Install 1.43 ExtUtils::MakeMaker 6.36 ExtUtils::Manifest 1.51 ExtUtils::ParseXS n/a File::Spec 3.25 Module::Build 0.2808 Module::Signature 0.55 Test::Harness 2.64 Test::More 0.64 YAML n/a YAML::Syck 0.85 version 0.7203 ------------------------------ TEST OUTPUT ------------------------------ Output from '/usr/bin/make test': PERL_DL_NONLAZY=1 /usr/local/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.1, Perl 5.006002, /usr/local/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.............ok 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...............No packages found at t/stub_var.t line 21 ok 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_notidymod.t 1 256 5 1 5 6 tests skipped. Failed 6/22 test scripts. 6/71 subtests failed. Files=22, Tests=71, 34 wallclock secs (15.34 cusr + 0.96 csys = 16.30 CPU) Failed 6/22 test programs. 6/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.6.16-2-k7, archname=i686-linux-64int uname='linux k75 2.6.16-2-k7 #2 mon may 22 23:23:54 utc 2006 i686 gnulinux ' config_args='-Dprefix=/usr/local/perl-5.6.2 -Dinstallusrbinperl=n -Uversiononly -Doptimize=-g -es -Duse64bitint -Dusedevel -des' 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=define use64bitall=undef uselongdouble=undef Compiler: cc='cc', ccflags ='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-g', cppflags='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include' ccversion='', gccversion='4.0.4 20060507 (prerelease) (Debian 4.0.3-3)', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long long', ivsize=8, 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 -ldb -ldl -lm -lc -lcrypt -lutil perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil libc=/lib/libc-2.3.6.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'
