Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. Installing C:\cpanrun-5.8\build\5-8-0\site\lib\Class\Throwable.pm Writing C:\cpanrun-5.8\build\5-8-0\site\lib\auto\Class\Throwable\.packlist Appending installation info to C:\cpanrun-5.8\build\5-8-0\lib/perllocal.pod ns_test.t t\35_Class_Throwable_sub_class_test.t t\40_Class_Throwable_misc_test.t t\50_Class_Throwable_retrofit_test.t t\pod.t t\pod_coverage.t t\10_Class_Throwable_test......................1..30 ok 1 - use Class::Throwable; ok 2 - Class::Throwable->can('throw') ok 3 - The object isa Class::Throwable ok 4 - Class::Throwable->can('getMessage') ok 5 - ... the error is as we expected ok 6 - Class::Throwable->can('toString') ok 7 - ... the error is as we expected ok 8 - The object isa Class::Throwable ok 9 - ... the error is as we expected ok 10 - ... the error is as we expected ok 11 - Class::Throwable->can('getStackTrace') ok 12 - ... got the stack trace we expected ok 13 - ... got the stack trace we expected ok 14 - Class::Throwable->can('stackTraceToString') ok 15 - ... got the stack trace string we expected ok 16 - ... stringified overload ok 17 - ... got the stringified result we expected ok 18 - ... got the stringified result we expected ok 19 - ... got the stringified result we expected ok 20 - The object isa Class::Throwable ok 21 - ... it is the same object, just re-thrown ok 22 - The object isa Class::Throwable ok 23 - ... you can use anything for a message ok 24 - The object isa Class::Throwable ok 25 - ... got the message we expected ok 26 - ... we dont have a stack trace yet ok 27 - The object isa Class::Throwable ok 28 - ... it is the same exception too ok 29 - ... got the stack trace we expected ok 30 - ... got the big stack trace we were expecting ok t\20_Class_Throwable_subException_test.........1..17 ok 1 - use Class::Throwable; ok 2 - The object isa Class::Throwable ok 3 - The object isa Class::Throwable ok 4 - The object isa Class::Throwable ok 5 - Class::Throwable->can('hasSubException') ok 6 - Class::Throwable->can('getSubException') ok 7 - Class::Throwable->can('stringValue') ok 8 - ... e1 does not have a sub-exception ok 9 - ... e2 does have a sub-exception ok 10 - ... e2's sub-exception is e1 ok 11 - ... e3 does have a sub-exception ok 12 - ... e3's sub-exception is e2 ok 13 - ... toString prints subexceptions too ok 14 - The object isa Class::Throwable ok 15 - ... we do have a sub-exception ok 16 - ... our sub-exception is a string ok 17 - ... toString prints what we expected ok t\30_Class_Throwable_inline_exceptions_test....1..7 ok 1 - use Class::Throwable; ok 2 - Exception::Test->can('throw') ok 3 - Exception::Test::IllegalOperation->can('throw') ok 4 - The object isa Exception::Test ok 5 - ... the custom message is correct ok 6 - The object isa Exception::Test::IllegalOperation ok 7 - ... the custom message is correct ok t\35_Class_Throwable_sub_class_test............1..4 ok 1 - use TestException; ok 2 - ... got the output we expected ok 3 - TestException->can('setVerbosity') ok 4 - ... got the output we expected ok t\40_Class_Throwable_misc_test.................1..6 ok 1 - ... got the exception we expected ok 2 - use Class::Throwable; ok 3 - ... got the error we expected ok 4 - ... got the error we expected ok 5 - ... got the error we expected ok 6 - ... got the error we expected ok t\50_Class_Throwable_retrofit_test.............ok 1 - use Class::Throwable; ok 2 - use Class::Throwable; ok 3 - use Class::Throwable; ok 4 - The object isa Class::Throwable ok 5 - ... got the right message too ok 6 - The object isa InsufficientArguments ok 7 - The object isa Class::Throwable ok 8 - ... got the right message too ok 9 - The object isa Class::Throwable ok 10 - ... got the right message too ok 11 - ... got the exception we expected 1..11 ok t\pod..........................................1..1 ok 1 - blib\lib\Class\Throwable.pm ok t\pod_coverage.................................1..1 ok 1 - Pod coverage on Class::Throwable ok All tests successful. Files=8, Tests=77, 2 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)