lib/Test/Harness/t/proverc.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if ($ENV{PERL_CORE}) {
   5         # FIXME
   6         print "1..0 # Skip, needs fixing. Probably an -I issue\n";
   7         exit 0;
   8     }
   9 }
  10
  11 use strict;
  12 use lib 't/lib';
  13 use Test::More tests => 1;
  14 use File::Spec;
  15 use App::Prove;
  16
  17 my $prove = App::Prove->new;
  18
  19 $prove->add_rc_file( File::Spec->catfile( 't', 'data', 'proverc' ) );
  20
  21 is_deeply $prove->{rc_opts},
  22   [ '--should', 'be', '--split', 'correctly', 'Can', 'quote things',
  23     'using single or', 'double quotes', '--this', 'is', 'OK?' ],
  24   'options parsed';
  25