| Subject: | Log::Dispatch 2.31 — kludge needed for Cygwin in t/01-basic.t |
| Date: | Tue, 22 May 2012 17:25:55 +0000 |
| To: | bug-Log-Dispatch [...] rt.cpan.org |
| From: | Christian Carey <seen [...] myfairpoint.net> |
Hi Dave,
a kludge is needed in Log::Dispatch 2.31’s t/01-basic.t so that the test
will behave properly when run under a Cygwin environment.
In my case, the relevant Perl version under Cygwin is 5.10.1 built for
i686-cygwin-thread-multi-64int (with 13 registered patches), and the OS
vendor/version string is
CYGWIN_NT-5.1 slowpoke 1.7.15(0.260/5/3) 2012-05-09 10:25 i686 Cygwin
The problem is that Cygwin, running on top of Windows, has the same
filesystem limitations as Windows. The t/01-basic.t test currently has a
kludge to deal with running under a Windows environment, and needs a
similarly structured kludge to deal with running under a Cygwin
environment. The attached patch provides that Cygwin kludge.
If you have any questions or concerns, please let me know of them.
Kind regards,
Christian.
--- t/01-basic.t 2012-05-21 11:01:24.000000000 -0400
+++ t/01-basic.t.modified 2012-05-22 12:31:56.000000000 -0400
@@ -624,12 +624,18 @@
if ( $^O =~ /win32/i ) {
ok(
$mode_string == '0777' || $mode_string == '0666',
"Mode should be 0777 or 0666"
);
}
+ elsif ( $^O =~ /cygwin/i ) {
+ ok(
+ $mode_string == '0777' || $mode_string == '0644',
+ "Mode should be 0777 or 0644"
+ );
+ }
else {
is(
$mode_string, '0777',
"Mode should be 0777"
);
}