Commit | Line | Data |
b965d173 |
1 | #!/usr/bin/perl -w |
2 | |
3 | BEGIN { |
5e2a19fc |
4 | if ( $ENV{PERL_CORE} ) { |
5 | chdir 't'; |
6 | @INC = ( '../lib', 'lib' ); |
7 | } |
8 | else { |
9 | unshift @INC, 't/lib'; |
b965d173 |
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 | |
5e2a19fc |
21 | $prove->add_rc_file( |
22 | File::Spec->catfile( |
27fc0087 |
23 | ( $ENV{PERL_CORE} |
24 | ? ( File::Spec->updir(), 'ext', 'Test', 'Harness' ) |
25 | : () |
26 | ), |
27 | 't', 'data', |
28 | 'proverc' |
5e2a19fc |
29 | ) |
30 | ); |
b965d173 |
31 | |
32 | is_deeply $prove->{rc_opts}, |
33 | [ '--should', 'be', '--split', 'correctly', 'Can', 'quote things', |
5e2a19fc |
34 | 'using single or', 'double quotes', '--this', 'is', 'OK?' |
35 | ], |
b965d173 |
36 | 'options parsed'; |
37 | |