Checking if your kit is complete... Looks good Writing Makefile for Test::MockRandom Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. cp lib/Test/MockRandom.pm blib\lib\Test\MockRandom.pm cp lib/Test/MockRandom.pod blib\lib\Test\MockRandom.pod Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/00-null-import.....................1..8 ok 1 - use Test::MockRandom; ok 2 - Test::MockRandom->can(...) ok 3 - confirming that rand wasn't imported by default ok 4 - confirming that srand wasn't imported by default ok 5 - confirming that oneish wasn't imported by default ok 6 - confirming that export_rand_to wasn't imported by default ok 7 - confirming that export_srand_to wasn't imported by default ok 8 - confirming that export_oneish_to wasn't imported by default ok t/01-OO-syntax.......................1..23 ok 1 - Class constructor isa Test::MockRandom ok 2 - Object constructor isa Test::MockRandom ok 3 - is uninitialized call to $obj->rand() equal to zero ok 4 - does Test::MockRandom->new die if argument is equal to one ok 5 - does Test::MockRandom->new die if argument is greater than one ok 6 - does Test::MockRandom->new die if argument is less than zero ok 7 - does Test::MockRandom->new(0) live ok 8 - does Test::MockRandom->new(Test::MockRandom::oneish) live ok 9 - does $obj->srand die if argument is equal to one ok 10 - does $obj->srand die if argument is greater than one ok 11 - does $obj->srand die if argument is less than zero ok 12 - does $obj->srand(0) live ok 13 - does $obj->srand($obj->oneish) live ok 14 - testing $obj->srand() gives $obj->rand() == 0 ok 15 - testing $obj->srand($obj->oneish) gives $obj->rand == $obj->oneish ok 16 - testing $obj->srand(.5) gives $obj->rand == .5 ok 17 - testing $obj->srand(0) gives $obj->rand == 0 ok 18 - setting $obj->srand(oneish,.3, .2, .1) ok 19 - testing $obj->rand == oneish ok 20 - testing $obj->rand == .3 ok 21 - testing $obj->rand == .2 ok 22 - testing $obj->rand == .1 ok 23 - testing $obj->rand == 0 (nothing left in $obj->srand array ok t/02-override-PACKAGE................1..25 ok 1 - main->can('rand') ok 2 - main->can('srand') ok 3 - main->can('oneish') ok 4 - is oneish nearly one ok 5 - is uninitialized call to rand() equal to zero ok 6 - does srand die if argument is equal to one ok 7 - does srand die if argument is greater than one ok 8 - does srand die if argument is less than zero ok 9 - does srand(0) live ok 10 - does srand(oneish) live ok 11 - testing srand() gives rand() == 0 ok 12 - testing srand(oneish) gives rand == oneish ok 13 - testing srand(.5) gives rand == .5 ok 14 - testing srand(0) gives rand == 0 ok 15 - setting srand(oneish,.3, .2, .1) ok 16 - testing rand == oneish ok 17 - testing rand == .3 ok 18 - testing rand == .2 ok 19 - testing rand == .1 ok 20 - testing rand == 0 (nothing left in srand array ok 21 - setting srand( 0.5, 0.25 ) ok 22 - testing rand(2) == 1 ok 23 - testing rand(0) == 0.25 ok 24 - testing rand(-1) == -0.1 ok 25 - testing rand("a") == 0.6 ok t/03-override-PACKAGE-dwim-hack......1..3 ok 1 - main->can('rand') ok 2 - main->can('srand') ok 3 - main->can('oneish') ok t/04-override-module.................1..8 ok 1 - SomePackage->can('rand') ok 2 - main->can('srand') ok 3 - main->can('oneish') ok 4 - confirming that rand() wasn't imported into main ok 5 - confirming that srand wasn't imported into SomePackage ok 6 - confirming that oneish wasn't imported into SomePackage ok 7 - The object isa SomePackage ok 8 - testing $obj->next_random == .5 ok t/05-override-list...................1..9 ok 1 - SomePackage->can('rand') ok 2 - confirming srand wasn't exported to SomePackage ok 3 - confirming oneish wasn't exported to SomePackage ok 4 - main->can('rand') ok 5 - main->can('srand') ok 6 - main->can('oneish') ok 7 - The object isa SomePackage ok 8 - testing $obj->next_random == .5 ok 9 - testing rand == .6 in current package ok t/06-override-global.................1..6 ok 1 - rand should not have been imported into main ok 2 - rand should not have been imported into SomePackage ok 3 - main->can('srand') ok 4 - main->can('oneish') ok 5 - The object isa SomePackage ok 6 - testing $obj->next_random == .5 ok t/07-empty-string-import.............1..7 ok 1 - Test::MockRandom->can(...) ok 2 - confirming that rand wasn't imported by default ok 3 - confirming that srand wasn't imported by default ok 4 - confirming that oneish wasn't imported by default ok 5 - confirming that export_rand_to wasn't imported by default ok 6 - confirming that export_srand_to wasn't imported by default ok 7 - confirming that export_oneish_to wasn't imported by default ok t/09-import-override-reoverride......1..6 ok 1 - main->can('rand') ok 2 - main->can('srand') ok 3 - main->can('oneish') ok 4 - The object isa SomeRandPackage ok 5 - SomeRandPackage->can('rand') ok 6 - testing $obj->rand == .5 ok t/10-export_fcn_to...................1..5 ok 1 - Dies when export_*_to not called as class function ok 2 - Dies when export_*_to not given an argument ok 3 - OverrideTest->can(...) ok 4 - testing OverrideTest::srand(.5) ok 5 - testing OverrideTest::srand(OverrideTest::oneish) ok t/11-export_aliasing.................1..3 ok 1 - OverrideTest->can(...) ok 2 - testing OverrideTest::seed(.5) ok 3 - testing OverrideTest::seed(OverrideTest::nearly_one) ok t/15-custom-export-spec..............1..5 ok 1 - OverrideTest->can(...) ok 2 - AnotherOverride->can('rand') ok 3 - main->can('oneish') ok 4 - testing OverrideTest::random() ok 5 - testing AnotherOverride::rand() ok t/16-custom-export-error-handling....1..1 ok 1 - Does custom import spec croak on unrecognized symbol? ok t/17-list-context....................1..8 ok 1 - rand should not have been imported into main ok 2 - rand should not have been imported into RandomList ok 3 - main->can('srand') ok 4 - main->can('oneish') ok 5 - The object isa RandomList ok 6 - testing $list->random() -- return first element ok 7 - testing $list->random() -- return last element ok 8 - testing $list->random() -- return third element ok All tests successful. Files=14, Tests=117, 2 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. Installing C:\cpanrun\build\5-10-0\html\site\lib\Test\MockRandom.html Installing C:\cpanrun\build\5-10-0\site\lib\Test\MockRandom.pm Installing C:\cpanrun\build\5-10-0\site\lib\Test\MockRandom.pod Appending installation info to C:\cpanrun\build\5-10-0\lib/perllocal.pod