git.maemo.org Git - dh-make-perl/blob - dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/proverc.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     if ( $ENV{PERL_CORE} ) {
   5         chdir 't';
   6         @INC = ( '../lib', 'lib' );
   7     }
   8     else {
   9         unshift @INC, 't/lib';
  10     }
  11 }
  12
  13 use strict;
  14 use lib 't/lib';
  15 use Test::More tests => 1;
  16 use File::Spec;
  17 use App::Prove;
  18
  19 my $prove = App::Prove->new;
  20
  21 $prove->add_rc_file(
  22     File::Spec->catfile(
  23         ( $ENV{PERL_CORE} ? 'lib' : 't' ), 'data', 'proverc'
  24     )
  25 );
  26
  27 is_deeply $prove->{rc_opts},
  28   [ '--should', 'be', '--split', 'correctly', 'Can', 'quote things',
  29     'using single or', 'double quotes', '--this', 'is', 'OK?'
  30   ],
  31   'options parsed';
  32