PATH=/usr/bin:/bin Start 2012-03-02T16:26:50 ActivePerl-1400 CPAN-1.9402 Going to read '/home/fly1400/var/cpan/Metadata' Database was generated on Fri, 02 Mar 2012 23:13:54 GMT Running make for C/CH/CHROMATIC/Test-MockObject-1.20120301.tar.gz Checksum for /net/nas/data/cpan/authors/id/C/CH/CHROMATIC/Test-MockObject-1.20120301.tar.gz ok Test-MockObject-1.20120301/ Test-MockObject-1.20120301/META.yml Test-MockObject-1.20120301/lib/ Test-MockObject-1.20120301/lib/Test/ Test-MockObject-1.20120301/lib/Test/MockObject/ Test-MockObject-1.20120301/lib/Test/MockObject/Extends.pm Test-MockObject-1.20120301/lib/Test/MockObject.pm Test-MockObject-1.20120301/README Test-MockObject-1.20120301/t/ Test-MockObject-1.20120301/t/extends-bugs.t Test-MockObject-1.20120301/t/isa.t Test-MockObject-1.20120301/t/nodefaultwarnings.t Test-MockObject-1.20120301/t/debuggingwarningsextends.t Test-MockObject-1.20120301/t/ignore.t Test-MockObject-1.20120301/t/debugger.t Test-MockObject-1.20120301/t/bugs.t Test-MockObject-1.20120301/t/extends.t Test-MockObject-1.20120301/t/debuggingwarnings.t Test-MockObject-1.20120301/t/base.t Test-MockObject-1.20120301/Changes Test-MockObject-1.20120301/MANIFEST Test-MockObject-1.20120301/Makefile.PL Test-MockObject-1.20120301/dist.ini Test-MockObject-1.20120301/LICENSE CPAN.pm: Going to build C/CH/CHROMATIC/Test-MockObject-1.20120301.tar.gz >>> /home/fly1400/ap1400/bin/perl-static Makefile.PL Checking if your kit is complete... Looks good Writing Makefile for Test::MockObject Writing MYMETA.yml and MYMETA.json >>> make cp lib/Test/MockObject/Extends.pm blib/lib/Test/MockObject/Extends.pm cp lib/Test/MockObject.pm blib/lib/Test/MockObject.pm Manifying blib/man3/Test::MockObject::Extends.3 Manifying blib/man3/Test::MockObject.3 CHROMATIC/Test-MockObject-1.20120301.tar.gz make -- OK Running make test >>> make test TEST_VERBOSE=1 PERL_DL_NONLAZY=1 /home/fly1400/ap1400/bin/perl-static "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t t/base.t ...................... 1..103 ok 1 - use Test::MockObject; ok 2 - Test::MockObject->can('new') ok 3 - The object isa Test::MockObject ok 4 - Test::MockObject->can('mock') ok 5 - Test::MockObject->can('foo') ok 6 - mock() should return itself ok 7 - ... default mock should return nothing ok 8 - Test::MockObject->can('remove') ok 9 - remove() should remove a sub from potential action ok 10 - ... returning itself ok 11 - mock() should install callable subref ok 12 - ... which behaves normally ok 13 - can() should return a subref ok 14 - Test::MockObject->can('set_always') ok 15 - set_always() should add a sub that always returns its value ok 16 - ... so it should at least do it twice in a row ok 17 - ... returning itself ok 18 - Test::MockObject->can('set_true') ok 19 - set_true() should install a sub that returns true ok 20 - ... or multiple subs ok 21 - ... all ok 22 - ... returning true ok 23 - ... and should return itself ok 24 - Test::MockObject->can('set_false') ok 25 - set_false() should install a sub that returns false ok 26 - ... even in list context ok 27 - ... and should return itself ok 28 - ... or multiple subs ok 29 - ... all ok 30 - ... returning false ok 31 - Test::MockObject->can('set_list') ok 32 - set_list() should install a sub to return a list ok 33 - ... and should return itself ok 34 - ... and the sub should always return the list ok 35 - Test::MockObject->can('set_series') ok 36 - set_series() should install a sub to return a series ok 37 - ... and should return itself ok 38 - ... in order ok 39 - ... through the series ok 40 - ... but false when finishing the series ok 41 - Test::MockObject->can('called') ok 42 - called() should report true if named sub was called ok 43 - ... and false if it was not ok 44 - Test::MockObject->can('clear') ok 45 - clear() should clear recorded call stack ok 46 - ... and should return itself ok 47 - Test::MockObject->can('call_pos') ok 48 - call_pos() should report name of sub called by position ok 49 - ... and should handle negative numbers ok 50 - Test::MockObject->can('call_args') ok 51 - call_args() should return args for sub called by position ok 52 - ... with the object as the first argument ok 53 - Test::MockObject->can('call_args_string') ok 54 - call_args_string() should return args joined ok 55 - ... with no default separator ok 56 - Test::MockObject->can('call_args_pos') ok 57 - call_args_argpos() should return argument for sub by position ok 58 - ... handing negative positions equally well ok 59 - Test::MockObject->can('called_ok') ok 60 - object called 'foo' ok 61 - Test::MockObject->can('called_pos_ok') ok 62 - object called 'foo' at position 1 ok 63 - Test::MockObject->can('called_args_string_is') ok 64 - object sent expected args to sub at position 1 ok 65 - Test::MockObject->can('called_args_pos_is') ok 66 - object sent expected arg '3' to sub at position 1 ok 67 - Test::MockObject->can('fake_module') ok 68 - fake_module() should prevent a module from being loaded ok 69 - fake_module() should install functions in new package namespace ok 70 - ... and should carp if it does not receive a function reference ok 71 - Test::MockObject->can('fake_new') ok 72 - fake_new() should create a fake constructor to return mock object ok 73 - Test::MockObject->can('check_class_loaded') ok 74 - check_class_loaded() should return true for loaded class ok 75 - ... and false for unloaded class ok 76 - ... true for loaded class with no colons ok 77 - ... false for unloaded class with no colons ok 78 - ... true for defined class even with no symbols ok 79 - ... true for defined class with colons but with no symbols ok 80 - ... true for class in %INC ok 81 - ... and true for class with colons in %INC ok 82 - Test::MockObject->can('set_bound') ok 83 - set_bound() should bind to a scalar reference ok 84 - ... and should return itself ok 85 - ... and its return value should change with the ref ok 86 - ... handling array refs ok 87 - ... and hash refs ok 88 - Module should carp when calling a non-existant method ok 89 - ... warning as such ok 90 - Test::MockObject->can('next_call') ok 91 - next_call() should return first method ok 92 - ... and args in a data structure which isa ARRAY ok 93 - ... containing the real arguments ok 94 - ... and removing that call from the stack ok 95 - ... and should skip multiple calls, with an argument provided ok 96 - ... returning undef with no call in that position ok 97 - ... returning only the method name in scalar context ok 98 - Test::MockObject->can('_calls') ok 99 - _calls() should return something that isa ARRAY ok 100 - ... always for the same key ok 101 - Test::MockObject->can('_subs') ok 102 - _subs() should return something that isa HASH ok 103 - ... always for the same key ok t/bugs.t ...................... 1..18 ok 1 - called() should not die from no array ref object ok 2 - _call() should not autovivify extra calls on the stack ok 3 - fake_module() should catch redefined sub warnings ok 4 - called_pos_ok() should return false if name does not match ok 5 - ... printing a helpful diagnostic ok 6 - called_pos_ok() should throw no uninitialized warnings on failure ok 7 - ... faking it with the word in the error ok 8 - $1 should be preserved through AUTOLOAD invocation ok 9 - fake_module() should create a symbol table entry for the module ok 10 - set_series() should return false at the end of a series ok 11 - default overloadings should work ok 12 - ... and not be static ok 13 - ... but should not interfere with method finding ok 14 - MO cached by another MO log should not be garbage collected ok 15 - ... but should go away when caching MO does ok 16 - ... and the caching MO better go away too! ok 17 - fake_module() should throw exception for loaded module without mocks ok 18 - check_class_loaded() should work for nested class names ok t/debugger.t .................. 1..4 ok 1 - use Test::MockObject; ok 2 - generated isa() should have correct name under debugger ok 3 - generated can() should have correct name under debugger ok 4 - T::MO should not permanently reset $^P ok Called UNIVERSAL::isa() as a function, not a method at /home/fly1400/var/megalib/UNIVERSAL/can.pm line 47. t/debuggingwarnings.t ......... ok 1 - use Test::MockObject; ok 2 - T::MO should enable U::i when loaded with -debug flag ok 3 - T::MO should enable U::c when loaded with -debug flag 1..3 ok Called UNIVERSAL::isa() as a function, not a method at /home/fly1400/var/megalib/UNIVERSAL/can.pm line 47. t/debuggingwarningsextends.t .. ok 1 - use Test::MockObject::Extends; ok 2 - T::MO::E should enable U::i when loaded with -debug flag ok 3 - T::MO::E should enable U::c when loaded with -debug flag 1..3 ok t/extends-bugs.t .............. 1..33 ok 1 - use Test::MockObject::Extends; ok 2 - Mocking a package defined inline should not load anything ok 3 - The object isa HASH ok 4 - ...also if UNIVERSAL::isa() is called as a function ok 5 - The extended object isa HASH ok 6 - ...also if UNIVERSAL::isa() is called as a function ok 7 - The object isa Foo ok 8 - The object isa Foo ok 9 - foo() returns as expected ok 10 - $called_foo is incremented ok 11 - $called_autoload is unchanged ok 12 - $method_name is unchanged ok 13 - bad() returns as expected ok 14 - $called_autoload is incremented ok 15 - $method_name is the correct value ok 16 - The object isa Foo ok 17 - The object isa Bar ok 18 - The object isa Foo ok 19 - The object isa Bar ok 20 - foo() returns as expected ok 21 - $called_foo is incremented ok 22 - $called_autoload is unchanged ok 23 - $called_this is unchanged ok 24 - this() returns as expected ok 25 - $called_foo is unchanged ok 26 - $called_autoload is unchanged ok 27 - $called_this is incremented ok 28 - that() returns as expected ok 29 - $called_autoload is incremented ok 30 - $method_name is set correctly ok 31 - The $AUTOLOAD for the object's actual class should be unset ok 32 - The $AUTOLOAD that catches the call should contain the desired name ok 33 - class method mocked ok t/extends.t ................... 1..41 ok 1 - use Test::MockObject::Extends; ok 2 - The object isa Test::MockObject ok 3 - passing a class name to new() should set inheritance properly ok 4 - new() should load parent module unless already loaded ok 5 - mock() should override method in parent ok 6 - ... calling original methods in parent ok 7 - ... returning invocant ok 8 - unmock() should remove method overriding ok 9 - ... returning invocant ok 10 - ... and should pass along invocant ok 11 - ... returning invocant ok 12 - ... logging methods appropriately ok 13 - ... should wrap existing object appropriately ok 14 - The object isa Some::Class ok 15 - The object isa Another::Class ok 16 - ... returning the right result even when the class is not a parent ok 17 - unlogged methods should work ok 18 - ... and logging should not happen for them ok 19 - ... not throwing redefinition warnings ok 20 - ... allowing overriding with logged versions ok 21 - ... with logging happening then, obviously ok 22 - Mocking worked ok 23 - Method didn't trigger bad method ok 24 - The object isa Foo ok 25 - Creating a wrapped module should not die ok 26 - The object isa Foo ok 27 - foo() should return as expected ok 28 - ... calling the method ok 29 - ... not touching AUTOLOAD() ok 30 - ... or $Foo::AUTOLOAD ok 31 - bad() should returns as expected ok 32 - ... calling AUTOLOAD() ok 33 - ... with the appropriate $Foo::AUTOLOAD ok 34 - __get_parents() should return a list of parents of the wrapped object ok 35 - The object isa FooNoAutoload ok 36 - Creating a wrapped module should not die ok 37 - The object isa FooNoAutoload ok 38 - fooNA() should return as expected ok 39 - ... calling the method ok 40 - ... not touching AUTOLOAD() ok 41 - ... should die if calling a non-mocked and non-AUTOLOADED method ok t/ignore.t .................... 1..6 ok 1 - use Test::MockObject; ok 2 - mocking a method with a leading dash should work ok 3 - ... not preventing subsequent mocks ok 4 - ... but should prevent logging of endashed sub calls ok 5 - unlogged call should be remockable ok 6 - ... and reloggable ok t/isa.t ....................... 1..7 ok 1 - use Test::MockObject; ok 2 - Test::MockObject->can('set_isa') ok 3 - The object isa CGI ok 4 - The object isa Apache ok 5 - The object isa Something ok 6 - The object isa Apache::Request ok 7 - ... this is not a "Fail" object ok t/nodefaultwarnings.t ......... ok 1 - use Test::MockObject; ok 2 - T::MO should not enable U::i by default ok 3 - T::MO should not enable U::c by default ok 4 - use Test::MockObject::Extends; ok 5 - T::MO::E should not enable U::i by default ok 6 - T::MO::E should not enable U::c by default 1..6 ok All tests successful. Files=10, Tests=224, 1 wallclock secs ( 0.05 usr 0.00 sys + 0.35 cusr 0.04 csys = 0.44 CPU) Result: PASS CHROMATIC/Test-MockObject-1.20120301.tar.gz make test TEST_VERBOSE=1 -- OK chromatic <chromatic@wgz.org> Perl extension for emulating troublesome interfaces >>> (cd /home/fly1400/var/cpan/build/Test-MockObject-1.20120301-8NHO09 && tar cvf - Test-MockObject-1.20120301.ppd blib) | gzip -c >/home/fly1400/var/REPO/C/CH/CHROMATIC/Test-MockObject-1.20120301.tar.gz Test-MockObject-1.20120301.ppd blib/ blib/lib/ blib/lib/Test/ blib/lib/Test/MockObject/ blib/lib/Test/MockObject/Extends.pm blib/lib/Test/MockObject.pm blib/man3/ blib/man3/Test::MockObject::Extends.3 blib/man3/Test::MockObject.3 >>> mv /home/fly1400/var/cpan/build/Test-MockObject-1.20120301-8NHO09/Test-MockObject-1.20120301.ppd /home/fly1400/var/REPO/C/CH/CHROMATIC Finished 2012-03-02T16:26:53