Test-Time-0.04/000755 000766 000024 00000000000 11766334534 014437 5ustar00h-watanabestaff000000 000000 Test-Time-0.04/.gitignore000644 000766 000024 00000000154 11766334047 016426 0ustar00h-watanabestaff000000 000000 META.yml Makefile Makefile.old blib inc pm_to_blib temp.pl MANIFEST.bak pod.html *.tmp cover_db startup.sh Test-Time-0.04/Changes000644 000766 000024 00000000375 11766334524 015736 0ustar00h-watanabestaff000000 000000 2012-06-14 SATOH Hiroh * 0.02: Fix Makefile.PL (by motemen) * 0.03: miss * 0.04: Add prototypes to overriden time and sleep (by naturalist) 2011-06-23 SATOH Hiroh * 0.01: init vim:set ft=changelog: Test-Time-0.04/inc/000755 000766 000024 00000000000 11766334534 015210 5ustar00h-watanabestaff000000 000000 Test-Time-0.04/lib/000755 000766 000024 00000000000 11766334534 015205 5ustar00h-watanabestaff000000 000000 Test-Time-0.04/Makefile.PL000644 000766 000024 00000001407 11766334047 016412 0ustar00h-watanabestaff000000 000000 BEGIN { use inc::Module::Install; my @mip = qw( Module::Install::AuthorTests Module::Install::Repository Module::Install::ReadmeFromPod Module::Install::TestBase ); for (@mip) { eval "require $_"; if ($@) { eval "require inc::$_"; if ($@) { warn $@; printf("# Install following (perl Makefile.PL | cpanm):\n%s", join("\n", @mip)); exit 1; } } } }; name 'Test-Time'; all_from 'lib/Test/Time.pm'; # requires 'Exporter::Lite'; build_requires 'Test::More'; build_requires 'Test::Name::FromLine'; # Module::Install::AuthorTests author_tests('xt'); # Module::Install::Repository auto_set_repository; # Module::Install::TestBase use_test_base; # Module::Install::ReadmeFromPod readme_from 'lib/Test/Time.pm'; auto_include; WriteAll; Test-Time-0.04/MANIFEST000644 000766 000024 00000001216 11766334047 015567 0ustar00h-watanabestaff000000 000000 .gitignore Changes inc/Module/Install.pm inc/Module/Install/AuthorTests.pm inc/Module/Install/Base.pm inc/Module/Install/Can.pm inc/Module/Install/Fetch.pm inc/Module/Install/Include.pm inc/Module/Install/Makefile.pm inc/Module/Install/Metadata.pm inc/Module/Install/ReadmeFromPod.pm inc/Module/Install/Repository.pm inc/Module/Install/TestBase.pm inc/Module/Install/Win32.pm inc/Module/Install/WriteAll.pm inc/Spiffy.pm inc/Test/Base.pm inc/Test/Base/Filter.pm inc/Test/Builder.pm inc/Test/Builder/Module.pm inc/Test/More.pm inc/Test/Name/FromLine.pm lib/Test/Time.pm Makefile.PL MANIFEST This list of files META.yml README t/00_compile.t t/01_base.t Test-Time-0.04/META.yml000644 000766 000024 00000001151 11766334534 015706 0ustar00h-watanabestaff000000 000000 --- abstract: 'Overrides the time() and sleep() core functions for testing' author: - 'cho45 ' build_requires: ExtUtils::MakeMaker: 6.36 configure_requires: ExtUtils::MakeMaker: 6.36 distribution_type: module dynamic_config: 1 generated_by: 'Module::Install version 1.04' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 name: Test-Time no_index: directory: - inc - t - xt requires: Filter::Util::Call: 0 resources: license: http://dev.perl.org/licenses/ repository: git://github.com/cho45/Test-Time.git version: 0.04 Test-Time-0.04/README000644 000766 000024 00000001657 11766334534 015330 0ustar00h-watanabestaff000000 000000 NAME Test::Time - Overrides the time() and sleep() core functions for testing SYNOPSIS use Test::Time; # Freeze time my $now = time(); # Increment internal time (returns immediately) sleep 1; # Return internal time incremented by 1 my $then = time(); DESCRIPTION Test::Time can be used to test modules that deal with time. Once you "use" this module, all references to "time" and "sleep" will be internalized. You can set custom time by passing time => number after the "use" statement: use Test::Time time => 1; my $now = time; # $now is equal to 1 sleep 300; # returns immediately, displaying a note my $then = time; # $then equals to 301 AUTHOR cho45 SEE ALSO LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Test-Time-0.04/t/000755 000766 000024 00000000000 11766334534 014702 5ustar00h-watanabestaff000000 000000 Test-Time-0.04/t/00_compile.t000644 000766 000024 00000000106 11766334047 017012 0ustar00h-watanabestaff000000 000000 use strict; use Test::More tests => 1; BEGIN { use_ok 'Test::Time' } Test-Time-0.04/t/01_base.t000644 000766 000024 00000000263 11766334047 016301 0ustar00h-watanabestaff000000 000000 use strict; use warnings; use Test::More; use Test::Name::FromLine; use Test::Time time => 1; is time(), 1; CORE::sleep(1); is time(), 1; sleep 1; is time(), 2; done_testing; Test-Time-0.04/lib/Test/000755 000766 000024 00000000000 11766334534 016124 5ustar00h-watanabestaff000000 000000 Test-Time-0.04/lib/Test/Time.pm000644 000766 000024 00000003001 11766334530 017346 0ustar00h-watanabestaff000000 000000 package Test::Time; use strict; use warnings; use Test::More; our $VERSION = '0.04'; our $time = CORE::time(); my $pkg = __PACKAGE__; my $in_effect = 1; sub in_effect { $in_effect; } sub import { my ($class, %opts) = @_; $time = $opts{time} if defined $opts{time}; *CORE::GLOBAL::time = sub() { if (in_effect) { $time; } else { CORE::time(); } }; *CORE::GLOBAL::sleep = sub(;$) { if (in_effect) { my $sleep = shift || 1; $time += $sleep; note "sleep $sleep"; } else { CORE::sleep(shift); } } }; sub unimport { $in_effect = 0; } 1; __END__ =encoding utf8 =head1 NAME Test::Time - Overrides the time() and sleep() core functions for testing =head1 SYNOPSIS use Test::Time; # Freeze time my $now = time(); # Increment internal time (returns immediately) sleep 1; # Return internal time incremented by 1 my $then = time(); =head1 DESCRIPTION Test::Time can be used to test modules that deal with time. Once you C this module, all references to C