Blame t/compat/switches.t
|
Packit |
a6a12c |
#!/usr/bin/perl -w
|
|
Packit |
a6a12c |
|
|
Packit |
a6a12c |
use strict;
|
|
Packit |
a6a12c |
use warnings;
|
|
Packit |
a6a12c |
use Test::More (
|
|
Packit |
a6a12c |
$^O eq 'VMS'
|
|
Packit |
a6a12c |
? ( skip_all => 'VMS' )
|
|
Packit |
a6a12c |
: ( tests => 4 )
|
|
Packit |
a6a12c |
);
|
|
Packit |
a6a12c |
|
|
Packit |
a6a12c |
use Test::Harness;
|
|
Packit |
a6a12c |
|
|
Packit |
a6a12c |
for my $switch ( '-Ifoo', '-I foo' ) {
|
|
Packit |
a6a12c |
$Test::Harness::Switches = $switch;
|
|
Packit |
a6a12c |
ok my $harness = Test::Harness::_new_harness, 'made harness';
|
|
Packit |
a6a12c |
is_deeply [ $harness->lib ], ['-Ifoo'], 'got libs';
|
|
Packit |
a6a12c |
}
|
|
Packit |
a6a12c |
|