Changeset View
Changeset View
Standalone View
Standalone View
lang/perl5.20/files/patch-cpan_podlators_t_devise-date.t
- This file was added.
| Property | Old Value | New Value |
|---|---|---|
| fbsd:nokeywords | null | yes \ No newline at end of property |
| svn:eol-style | null | native \ No newline at end of property |
| svn:mime-type | null | text/plain \ No newline at end of property |
| --- cpan/podlators/t/devise-date.t.orig 2014-12-27 11:48:48 UTC | |||||
| +++ cpan/podlators/t/devise-date.t | |||||
| @@ -1,15 +1,28 @@ | |||||
| -#!/usr/bin/perl -w | |||||
| - | |||||
| -# In order for MakeMaker to build in the core, nothing can use | |||||
| -# Fcntl which includes POSIX. devise_date()'s use of strftime() | |||||
| -# was replaced. This tests that it's identical. | |||||
| +#!/usr/bin/perl | |||||
| +# | |||||
| +# In order for MakeMaker to build in the core, nothing can use Fcntl which | |||||
| +# includes POSIX. devise_date()'s use of strftime() was replaced. This tests | |||||
| +# that it's identical. It also tests special handling of the POD_MAN_DATE | |||||
| +# environment variable. | |||||
| +use 5.006; | |||||
| use strict; | |||||
| - | |||||
| -use Test::More tests => 1; | |||||
| +use warnings; | |||||
| use Pod::Man; | |||||
| use POSIX qw(strftime); | |||||
| +use Test::More tests => 2; | |||||
| + | |||||
| +# Check that the results of device_date matches strftime. There is no input | |||||
| +# file name, so this will use the current time. | |||||
| my $parser = Pod::Man->new; | |||||
| -is $parser->devise_date, strftime("%Y-%m-%d", localtime); | |||||
| +is( | |||||
| + $parser->devise_date, | |||||
| + strftime('%Y-%m-%d', localtime()), | |||||
| + 'devise_date matches strftime' | |||||
| +); | |||||
| + | |||||
| +# Set the override environment variable and ensure that it's honored. | |||||
| +local $ENV{POD_MAN_DATE} = '2014-01-01'; | |||||
| +is($parser->devise_date, '2014-01-01', 'devise_date honors POD_MAN_DATE'); | |||||