Changeset View
Changeset View
Standalone View
Standalone View
lang/perl5.18/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-01-31 21:55:51 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'); |