| Subject: | [PATCH] test fix-up for directories in 31_local_tml.t |
| Date: | Sun, 23 Feb 2014 18:31:43 -0600 |
| To: | bug-CPAN-Meta-YAML [...] rt.cpan.org |
| From: | "Craig A. Berry" <craigberry [...] mac.com> |
Directories on VMS have a .DIR extension. This test appears to be constructing method names from directory names, so we need to trim off the extension like so:
--- t/31_local_tml.t;-0 2014-02-14 04:57:08 -0600
+++ t/31_local_tml.t 2014-02-17 22:50:42 -0600
@@ -12,6 +12,7 @@ for my $dir ( IO::Dir->new($tml_local)->
next if $dir =~ /^\./;
my $fn = "test_$dir";
$fn =~ s/-/_/g;
+ $fn =~ s/\.DIR\z//i if $^O eq 'VMS';
my $bridge = TestBridge->can($fn);
next unless $bridge;
run_all_testml_files( "TestML", catdir($tml_local, $dir), $bridge );
[end]
That gets the test passing on VMS.
Show quoted text
________________________________________
Craig A. Berry
mailto:craigberry@mac.com
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser