diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-08 08:41:38 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-09-08 11:27:21 +0200 |
| commit | 7b903762ad0ebd5d0459692ad5c081c69a3c0808 (patch) | |
| tree | 6e64cf76feca7527bf3a0b2ab962572023e5887e /t/run/switchI.t | |
| parent | a34ce875bf70f00f7af4a549f8c1ff0f4469f7fb (diff) | |
| download | perl-7b903762ad0ebd5d0459692ad5c081c69a3c0808.tar.gz | |
Remove code specific to MacOS Classic from core tests
Diffstat (limited to 't/run/switchI.t')
| -rw-r--r-- | t/run/switchI.t | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/t/run/switchI.t b/t/run/switchI.t index 398f816e2d..ffee2f9112 100644 --- a/t/run/switchI.t +++ b/t/run/switchI.t @@ -10,24 +10,23 @@ BEGIN { plan(4); } -my $Is_MacOS = $^O eq 'MacOS'; my $Is_VMS = $^O eq 'VMS'; my $lib; -$lib = $Is_MacOS ? ':Bla:' : 'Bla'; +$lib = 'Bla'; ok(grep { $_ eq $lib } @INC[0..($#INC-1)]); SKIP: { skip 'Double colons not allowed in dir spec', 1 if $Is_VMS; - $lib = $Is_MacOS ? 'Foo::Bar:' : 'Foo::Bar'; + $lib = 'Foo::Bar'; ok(grep { $_ eq $lib } @INC[0..($#INC-1)]); } -$lib = $Is_MacOS ? ':Bla2:' : 'Bla2'; +$lib = 'Bla2'; fresh_perl_is("print grep { \$_ eq '$lib' } \@INC[0..(\$#INC-1)]", $lib, { switches => ['-IBla2'] }, '-I'); SKIP: { skip 'Double colons not allowed in dir spec', 1 if $Is_VMS; - $lib = $Is_MacOS ? 'Foo::Bar2:' : 'Foo::Bar2'; + $lib = 'Foo::Bar2'; fresh_perl_is("print grep { \$_ eq '$lib' } \@INC", $lib, { switches => ['-IFoo::Bar2'] }, '-I with colons'); } |