ext/Test-Harness/t/compat/switches.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Test::More (
   5     $^O eq 'VMS'
   6     ? ( skip_all => 'VMS' )
   7     : ( tests => 4 )
   8 );
   9
  10 use Test::Harness;
  11
  12 for my $switch ( '-Ifoo', '-I foo' ) {
  13     $Test::Harness::Switches = $switch;
  14     ok my $harness = Test::Harness::_new_harness, 'made harness';
  15     is_deeply [ $harness->lib ], ['-Ifoo'], 'got libs';
  16 }
  17