diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-02-27 09:36:38 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-27 21:17:38 +0000 |
| commit | b4558e5933d6def23121d1604bcf78459fa609fe (patch) | |
| tree | 190fe434e1c2c6e47a5cdbfb295bd9b41d4477a6 /lib/ExtUtils | |
| parent | a0457be16b8088455208a5b5ab035da17cb9f707 (diff) | |
| download | perl-b4558e5933d6def23121d1604bcf78459fa609fe.tar.gz | |
assorted VMS test fix-ups, $Config{prefixexp} revisited
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020227152131.01ade728@exchi01>
p4raw-id: //depot/perl@14902
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/t/Installed.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/ExtUtils/t/Installed.t b/lib/ExtUtils/t/Installed.t index 70287f8e5f..1a7eaa110e 100644 --- a/lib/ExtUtils/t/Installed.t +++ b/lib/ExtUtils/t/Installed.t @@ -108,8 +108,12 @@ FAKE SKIP: { + TODO: { skip("could not write packlist: $!", 3 ) unless $wrotelist; + local $TODO = "new() attempts to derive package name from filename" + if $^O eq 'VMS'; + # avoid warning and death by localizing glob local *ExtUtils::Installed::Config; my $fake_mod_dir = File::Spec->catdir(cwd(), 'auto', 'FakeMod'); @@ -126,6 +130,7 @@ SKIP: { isa_ok( $realei->{FakeMod}{packlist}, 'ExtUtils::Packlist' ); is( $realei->{FakeMod}{version}, '1.1.1', '... should find version in modules' ); + } } # modules @@ -169,7 +174,7 @@ SKIP: { is( scalar @files, 0, '... should find no doc files given wrong dirs' ); @files = $ei->files('goodmod', 'prog'); is( scalar @files, 1, '... should find doc file in correct dir' ); -like( $files[0], qr/foobar$/, '... checking file name' ); +like( $files[0], qr/foobar[>\]]?$/, '... checking file name' ); @files = $ei->files('goodmod'); is( scalar @files, 2 + $mandirs, '... should find all files with no type specified' ); my %dirnames = map { lc($_) => dirname($_) } @files; |