[p5sagit/p5-mst-13.2.git] / cpan / Test-Harness / t / proverc.t

#!/usr/bin/perl -w

use strict;
use lib 't/lib';
use Test::More tests => 1;
use File::Spec;
use App::Prove;

my $prove = App::Prove->new;

$prove->add_rc_file(
    File::Spec->catfile(
        't', 'data',
        'proverc'
    )
);

is_deeply $prove->{rc_opts},
  [ '--should', 'be', '--split', 'correctly', 'Can', 'quote things',
    'using single or', 'double quotes', '--this', 'is', 'OK?'
  ],
  'options parsed';
Commit	Line	Data
b965d173	1	#!/usr/bin/perl -w
b965d173	2
b965d173	3	use strict;
	4	use lib 't/lib';
	5	use Test::More tests => 1;
	6	use File::Spec;
	7	use App::Prove;
	8
	9	my $prove = App::Prove->new;
	10
5e2a19fc	11	$prove->add_rc_file(
5e2a19fc	12	File::Spec->catfile(
27fc0087	13	't', 'data',
27fc0087	14	'proverc'
5e2a19fc	15	)
5e2a19fc	16	);
b965d173	17
	18	is_deeply $prove->{rc_opts},
	19	[ '--should', 'be', '--split', 'correctly', 'Can', 'quote things',
5e2a19fc	20	'using single or', 'double quotes', '--this', 'is', 'OK?'
5e2a19fc	21	],
b965d173	22	'options parsed';
b965d173	23